【ランダム順出題】Excel VBA スタンダード 模擬試験　200問中40問ランダム出題　ベータ版

次のコードは、テーブル内の見出しを含む「Data3」列を指定するマクロである。

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

Sub Exam1()

  Range("table1[[ ],[ ]]").Select

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

以下のコードは、エラーが発生したら処理をError1:へジャンプさせ、エラーの内容をイミディエイトウィンドウに表示するマクロである。

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

Sub Exam1()

　On Error Goto ErrorHandler

　Dim ws As Worksheet

　　Set ws = Worksheets("Sheet")

　　ws.Range("A1") = Cells(1, 1).Value

　Exit Sub

ErrorHandler:

　　Debug.Print "Error" &  .  

End Sub

次のコードは実行したとき、メッセージボックスには６が表示されるマクロである。

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

　Dim N As Long

　ReDim N(3)

　　N(0) = 0

　　N(1) = 1

　　N(2) = 2

　　N(2) = 3

　　 MsgBox N(0) + N(1) + N(2) + N(3)

End Sub

次のコードは、アクティブブックを"Documents"フォルダ内に「total_8.xlsm」として保存するマクロである。

なおファイル名の「8」は、実行時8月現在の月を表示したものである。

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

Sub Exam1()

　ActiveWorkbook. "C:\Documents¥" & "total_" & Month( ) & ".xlsｍ"

End Sub

次のコードは、アクティブブックを"Documents"フォルダ内に「total_7.xlsx」として保存するマクロである。

なおブック名の「7」は、7月現在の月を表示したものである。

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

Sub Exam1()

　ActiveWorkbook. "C:\Documents¥" & "total_" & (Now) & ".xlsｍ"

End Sub

以下のコードは、指定したセル範囲から値をひとつずつ取り出し、変数に格納するマクロである。

実行後メッセージに表示された値は である。

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

Sub Exam1()

　Dim N As Range, A As Long

　For Each N In Range("A1:A10")

　　A = A + N

　Next N

　MsgBox A

End Sub

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

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

Sub Exam1()

　With Sheets(“Sheet2”).

　　..Clear

　　.上記空欄と同じ.Add2 Key:=Range(“D2”), _

　SortOn:=xlSortOnValues, _

　Order:=xlDescending, _

　DataOption:=xlSortNormal

　.SetRange Range(“A1:D9”)

　.Header = xlYes

　　.Apply

　End With

End Sub

次のコードは、指定された範囲内の"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

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

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

イミディエイトウィンドウに range("C2").Value　

のように*上記空欄と同じを先頭につけて入力し、エンターキーを押すと、

プロパティの値や変数の値、関数の結果を調べてイミディエイトウィンドウに表示することができます。

例：Valueプロパティ

以下のコードは、同じ行の2列目から4列目に入力されている値から日付を作成し、1列目に入力するマクロである。

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

Sub Exam1()

　Dim i As Long

　For i = 2 To 11

　　Cells(i, 1).Value =  (Cells(i, 2).Value, Cells(i, 3).Value, Cells(i, 4).Value)

　Next i

End Sub

次のコードは、

対象のセル範囲に負の数があれば、メッセージボックスに”－”と表示後、繰り返し処理を終了し、"0"が見つかった場合にはメッセージを表示後、プロシージャを終了するマクロである。

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

Sub Exam1()

　Dim cell As Range

　Dim sourceRange As Range

　　Set sourceRange = Worksheets("Sheet1").Range("A1:A10")

　　　For Each cell In sourceRange

　　　　If cell.Value < 0 Then

　　　　　MsgBox "－"

　　　　　Exit

　　　　ElseIf cell.Value = 0 Then

　　　　　MsgBox "0"

　　　　　Exit

　　　　End If

　　　　　Next cell

　End Sub

次のコードは、Cドライブ下のDocumentsフォルダ内で、ファイル名"total2023.xlsx "を"backup2023.xlsx"と名前を変えてファイルをコピーするマクロである。

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

Sub Exam1()

　FileCopy "C:\Documents¥total2023.xlsx" "C:\Documents¥backup2023.xlsx"

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 B As Variant

