【カテゴリー別】Excel VBA スタンダード 模擬問題　ワークシート関数

次のコードは、指定された範囲内の"Banana"の数をカウントし個数をメッセージボックスに表示するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Long

　A = WorksheetFunction. (Range("C1:C15"), "Banana")

　If A = 0 Then

　　MsgBox "0"

　Else

　　MsgBox "Banana‐" & A

　End If

End Sub

以下のコードは、2列目が"Japan"であるセルと同じ行の3列目に入力されている数値を合計して、セルE2に表示するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim A As Long

  Range("E2") = WorksheetFunction. (Range("B2:B10"), "Japan", Range("C2:C10"))

End Sub

次のコードは、セル範囲B1からB10に入力された数値のうち、

一番大きい値をセルD1に代入するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("D1") = WorksheetFunction. (Range("B1:B10"))

End Sub

以下のコードは、セル範囲A1:A5に入力された数値のうち最も小さい値をセルC1へ代入するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Range("C1") = WorksheetFunction. (Range("A1:A5"))

End Sub

次のコードは、セル範囲B1からB10に入力された数値のうち、

大きい順から数えて2番目の値をセルD1に代入するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("D1") = WorksheetFunction. (Range("B1:B10"), 2)

End Sub

次のコードは、B列に入力されている数値のうち

「5番目に小さい数値」を指定のセルに代入するマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　　Range("E3") = WorksheetFunction. (Range("B1:B20"), 5)

End Sub

以下のコードは、表の4列目を検索しセルの位置を特定しセルの値をセルG2へ入力するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("G1") = WorksheetFunction.(Range("F1"), Range("A1:D10"), 4, False)

End Sub

次のコードは、指定された範囲内で特定の値を検索し、その値が見つかったセルの相対的な位置をメッセージボックスで表示するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim searchValue As String

　Dim result As Variant

　　searchValue = "Baseball"

     result = Application. (searchValue, Range("A2:A11"), 0)

   If IsNumeric(result) Then

     MsgBox searchValue & " は " & result & " 番目にあります。"

  Else

    MsgBox searchValue & " は見つかりませんでした。"

  End If

End Sub

次のコードは、A列から "Baseball" という値を探し、その値の位置に対応する B 列の値をメッセージボックスで表示するマクロである。

以下の空欄に入る適切な語句を選択しなさい。

Sub Exam1()

　Dim searchValue As String

　Dim result As Variant

　searchValue = "Baseball"

　result = WorksheetFunction.Match(searchValue, Range("A2:A11"), 0)

　If IsNumeric(result) Then

　　MsgBox searchValue & " は" & result & " 行目にあり、対応する値は " & WorksheetFunction.(Range("B2:B11"), result) & " です。"

　Else

　　MsgBox searchValue & "は見つかりませんでした。"

　End If

End Sub

次のコードは、2列目に入力されている日付から、前月の月末日を3列目に代入するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim i As Long

　　For i = 2 To 6

　　　Cells(i, 3) = WorksheetFunction.   (Cells(i, 2),  )

　　Next i

End Sub

次のコードは、2列目に入力されている日付から、翌月の月末日を3列目に代入するマクロである。

以下の空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim i As Long

　　For i = 2 To 6

　　　Cells(i, 3) = WorksheetFunction. (Cells(i, 2), )

　　Next i

End Sub

次のコードは、A列に入力されている値から、当月の月末日を表示するマクロである。

空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim endOfMonth As Date

　endOfMonth = WorksheetFunction. ( (Range("A1").Value, Range("A2").Value, Range("A3").Value), 0)

　　MsgBox "月末の日付は" & endOfMonth

End Sub