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

VBAの用語の説明として、正しいものを選択肢から1つ選びなさい。

Range(“A1:C3”) の説明として正しいものを選択肢から1つ選びなさい。

次のコードは、ブックに下図のようにシートが複数枚あるときに実行するマクロである。
実行結果を選択肢の中から1つ解答しなさい。

Sub Exam1()

　Sheets(“Sheet2”).Visible = False

　 Sheets(“Sheet2”).Select

End Sub

次のマクロを実行したとき、メッセージボックスに表示される変数の値について、

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

Sub Exam1()

   Dim i As Long, A As Long

    For i = 2 To 11

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

            A = Cells(i, 1).Offset(2, 1)

        End If

    Next i

    MsgBox A

End Sub

次のコードは、メッセージボックスに日付形式の「25/07/06」を表示するマクロである。

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

Sub Exam1()

　　 MsgBox Format(Range(“A2”), “【　①　】”)

End Sub

プロシージャの実行方法に関する説明として、正しいものを選択肢より一つ解答しなさい。

次のVBA全般の説明のうち、間違っているものを1つ解答しなさい。

デジタル署名について、誤った説明をしているものを選択肢から1つ解答しなさい。

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

VBAの演算子に関する説明として、間違っているものを選択肢より一つ解答しなさい。

次のモジュールの説明のうち誤っているものを選択肢から1つ解答しなさい。

以下の説明はVBAの関数について記述したものである。正しい選択肢を１つ解答しなさい。

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

変数の有効期間と値の保持に関する説明として、正しいものを1つ選択しなさい。

次のコードは、1年後の日付をメッセージで表示するマクロである。

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

なお実行日はうるう年ではないものとする。  

Sub Exam1()

　Dim A As Integer, B As Integer, C As Integer

A = Year(Now) + 1

　　B = 【　①   】(Now)

　　C = 【　②   】(Now)

　　　MsgBox “1年後は” & A & “年” & B & “月” & C & “日です。”

End Sub  

次のコードは、値を入力するダイアログボックスを表示するマクロである。

キャンセルボタンをクリックした時や、入力された文字列が何もない場合には、どのような値を戻り値として返すか。

適切な語句を選択肢より１つ解答しなさい。

Dim A As String

A = InputBox(“何か文字を入力してください。”, “VBA”)

以下の文書は、VBAの要素であるオブジェクト式について説明したものである。

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

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

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

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

Sub Exam1()

　　 MsgBox Format(Range(“A2”), “0#,###.##0”)

End Sub

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

変数についての説明として、正しいものを以下の選択肢から1つ解答しなさい。  

次のコードはブック内のシート名「VBA」のシートを探し、見つけた時はメッセージを表示するマクロである。

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

Sub Exam1()

   Dim i As Long

      For i = 1 To Sheets.Count

        If Sheets(i).【　①　】 = “VBA” Then

　　　　MsgBox　”シート名：VBAを見つけました。”

　　　End If

    Next i

End Sub

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

関数の引数について説明した以下の選択肢のうち、正しいものを1つ解答しなさい。

下記のコードを実行したとき、表内のセルの値が変わるセルの個数として正しいものを、

選択肢の中から1つ選びなさい。

Sub Exam1()

 Dim i As Long

   For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

　If Cells(i, 1) “Orange” Then

　  If Cells(i, 3) =“a” Or Cells(i, 3) = “b” Then

       Cells(i, 2).Value = Cells(i, 2).Value / 2

            End If

          End If

     Next i

End Sub

以下のマクロを実行時、セルを削除したあとに左方向にシフトする記述として空欄に入る語句を選択肢から１つ解答しなさい。  

Sub Exam1()

　Range(“C3”).Delete Shift:=【　①　】

End Sub

以下のマクロの変数Aに０～100までの整数を格納したい。

空欄に入る適当なものを一つ選択肢から解答しなさい。  

Sub Exam1()

　Dim A As 【　①　】

　A = 100

　　MsgBox A

End Sub  

VBEからマクロを実行する時の説明として間違っているものを、次の選択肢の中から2つ解答しなさい。    

クイックアクセスツールバー(QAT)を説明した以下の選択肢のうち、正しいものを１つ解答しなさい。

次のコードを、実行したときにメッセージボックスに表示される値は「令和07/09/17」である。

コードの空欄に入るものとして適切なものを選択肢より解答しなさい。

Sub Exam1()

　　 MsgBox Format(Range(“A2”), “ggg【　①   】/mm/dd”)

End Sub

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

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

Sub Exam1()

Dim i As Long

　For i = 2 To 11

　　 Cells(i, 2) = StrConv(Cells(i, 1),【　①    】)

　Next i

End Sub

標準モジュールの挿入と削除に関する説明として、間違っているものを選択肢より一つ解答しなさい。

次のマクロを実行した時に、メッセージボックスに表示される値は【　①　】である。

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

Sub Exam1()

    Dim A As Double

     A = Range(”A2”)

　    MsgBox Int(A)

End Sub

Callステートメントについての説明で正しいものを選択肢から1つ解答しなさい。

記録したマクロの確認について説明した以下の選択肢のうち、正しいものを1つ選びなさい。

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

マクロ記録の説明のうち、適切なものを選択肢から２つ解答しなさい。

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

クイックアクセスツールバー(QAT)ボタンについて説明した以下の選択肢のうち、正しいものを１つ解答しなさい。