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

以下のコードはオブジェクト変数を用いて、シートの追加やアクティブシートを指定するマクロである。

マクロ実行後のアクティブシートのシート名を解答しなさい。

・マクロ実行後のアクティブシートのシート名は である。

なおオブジェクト変数「ws1」に格納されたシートの名前は「Sheet1」である。

Sub Exam1() 　

　Diｍ ws1 As Worksheet , ws2 As Worksheet 　

　Set ws1= ActiveSheet 　

　Set ws2 = Worksheets.Add　　

　　ws1.Activate 　　

　　ws2. Name = "Total"

End Sub

以下のコードは配列を使用し、実行した結果メッセージに"Canada"が表示されるマクロである。

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

Sub Exam1()

　Dim countries(   To 4) As String

　countries(0) = “Canada”

　countries(1) = “France”

　countries(2) = “Germany”

　countries(3) = “Italy”

　countries(4) = “Japan”

　　　MsgBox countries(「上記空欄と同じ」)

End Sub

以下のコードは、表の2列目が “Canada “または"United Kingdom"の条件で絞り込むマクロである。

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

Sub Exam1()

　　Range( “A1 “).AutoFilter 2,  “Canada “, ,  “United Kingdom"

End Sub

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

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

Sub Exam1()

　 "C:¥Documents¥Reports"

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

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

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

Sub Exam1()

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

End Sub

並べ替えを実行する際、の説明として以下の空入る正しいものを解答しなさい。

・タイトル行（ヘッダー）があるかどうかをExcelに自動判別させる設定としてを引数として指定する。

なお数値で指定する場合はを指定する。

次のコードはテーブルにオートフィルターをかけた後、

構造化参照でデータ部分から行を特定し、フィルターで特定したデータを含む行全体を削除するマクロである。

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

Sub Exam1()

　Range(”table1”).AutoFilter 3, ”900”

　　Range(”table1 ”).EntireRow.Delete

　Range(”table1”).AutoFilter 3

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

次のコードはテーブル全体をコピーするマクロである。

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

なおテーブルの名前は画像の左上に表示されています。

Sub Exam1()

　　With Range(" [ ]")

　　　.Copy Sheets("Sheet12").Range("B2")

　　End With

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

次のコードは、1列目を”7”を検索し、見つかったセルを含む１列目から3列目までのセルをコピーし貼り付けするマクロである。

マクロ実行後セルF2内の値はある。

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

Sub Exam1()

　Dim A As Range

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

　If A Is Nothing Then

　　　MsgBox “0”

　Else

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

　End If

End Sub

次のコードは、Cドライブ下の”Documents”フォルダ内にreport.xlsxというファイルがあるか調べ、

ある場合はメッセージボックスにファイル名を表示するマクロである。

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

Sub Exam1()

　Dim A As String

　A = (“C:\Documents\report.xlsx”)

　If A ““ Then

　　　MsgBox “OK:” & A

　Else

　　　MsgBox “NG”

　End If

End Sub

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

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

次のコードは、セルの値が日付かどうかを判定し、日付であれば"True"、日付でなければ"False"をメッセージボックスに表示するマクロです。

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

Sub Exam1()

　Dim i As Variant

　i = Range(“A1”).Value

　If  (i) Then

　　MsgBox “True”

　Else

　　MsgBox “False”

　End If

End Sub　

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

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

Sub Exam1()

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

End Sub

以下のコード「Exam1」と「Exam2」は同じ結果になるマクロである。

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

Sub Exam1()

　Dim i As Long, A As Long

　i = 1

　Do

　　A = A + Cells(i, 1) * 2

　　i = i + 1

　Loop    Cells(i, 1) = "STOP"

　MsgBox A

End Sub

ーーーーーーーーーーーーーーーーー

Sub Exam2()

　Dim i As Long, A As Long

　i = 1

　Do

　　A = A + Cells(i, 1) * 2

　　i = i + 1

　Loop While Cells(i, 1) "STOP"

　MsgBox A

End Sub

次のコードは、漢字が入力されているC列各セルに対して、

ふりがなが設定されていればそのふりがなを、

ふりがなの設定がなく漢字がそのまま入力されている時

は"0"と、D列の各セルに入力するマクロである。

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

Sub Exam1()　

　Dim i As Long

　For i = 2 To 10

　　If Cells(i, 3). .Text = "" Then 

　　　Cells(i, 4) = "0"　

　  Else

　　　Cells(i, 4) = Cells(i, 3).「上記空欄①と同じ」.

　  End If

　Next i

End Sub

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

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

Sub Exam1()

　With Sheets(“Sheet2”).Sort

    .SortFields.Clear

    .SortFields.Add2 Key:=Range(“D2”), SortOn:=xlSortOnValues, Order:=, DataOption:=xlSortNormal

　 .SetRange Range(“A1:D11”)

    .Header = xlYes

    .Apply

 End With

End Sub

次のコードは、2列目の値が600から750のときは３列目に”Medium”を代入し、1000または1100の値の時は3列目に”High”を代入するマクロである。

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

Sub Exam1()

　　Dim i As Long

　　For i = 2 To 11

　　　Select Case Cells(i, 2)

　　　　Case 600 750

　　　　　Cells(i, 3) = “Medium”

　　　　Case 1000 1100

　　　　　Cells(i, 3) = “High”

　　　End Select

　　Next i

End Sub

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

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

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

Sub Exam1()

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

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

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

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

Sub Exam1()

　Dim A As Range

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

　MsgBox A.Offset(0, 1)

End Sub

次のコードはB列が”Tomato”だった時の、C列の合計を表示するマクロである。

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

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

Sub Exam1()

　Dim i As Long, N As Long

　For i = 2 To 10

　　If Cells(i, 2) = "Tomato" Then

　　　N = N + Cells(i, 3)

　　End If

　Next i

　　MsgBox N

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

次のコードは、変数Bのデータの形式を判定してメッセージボックスに表示するマクロである。

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

次のコードは、表のセル範囲を一行目は見出し行とし、2列目を基準に降順に並び替えるマクロである。

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

Sub Exam1()

 With Sheets(“Sheet2”).Sort

  .SortFields.Clear

  .SortFields.Add2 Key:=Range(“B2”), Order:=xlDescending

  .SetRange Range(“A1:C11”)

  .Header =

  .MatchCase = False

  .Orientation = xlTopToBottom

  .Apply

 End With

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