【ランダム順出題】Excel VBA ベーシック 模擬試験　問題バンクから40問出題　ベータ版

個人用マクロブックに関する説明として、誤っているものを一つ選びなさい。

次のコードを実行した際に表示されるメッセージはどれか。

次の選択肢の中から正しいものを１つ解答しなさい。  

Sub Exam1()

　Dim A As Integer, B As String

　B = ”VBA”

　　MsgBox A & B

End Sub  

次のコードは、指定したシートの後ろにシートを3枚挿入するマクロである。

空欄に入る適切な語句を選択肢より１つ解答しなさい。

Sub Exam1()

 　Sheets.Add After:=Sheets(“Sheet1”), 【　 ①   】:＝3

End Sub

「=」など記号を使用した比較演算子が返す値に関する説明として、正しいものを一つ解答しなさい。

次のコード実行をしたときIsDate関数の戻り値は【　①　】であった。

空欄に入る語句として適切なものを選択肢の中から１つ選択しなさい。

Sub Exam1()

 Dim N As String

  N = Range(“A2”).Value

    If IsDate(N) = True Then

        MsgBox  N & “は日付形式です。”

    Else

        MsgBox  N & “は日付形式ではありません”

    End If

End Sub

変数の初期化について、正しい説明を選択肢より1つ選択しなさい。

次のコードは、シート名「sheet2」のセル内に文字列を代入するマクロである。

空欄に入る適切な語句を選択肢の中から1つ解答しなさい。  

Sub Exam1()

　Sheets(【　①   】).Range(“A1”).Value = “ABC”

End Sub  

ステートメントについて説明した以下の選択肢のうち、正しいものを1つ選択しなさい。

次のコードを実行した結果エラーとなるものを、選択肢の中から１つ選びなさい。  

次のコードは実行するとセルの値が下図の時、戻り値は【　①   】を返し、

変数Nに代入しメッセージで表示します。

空欄に入る適切な語句を選択肢より１つ解答しなさい。

Sub Exam1()

  Dim N As Variant

     N ＝ IsNumeric(Range(“A2”).Value) 

        MsgBox N         

End Sub

次のコードは、ブック内の各シートのA列の6行目までのセルに「VBA」が入力されているとき、入力されていた回数の合計を、ブックの１番左にあるシートのセルに代入するマクロである。

空欄に入る語句として、次の中から正しいものを１つ選択しなさい。

*なおブック内には、下図のようなシートが複数枚存在する。

１番左端にあるシート

Sub Exam1()

　　　Dim i As Long, j As Long, k As Long, N As Long

　　　　　For i = 2 To Sheets.Count

　　　　　　　With Sheets(i)

　　　　　　　　For j = 2 To 6

　　　　　　　　　With【　①   】

　　　　　　　　　　If .Value = “VBA” Then

　　　　　　　　　　　N = N + 1

　　　　　　　　　　End If

　　　　　　　　End With

　　　　　　　Next j

　　　　　　End With

　　　　Next i

　　　Sheets(1).Range(“A2”) = N

End Sub

次のコードはシートから別のシートへセルをコピーするマクロである。なおアクティブシートはシートの一番左端にある「sheet1」である。

このマクロの説明として、正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

　Sheets(“sheet1”).Range(“A2”).Copy _

Sheets(“sheet3”).Range(“A2”).Offset(1)

End Sub

標準モジュールを別のブックにコピーする方法として、適切なものを選択肢より一つ選びなさい。

すでに保存がされているアクテイブ状態のブックに対して、次のコードを実行した場合どうなるか。

説明として正しいものを、選択肢から１つ解答しなさい。

*なお保存先に同じ名前のブックはないものとする。

Sub Exam1()

　　ActiveWorkbook.Sheets(1).Range(“A1”) = “VBA”

　ActiveWorkbook.Close SaveChanges:=True, Filename:=”C:\User\Total.xlsx”

End Sub

VBAでセルを指定する際に使用する用語として、適切ではないものを選択肢から1つ解答しなさい。

リボンにある「Visual Basic」アイコンや開発タブについて、誤っているものを選択肢から1つ解答しなさい。

ClearContentsメソッドに関する説明として、適切でないものを選択肢の中から一つ解答しなさい。

標準モジュールの名前と名前の設定に関する説明として、適切なものを一つ解答しなさい。

