【ランダム順出題】Excel VBA スタンダード 模擬試験　問題バンクから40問出題

次のコードは、1列目に入力されている文字列データを 「-」で分割し、

その左側の部分を2列目に入力するマクロである。

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


コード実行後、セルB7に入力された値は である

Sub Exam1()

　Dim i As Long, parts As Variant

　For i = 2 To 10

　　parts =  Split (Cells(i, 1).Value, "-")

　　Cells(i, 2).Value = parts(0)

　Next i

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

以下のコードは、ブックの最後のシートのセルD5に"Country"と入力するマクロである。

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

Sub Exam1()

　Dim ws As Worksheet

　  ws = ThisWorkbook.Sheets(ThisWorkbook.Sheets.count)

　ws.Range("D5").Value = "Country"

End Sub

以下の文章は、イミディエイトウィンドウに関する説明です。

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

・イミディエイトウィンドウでシート名「Sheets(1)」を削除する命令「Delete」を実行する場合、次のように入力します。

例) ① .delete

以下のコードはフィルターで絞り込み後、テーブル内の見出し行ごとコピーし、

シート名「Sheet8」のセルC1に貼り付けるマクロである。

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

Sub Exam1()

　With Range("A1").ListObject.

　　.AutoFilter 3, "700"

　　.Copy Sheets("Sheet8").Range("C1")

　End With

End Sub

次のコードは、表の3列目を「500以上」の値で絞り込むマクロである。 絞り込み条件（抽出条件）を指定する引数名として正しいものを解答しなさい。

Sub Exam1()

  Range("A1").AutoFilter Field:=3,   ">=500"

End Sub 

次のコードは、2列目が"Germany"であるデータを、見出し行も含め全てSheet5のセルB1へコピーするマクロである。

コードの実行結果 個分のセルがコピーされた。

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

Sub Exam1()

　With Range("A1").ListObject.Range

　　.AutoFilter 2, "Germany"

　　.Copy Sheets("Sheet6").Range("B1")

　　.AutoFilter 2

　End With

End Sub

次のコードは、A列に入力されている文字列や数値、記号が混在している値の中からコードをカンマで区切り、数値のみをB列に代入するマクロである。

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

Sub Exam1()

　Dim i As Long, A As Variant, C As 

　For i = 2 To 11

　　A = Split(Cells(i, 1), ”,”)

　　For Each C In

　　　If IsNumeric(C) = True Then

　　　　Cells(i, 2) = C

　　　End If

　　Next C

　Next i

End Sub

次のコードは並べ替える時に、数値とテキストを別々に扱うマクロである。

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

Sub Exam1()

　With Sheets(“Sheet2”).Sort

    .SortFields.Clear

    .SortFields.Add2 Key:=Range(“C2”), SortOn:=xlSortOnValues, Order:=xlAscending, :=

　 .SetRange Range(“A1:D11”)

    .Header = xlYes

    .Apply

 End With

End Sub

次のコードは、D列を基準に降順でデータを並べ替えるマクロである。

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

Sub Exam1()

　With Sheets("Sheet2").

  　..Clear

　  .SortFields.Add2 Key:=Range("D2"), _

　　SortOn:=xlSortOnValues, _

　　Order:=xlDescending, _

　　DataOption:=xlSortNormal

    .SetRange Range("A1:D9")

    .Header = xlYes

    .Apply

 End With

End Sub

以下の文章はテーブルの部位「行」を指定する説明である。

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

・テーブルの「行」を指定する方法

構造化参照を使って(Rangeとテーブル名を使用して)、テーブルの行を指定することはできません。

テーブルの行を指定したいときは、ListObject. で行全体を表します。

文字列が含まれるセルがあるかどうかを判定してメッセージを表示するマクロである。

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

なおFunctionプロシージャ内のInStr関数は、検索文字列の指定のセル範囲で見つかった場合は位置を数値で返し、見つからなかった場合は0を返す関数である。

Sub Exam1()

　Dim SearchCell As String

　　SearchCell = InputBox("探したい文字列は？")

　If SearchCell <> "" Then

　　If FindStringInSheet (SearchCell) = True Then

　MsgBox("検索した文字列は見つかりました。")

　　　Else

　　　　　MsgBox("検索した文字列は見つかりませんでした。")　　

　　　End If

　　End If

End Sub

Function FindStringInSheet(searchString As String) As Boolean

　Dim cell As Range

　For Each cell In ActiveSheet.Range("A1:C11")

　　If InStr(cell.Value, searchString) > 0 Then

　　　　FindStringInSheet = True

　　　　Exit Function

　　End If

　Next cell

　　　　FindStringInSheet =

