【ランダム順出題】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

次のコードは表内を検索するマクロである。実行すると”Soccer”と表示された。

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

Sub Exam1()

　Dim A As Range

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

　　MsgBox A. Offset  

End Sub

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

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

Sub Exam1()

　Dim ws As Worksheet

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

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

End Sub

次の文章は、デバッグ作業で使うイミディエイトウィンドウの説明と出力コードです。

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

次のコードは実行すると、イミディエイトウィンドウに「12345」を出力します。

Sub Exam1()

　 . 12345

End Sub

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

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

Sub Exam1()

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

End Sub

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


Sub Exam1()

　Dim i As Long

    　 i = 1

　 While Cells(i, 1).Value ""

       i = i + 1

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

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

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

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

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

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

Sub Exam1()

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

End Sub

次のコードは、B列に入力されている数値のうち

「5番目に小さい数値」を指定のセルに代入するマクロである。

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

Sub Exam1()

　　Range("E3") = WorksheetFunction. (Range("B1:B20"), 5)

End Sub

次のコードは、A列に入力されている値から、当月の月末日を表示するマクロである。

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

Sub Exam1()

　Dim endOfMonth As Date

　endOfMonth = WorksheetFunction. ( (Range(“A1”).Value, Range(“A2”).Value, Range(“A3”).Value), 0)

　　MsgBox “月末の日付は” & endOfMonth

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

次のコードは、ブックが保護されているかどうかを確認するマクロです。

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

Sub Exam1()

　If ThisWorkbook.   = True Then

　　MsgBox “Protected”

　Else

　　MsgBox “NG”

　End If

End Sub

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

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

Sub Exam1()

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

End Sub

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

Sub Exam1()

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

End Sub 

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

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

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

なおオブジェクト変数「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

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

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

Sub Exam1()

　　Range("A1").AutoFilter 3, ">=200", , "<=400"

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

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

Sub Exam1()

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

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

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

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

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

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

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

Sub Exam1()

　ThisWorkbook.SaveAs “book.xlsm”

  　If ThisWorkbook.   = True Then

　　MsgBox “Changed”　

 　Else

　　MsgBox “No Changed”

 End If

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

次のコードは、引数を使わず変数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

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

次のコードは、2列目の各セルに入力されている全角文字を半角文字に変換するマクロである。

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

Sub Exam1()

以下のコードは、セル内のデータが数値かどうかを判定し、数値であれば”True”、数値でなければ”False”をメッセージボックスに表示するマクロです。

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

Sub Exam1()

　Dim cellValue As Variant

　cellValue = Range(“A1”).Value

　If  (cellValue) Then

　　MsgBox “True”

　Else

　　MsgBox “False”

　End If

End Sub