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

以下のコード「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

以下のコードは、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

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

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

Sub Exam1()

　Dim A As Long

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

End Sub

次のコードは、セルA1から順に下方向にチェックし、空白セルが見つかるまで処理を繰り返すマクロである。 空欄に入る適切な語句を解答しなさい。


Sub Exam1()

　Dim i As Long

    　 i = 1

　 While Cells(i, 1).Value ""

       i = i + 1

End Sub 

次のコードは、条件を満たした際に処理を実行する条件分岐のマクロである。

D列に入力された値の合計値は である。

Sub Exam1()

　Dim i As Long

　　For i = 2 To 11

　　　If Cells(i , 1) = “2” Then

　　　　If Cells(i , 2) = “Boxing” Then  Cells (i, 4) = Cells(i, 3) * 2

　　　End If

　　　If Cells(i , 1) = “3” Then

　　　　　If Cells(i , 2) = “Rugby” Then  Cells (i, 4) = Cells(i, 3) * 3

　　　End If

　Next i

End Sub

次のコードは、表の指定範囲を2列目を基準に上下に並び変えるマクロである。

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

Sub Exam1()

 With Sheets(“Sheet2”).Sort

  .SortFields.Clear

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

  .SetRange Range(“A1:C11”)

  .Header = xlYes

  .MatchCase = False

  . = xlTopToBottom

  .Apply

 End With

End Sub

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

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

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

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

Sub Exam1()

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

End Sub

以下のコードは、1列目と2列目の値によって3列目に値を代入するマクロである。

このマクロの実行結果であるC列の合計行セルC12の値は であった。

Sub Exam1()

　Dim i As Long

　For i = 2 To 11

　　Select Case Cells(i, 1)

　　Case “Japan”

　　　Select Case Cells(i, 2)

　　　Case “60”

　　　　Cells(i, 3) = 900

　　　Case “80”

　　　　Cells(i, 3) = 1000

　　　Case “100”

　　　　Cells(i, 3) = 1100

　　　End Select

　　End Select　

　 Select Case Cells(i, 1)

　　Case “United States”

　　　Select Case Cells(i, 2)

　　　Case “60”

　　　　Cells(i, 3) = 1000

　　　Case “80”

　　　　Cells(i, 3) = 1100

　　　Case “100”

　　　　Cells(i, 3) = 1200

　　　End Select

　　End Select

　Next i

End Sub

次のコードは、セルA1を含む表に対して、2列目を基準にオートフィルターを設定するマクロである。空欄 に入る適切な引数名を解答しなさい。

Sub Exam1()

　　Range("A1").AutoFilter := , Criteria1:="White"

End Sub 

以下のコードを実行したとき、メッセージボックスに表示される値はである。

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

Sub Exam1()

　With Sheets(“Sheet1”). Sort

　.SortFields. Clear

　.SortFields.Add Key:=Range(“D2”), CustomOrder:=“ASIA,EU,NorthAmerica,Other”

    .SortFields.Add Key:=Range(“C2”), Order:=xlDescending

　.SetRange Range(“A1:D10”)

　.Header = xlYes

　.Apply

　End With

　　MsgBox Range(“C3”).Value

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

次のコードは指定のセルを含むテーブルを絞り込み、テーブル内の2列目のみコピーするマクロである。

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

Sub Exam1()

　With Range("A1").ListObject

　　.Range.AutoFilter 3, "800"

　　. (2).Range.Copy Sheets("Sheet10").Range("B2")

　End With

End Sub

次のコードは、ブックの保存状態を調べ、調べた結果に応じたメッセージを表示するマクロです。

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

Sub Exam1()

　ThisWorkbook.SaveAs “book.xlsm”

  　If ThisWorkbook.   = True Then

　　MsgBox “Changed”　

 　Else

　　MsgBox “No Changed”

 End If

End Sub

次のコードはセル内の書式を統一し、その書式を統一した値を同じセルに代入するマクロである。

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

Sub Exam1()

　Dim i As Long

　Dim j As Long

　For i = 2 To 6

　　For j = 1 To 3

　　　Cells(i, j). = "yy/mm/dd"

　　　Cells(i, j).Value = Cells(i, j).Value

　　Next j

　Next i

End Sub

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

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

Sub Exam1()

　With Sheets(“Sheet2”).Sort

　　.SortFields.Clear

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

　　.SetRange Range(“A1:D11”)

　　.Header = xlYes

　　　.Apply

　End With

End Sub

次のコードは、セルA1を含む表を指定条件で絞り込み、４列目にREDと入力するマクロである。

なお、セル範囲を特定する際にEndモードを使用しているがシートの上から下に向かって進んでセル範囲を特定している。

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

Sub Exam1()

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

　　Range (Range ("D2"), Cells (2, 4).End()) ＝ "RED"

End Sub

次のコードは、１列目に入力されている"Japan"という文字列が入力されているセルの個数をカウントし、

メッセージボックスに個数を表示するマクロである。

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

Sub Exam1()

　Dim i As Long, count As Long

　For i = 2 To 11

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

　　　count = count +

　End If

　Next i

　　MsgBox count

End Sub

次のコードは、見出し行もふくめ全て選択後、行数を表示するマクロである。

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

なおテーブル名は”table1”である。

Sub Exam1()　

　With Sheets("sheet1").ListObjects (” ”).Range.Select

　 MsgBox Selection.Rows.Count

　End With

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

次のコードは、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

次のコードは、セルA1を含む表に対して3列目が"100以上かつ、300以下"の条件で絞り込むマクロである。

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

Sub Exam1()

　Range("A1").   3, ">=100",  , "<=300"

End Sub

以下のコードを実行後、表示される値はである。

空欄に入る値を答えなさい。

Sub Exam1()

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

　　MsgBox Range("C2").Value + Range("C7").Value

End Sub

次のコードは、テーブル内のセルよりテーブル全体を特定し、コピーを実行するマクロである。

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

Sub Exam1()

　Range(”A1”).  ..Copy Sheets(”Sheet7”).Range(”B1”)

End Sub

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

値はである。

Sub Eaxam1()

　Dim N As Boolean

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

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