End Function

次のマクロは検索したセルの範囲を変換しコピーするマクロである。

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

Sub Exam1()

　Dim A As Range

　Set A = Range(“A:A”).Find (What:=“7”)

　If A Is Nothing Then

　　　MsgBox “0”

　Else

　　A. (1, 3). Copy Range(“E2”)

　End If

End Sub

次のコードは、新たにDocumentsフォルダの下にReportsフォルダを作成するマクロである。

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

Sub Exam1()

　 "C:¥Documents¥Reports"

End Sub

以下のコードはオートフィルターで絞り込みをし、その後オートフィルターを解除するマクロである。

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

Sub Exam1()

 Range("A1").AutoFilter 2, "Japan"

  Range(Range("D2"), Cells(Rows.count, 4).End(xlUp)) = "ASIA"

 Range("A1").

End Sub

次のマクロはオブジェクト変数を使用したマクロである。

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

次のコードは、テーブルのすべてをSheet11のセルB2へコピーするマクロである。

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

Sub Exam1()

　Range("table1 ").Copy Sheets("Sheet11").Range("B2")

End Sub

次のコードは、１番目、2番目の並べ替え基準を指定し並び替えを実行するマクロである。

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

Sub Exam1()

　Range("A1:C11").Sort Key1:=Range("B1"), Order1:=xlDescending, :=Range("C1"),  :=xlAscending, Header:=xlYes

　　MsgBox Range("C3").Value

End Sub

次の文章はデバッグ作業の内 、マク口のコードを1行ずつ止めながら実行する説明である。

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

・VBE内のマク口のコードを1行ずつ止めながら実行するのが です。

・「上記空欄と同じ」の操作をコードの最初から行うには、実行したいプロシージャの中にカーソルを置き、 キーを押します。 

・実行すると、プロシージャのカーソル置いた箇所が黄色くハイライトされます。

これ以降、「上記空欄と同じ」キーを押すたびに、 1行ずつマクロが実行されます。

次のコードは、表のセル範囲A3:C11のみを、3列目を基準として降順に並べ替えるマクロである。

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

Sub Exam1()

　Range("A3:C11").Sort Key1:=Range("C3"), Order1:=xlDescending, Header:=

End Sub

次のコードを実行したとき、変数Nに格納される値を解答しなさい。

値はである。

Sub Eaxam1()

　Dim N As Boolean

　　N= IsDate("2024/13/01")

End Sub 

次のコードは、B列全体から”Japan”を検索し、見つかったセルの２つ右のセルに”ASIA”を入力するマクロである。

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

Sub Exam1()

　Dim A As Range

　Set A = Range ("") .Find(What:=“Japan”)

　If Not A Is Nothing Then

　　A.Offset(0, 2) = “ASIA”

　End If

End Sub

以下のコードは、テーブル内の"Data2"列のデータ部分を選択するマクロである。

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

Sub Exam1()

　Range("table1 ").Select

End Sub

次のコードは、引数を使わず変数Cを共有し初期値を設定するマクロである。

1 ～ 4の内 で変数の宣言と初期化を行うのが適切である。
適切なものを解答しなさい。

変数の宣言と初期化：　Dim C As Long

Option Explicit

【　1　】

Sub Exam1()

【　2　】

　C = 10

　Call Exam2

End Sub

Sub Exam2()

【　3　】 　

　C = C + 5

　Call Exam3()

End Sub

Sub Exam3

【　4　】

　MsgBox "Cの値は" & C

End Sub

次のコードは、Do…Loopステートメントにより変数の値が指定した条件まで

処理を繰り返し続け、指定条件となった時は、処理を抜けてLoopの次の行からの処理を行うマクロである。

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

：Exit Doが実行されるとき変数「i」の値は である。

Sub Exam1()

　Dim i As Long, N As Long

　Do While i < 100

　　i = i + 1

　　Cells(i, 1).Offset(0, 2) = 20

　　N = N + 20

　　If N > 150 Then

　　　Exit Do

　　End If

　Loop

　MsgBox “End”

End Sub

モジュールの先頭に記述することで、すべての変数に対して事前の宣言を強制する語句を解答しなさい。

記述：

次のコードを実行後、メッセージに表示される値は である。

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

Sub Exam1()

　Dim N As Long

　　With Range("A1").ListObject

　　　.DataBodyRange.AutoFilter 3, "800"

　　　.ListColumns(1).DataBodyRange.Value = "―"

　　　.DataBodyRange.AutoFilter 3

　　End With

　　　N = WorksheetFunction.SumIf(Range("A1:A10"), "1", Range("C1:C10"))

　　　　MsgBox N

End Sub