次のマクロを実行したときの結果を説明した選択肢の中から、 説明が正しいものを１つ解答しなさい。

Option Explicit

　Public Const A As String = ”Excel”

　Const B As String = ”Word”

Sub Exam1()

　Const C As String = ”PowerPoint”

　　MsgBox( A & B & C ）

　Call Exam2

End Sub

Sub Exam2()

　MsgBox( A & B & C ）

End Sub

次のマクロを実行したとき、メッセージボックスに表示されるメッセージとして、正しいものを次の選択肢の中から１つ選択しなさい

Sub Exam1()

    MsgBox Replace(Range(”A2”), “a”, “”）

End Sub

次のコードは、マクロ実行前に表の列の最終行数がいくつかわからないときや、

列の最終行が変更となった時でも一番上から下へ進み最終行を見つけ、変わらず処理を実行するマクロである。

空欄に入る適切な語句を選択肢の中から１つ解答しなさい。

Sub Exam1()

   Dim i As Long, LastRow As Long

    LastRow = Range(“A1”).【　①   】

     For i ＝2 To LastRow

　　   Cells(i , 2) = Cells(i, 1)＊200

　　Next i

  End Sub

次のマクロの中でエラーとなるものを選択肢から１つ解答しなさい。

マクロの説明ついて、誤っているのものを選択肢から1つ解答しなさい。

コレクションについて説明した以下の選択肢のうち、誤っているものを1つ解答しなさい。

次のVBEの説明のうち正しいものを選択肢から1つ解答しなさい

以下のコードは、表内のA列奇数行のセル内の値が「1」のときに、D列に「―」と代入するマクロである。

空欄に入る語句として正しいものを選択肢より１つ解答しなさい。  

Sub Exam1()

　Dim i As Long

　　For i =11 To 2 【　①   】 -2

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

　　　　Cells(i, 4) = “―”

　　　End If 【　②   】 i

End Sub  

現在開いているブックが複数ある場合において、

2番目に開いたブックの左から3番目のシートのセルA1に値を代入するマクロとして、コードの空欄に入る正しいものを選択肢から1つ解答しなさい。

Sub Exam1()

　【　空欄    】

End Sub

変数や定数のコードとして、使用できるものを以下の選択肢の中から1つ解答しなさい。

以下のVBAのステートメントに関する説明として、正しいものを1つ解答しなさい。

次のマクロを実行したときに、セル内に表示される結果を次の選択肢から１つ解答しなさい。

Sub Exam1()

　Range(“A1”) = (9 ^ 3) + (11 Mod 2)

End Sub

図形やボタンに登録したマクロに関する説明として正しいものを以下の選択肢の中から一つ解答しなさい。

次のコードは、メッセージボックスに値を表示するマクロである。

表示される値として正しいものを選択肢の中から１つ解答しなさい。

Sub Exam1()

  MsgBox Format(“139765″,”0000000”)

End Sub

次のコードは表の最終行全体を削除するマクロである。

空欄に入る適切な選択肢を１つ解答しなさい。

Sub Exam1()

     Cells(Rows.Count, 1).End(xlUp).【　①    】. Delete     

End Sub

ブックに関する記述として間違っているものを、次の選択肢の中から１つ解答しなさい。

VBAの行継続文字について、次のうち正しい説明を選択肢より１つ解答しなさい。

次のコードを実行したとき、メッセージボックスに表示される変数Aの値はどれか。

選択肢の中から正しいものを１つ解答しなさい。

Sub Exam1()

　Dim i As Long, A As String

　　For i = 1 To 3

　　　　A = A & “&” & “VBA”

　　Next i

　　MsgBox A

End Sub

VBAのオブジェクト式の「プロパティ」について、誤っている説明を選択肢から1つ解答しなさい。

次のコードは条件にあったセルが見つかった時に、指定のセルに入力されている値をクリアにするマクロである。

セル内の値がクリアになったセルはどこか選択肢の中から一つ解答しなさい。

Sub Exam1()

    Dim i As Long

    For i = 2 To 11

        If Cells(i, 2) = “Southeast Asia” Then

           Cells(i, 2).Resize(, １).ClearContents

        End If

    Next i

   End Sub

マクロ記録の記録や保存先として適切でないものを選択肢から1つ選びなさい。