Excel VBA スタンダード 関数 穴埋めテスト

ExcelシートのセルE2からE32には、ある従業員の1ヶ月分の日次残業時間（時間数）が入力されています。

この残業時間の合計をVBAで計算し、セルE33に自動出力するマクロを作成しました。

以下のVBAコードが正しく動作するように、以下の空欄  に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Range("E33") = .Sum(Range("E2:E32"))

End Sub

セルB2に入力された「物件ID」を検索値として、セル範囲F2:H50にある物件マスタから「賃料」（3列目）を取得し、変数 Nに格納するマクロを作成しました。

以下のVBAコードが正しく動作するように、空欄 に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim N As Long

　N = WorksheetFunction.(Range("B2"), Range("F2:H50"), 3, False)

End Sub

セルD2からD50には、各社員の研修への出欠状況（出席 または 欠席）が入力されています。

この範囲内から「出席」となっている人数をカウントし、変数 Nに格納してメッセージボックスに表示するマクロを作成しました。

以下のVBAコードが正しく動作するように空欄 に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim N As Long

 　N = WorksheetFunction.(Range("C2:C50"), "Windows 11")

　MsgBox "対象OSのPCは " & N & " 台です。"

End Sub

セルB2からB10には担当したワーカー名が、セルC2からC10にはそれぞれの作成問題数が入力されています。

2列目が "ワーカーA" であるセルと同じ行の3列目に入力されている作成問題数を合計して、セルE2に表示するマクロを作成しました。

以下のVBAコードが正しく動作するように、空欄 に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim N As Long

　Range("E2") = WorksheetFunction.(Range("B2:B10"), "ワーカーA", Range("C2:C10"))

End Sub

セルC2からC32には、1ヶ月間の「日次ページビュー数」が入力されています。

この期間内で最もアクセス数が多かった日の数値を抽出し、変数 N に格納したうえでセルF2に表示するマクロを作成しました。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim N As Long

　　N = WorksheetFunction.(Range("C2:C32"))

　Range("F2").Value = N

End Sub

セルB2からB32には、ある商品の1ヶ月間の「日次在庫数」が入力されています。

この期間内で最も在庫数が少なかった日の数値を抽出し、変数 N に格納したうえでセルD2に表示するマクロを作成しました。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim N As Long

　　N = WorksheetFunction.(Range("B2:B32"))

　Range("D2").Value = N

End Sub

セルC2からC20には、各店舗の「月間来店者数」が入力されています。

この範囲内で、大きい順から数えて2番目に多い来店者数を抽出し、変数 N に格納したうえでセルE2に表示するマクロを作成しました。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim N As Long

　　N = WorksheetFunction.(Range("C2:C20"), 2)

　Range("E2").Value = N

End Sub

セルC2からC50には、各梱包済み段ボールの「重量（グラム）」が入力されています。

この範囲内で、小さい順から数えて5番目に軽い重量を抽出し、変数 N に格納したうえでセルF3に表示するマクロを作成しました。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim N As Long

　　N = WorksheetFunction.(Range("C2:C50"), 5)

　Range("F3").Value = N

End Sub

セルB2からB100には、本日の「注文番号」が入力されています。

この範囲内から特定の注文番号（201）を完全一致で検索し、その値が見つかったセルの相対的な位置を変数 N に格納してメッセージボックスで表示するマクロを作成しました。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim A As String
　Dim N As Variant

　A = "201"

　N = Application.(A, Range("B2:B100"), 0)

　　MsgBox "該当の注文は上から " & N & " 番目です。"

End Sub

セルH2に入力された文字列がD列の上から何番目にあるかを探し、その後、見つけた位置を参照してC列の値をセルJ2に入力するマクロである。

以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。


Sub Exam1()

　Dim A As Long

　　With WorksheetFunction

　　　A = .(Range("H2"), Range("D2:D20"), 0)

　　Range("J2") = .(Range("C2:C20"), A)

　End With

End Sub

C1、C2、C3に入力されている年・月・日の値から当月の月末日を算出し、セルD1に表示するマクロである。
以下のVBAコードが正しく動作するように、空欄に入る最も適切な関数名を解答しなさい。

Sub Exam1()

　Dim N As Date

　　N = WorksheetFunction.((Range("C1").Value, Range("C2").Value, Range("C3").Value), 0)

　Range("D1").Value = N

End Sub