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

次のコードは、表のセル範囲を大文字小文字は区別せず並び替えるマクロである。

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

Sub Exam1()

 With Sheets(“Sheet2”).Sort

  .SortFields.Clear

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

  .SetRange Range(“A1:D11”)

  .Header = xlYes

  . = False

  .Apply

 End With

End Sub

以下のコードは、セル範囲A1:A5に入力された数値のうち最も小さい値をセルC1へ代入するマクロである。

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

Sub Exam1()

　　Range("C1") = WorksheetFunction. (Range("A1:A5"))

End Sub

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

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

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

Sub Exam1()

　With Range("A1").ListObject.

　　.AutoFilter 3, "700"

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

　End With

End Sub

次のコードは、指定された範囲内で特定の値を検索し、その値が見つかったセルの相対的な位置をメッセージボックスで表示するマクロである。

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

Sub Exam1()

　Dim searchValue As String

　Dim result As Variant

　　searchValue = “Baseball”

     result = Application. (searchValue, Range(“A2:A11”), 0)

   If IsNumeric(result) Then

     MsgBox searchValue & “ は “ & result & “ 番目にあります。”

  Else

    MsgBox searchValue & “ は見つかりませんでした。”

  End If

End Sub

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

Sub Exam1()

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

End Sub 

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

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

Sub Exam1()

　Dim A(3) As Long, N As Variant, i As String

　A(0) = 3

　A(1) = 5

　A(2) = 11

　A(3) = 9

　For Each N In A

　　i = i & N

　Next N

　　MsgBox i

End Sub

次のコードはシートの左側のテーブルが最初に作成され、右側のテーブルが2番目に作成されたマクロである。

この状態でマクロを実行したとき、下線が設定されたセルの値は である。

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

Sub Exam1()

  With ActiveSheet.ListObjects(2)

    .Range.AutoFilter 2, ”Germany”

     .ListColumns(3).DataBodyRange.Font.Underline = True

  End With

End Sub 

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

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

Sub Exam1()

　With Range("A1").ListObject

　　.Range.AutoFilter 3, "800"

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

　End With

End Sub

次のコードは、全ての開いているブックの中に"VBA"という名前のシートがあるか確認するマクロである。

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

Sub Exam1()

Dim wb As Workbook

　Dim ws As Worksheet

　For Each wb In

　For Each ws In wb.Sheets

　If ws.Name = “VBA” Then

　　MsgBox “OK”

　　Exit Sub

　End If

　Next ws

　Next wb

　　MsgBox “Nothing”

End Sub

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

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

Sub Exam1()

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

End Sub

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

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

Sub Exam1()

　If ThisWorkbook.   = True Then

　　MsgBox “Protected”

　Else

　　MsgBox “NG”

　End If

End Sub

次のコードは、指定されたセル範囲の中から空欄をチェックし、最初に見つかった空欄セルの位置をメッセージボックスで表示するマクロです。

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

Sub Exam1()

　Dim cell As Range

　For Each cell In ("A1:A10")

　　If cell.Value = "" Then

　MsgBox cell.  

　　　Exit Sub 　

　End If

　Next cell

End Sub

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

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

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

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

Sub Exam1()

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

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

コードにブレークポイントを設定方法する方法は大きく分けて2つあります。

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

1．設定したい行にカーソルをおき キーを押して設定する。

2．設定したいコード行の左側にあるインジケーターバーをクリックすることで設定できます。もう一度クリックすると解除されます。

・設定した箇所は茶色でハイライトされます。また、ブレークポイントを設定した箇所はまだ実行がされていない 状態で一時停止します。

・デバッグモードで一時停止を再開する場合は、 キーを押すと、該当箇所が黄色でハイライトされた状態になります。

*縦長のバーをクリックする。

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

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

Sub Exam1()

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

End Sub

以下のコードは、ユーザーが指定した語句の順番に並び替えるマクロである。

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

Sub Exam1()

　With Sheets("Sheet1"). Sort

　.SortFields. Clear

　.SortFields.Add Key:=Range("B2"), CustomOrder:="Golf  Basketball 「空欄と同じ」Tennis"

　.SetRange Range("A1").CurrentRegion

　.Header = xlYes

　.Apply

 End With

End Sub

次のコードは実行したとき、メッセージボックスに「40」と表示するマクロである。

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


Sub Exam1()

　Dim B As Long

　B = 20

　Call ModifyValue(B)

　MsgBox B

End Sub

Sub ModifyValue( B As Long)　

　B = B * 2

End Sub

以下のコードは、表の指定範囲の2列目を降順で上下に並び替えるマクロである。

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

Sub Exam1()

 With Sheets(“Sheet2”).Sort

  .SortFields.Clear

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

  .SetRange Range(“A1:D10”)

  .Header = xlYes

  .MatchCase = False

  .Orientation =

　 .Apply

 End With

End Sub

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

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

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

Sub Exam1()

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

End Sub

次のコードは日本語のふりがなを設定し、そのふりがなを使って並べ替えるマクロである。

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

Sub Exam1()

    Range("C2").Phonetic.Text = "ニッタ"

    Range("C3").Phonetic.Text = "シンデン"

    Range("C4").Phonetic.Text = "アラタ"

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

End Sub

次のコードは、セルA1を含む表を2列目が "Potato"と等しい条件で絞り込み、

絞り込んだ結果の値の合計をメッセージボックスに表示するマクロである。

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

Sub Exam1()

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

　　MsgBox WorksheetFunction.Subtotal(, Range("A:A"))

End Sub

次のコードは、2列目の1行目から15行目に「5」を入力する時に、2列目のセルが空欄の場合には処理を一時停止するマクロである。

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

次のコードは、コードの途中で配列の要素数を増やし、その後メッセージボックスに"Germany"と表示するマクロである。

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

Sub Exam1()

　Dim Countries() As String

  Countries(2)

　Countries(0) = "Canada"

　Countries(1) = "France"

　Countries(2) = "Germany"

「上記空欄と同じ」 Countries(4)

　Countries(3) = "Italy"

　Countries(4) = "Japan"

　　MsgBox Countries(2)

End Sub

次のコードは、テーブルの見出し行のみを指定のシートへコピーするマクロである。

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

Sub Exam1()

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

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

以下のコードは、表の4列目を検索しセルの位置を特定しセルの値をセルG2へ入力するマクロである。

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

Sub Exam1()

　Range("G1") = WorksheetFunction.(Range("F1"), Range("A1:D10"), 4, False)

End Sub