　Dim i As Long

　B = Split(“baseball:football:basketball”, “:”)
　
　For i = (B) To UBound(B)　　

　　MsgBox B(i)

　Next i

End Sub

次のコードは、For…Nextステートメントを用いて、1列目の値が”Boxing”

か”Swimming”のときは2列目に”〇”を代入し、

それ以外の時は2列目に”Ballgame”を代入するマクロである。

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

Sub Exam1()

　　Dim i As Long

　　For i = 2 To 11

　　　Select Case Cells(i, 1)

　　　　 Case “Boxing”   “Swimming”

　　　　　Cells(i, 2) = “〇”

　　　　Case 

　　　　　Cells(i, 2) = “Ballgame”

　　　End Select

　　Next i

End Sub

次のコードは、表を４つの配列の値で絞り込むマクロである。

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

Sub Exam1()

　Dim Criteria(3) As String

　Criteria(0) =  “Apple"

　Criteria(1) =  “Banana “

　Criteria(2) =  “Mango"

　Criteria(3) =  “Grape"

　　Range( “A1 “).AutoFilter Field:=2, Criteria1:=Criteria, Operator:=

End Sub

次のコードは、エラーが発生した際に、エラー番号に応じて適切なメッセージを表示するマクロである。

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

次のコードは実行すると「Banana」と表示するマクロである。

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

Sub Exam1()

　Dim A As Range

　　Set A = Range("A2:A10").Find(What:=" ", Lookat:= xlWhole)

　MsgBox A.Offset(0, 1)

End Sub

次のコードを実行した結果、D列に代入された数値の合計値は である。

Sub Exam1()

　Dim i As Long

　For i = 2 To 10

　　If Cells(i, 1) = "ASIA" Then Cells(i, 4) = Cells(i, 3) * 4

　　If Cells(i, 1) = "EU" Then

　　　If Cells(i, 2) = "France" Then Cells(i, 4) = Cells(i, 3) * 3

　　　If Cells(i, 2) = "Germany" Then Cells(i, 4) = Cells(i, 3) * 2

　　End If

　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

以下のコードは、A列を検索し、見つかったセルからC列までをセルE2へコピーするマクロである。

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

Sub Exam1()

　Dim A As Range

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

　　If A Is Nothing Then

　　　MsgBox “0”

　　Else

　　　Range(A, A.End()).Copy Range(“E2”)

　　End If

End Sub

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

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

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

Sub Exam1()

　Dim i As Long, parts As Variant

　For i = 2 To 10

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

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

　Next i

End Sub

次のコードはテーブルの右側に列を追加し、セルに値を入力するコードである。

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

Sub Exam1()

　Dim A As Long

　With Range("A1").ListObject

　　.ListColumns.  

　　　A = .ListColumns.Count

　　.ListColumns(A).DataBodyRange = "=[@Data3]*0.7"

　End With

End Sub

次のコードは、指定したセル範囲に入力されている数値を合計し、

その合計値を別のセルに入力するマクロである。

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

Sub Exam1()

　Range("B20") =   .   (Range("B1:B19"))

End Sub

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

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

なお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()

　ThisWorkbook.SaveAs “book.xlsm”

  　If ThisWorkbook.   = True Then

　　MsgBox “Changed”　

 　Else

　　MsgBox “No Changed”

 End If

End Sub

以下のコードは、セルA1を含む表の3列目を300より小さい条件で絞り込み、

その結果全体をSheet5のセルC1にコピーするマクロである。

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

Sub Exam1()

　Range("A1").AutoFilter 3, "<300"

　Range("A1"). .Copy Sheets("Sheet5").Range("C1")

End Sub

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

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

Sub Exam1()

　 "C:¥Documents¥Reports"

End Sub

次のコードは、"C:\Local\total.xlsx"のブックを開いた後、

"C:\Backup\total_backup.xlsx"へ場所やファイル名かえてブックを保存するマクロである。

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

Sub Exam1()

　Workbooks. "C:\Local\total.xlsx"

　ActiveWorkbook. "C:\Backup\total_backup.xlsx"

　ActiveWorkbook.Close

End Sub