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

次のマクロを実行したとき、メッセージボックスに表示されるボタンはどれになるか。

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

Sub Exam1()

　 Dim N As Long

　　N = MsgBox ( “完了”, vbAbortRetryIgnore)

End Sub

ブックに関する説明として正しいものを、次の中から2つ選択しなさい。

以下の選択肢のコードや、条件のときに実行すると「エラー」となるものを選択肢の中から１つ解答しなさい。

変数に日付を格納したい。この時の型指定文字として間違っているものを一つ解答しなさい。

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

次のコードは、ブック内の各シートの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

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

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

Sub Exam1()

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

End Sub

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

Sub Exam1()

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

End Sub

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

次のコードは単一セルのセルA3を、セル範囲をA3:B5に拡大し選択するコードである。空欄に入る語句として正しいものを１つ解答しなさい。

Range(”A3”).Resize【　①   】.Select

’指定のセルを3行２列にサイズ変更する。

セルのFormulaプロパティについての記述として、適切なものを選択肢から1つ解答しなさい。

プロシージャに関する説明として、適切でないものを一つ解答しなさい。

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

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

Sub Exam1()

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

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

End Sub

VBAのオブジェクト式においてメソッドとは以下のどれか、正しいものを選択肢より1つ解答しなさい。

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

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

Sub Exam1()

    Dim A As Double

     A = Range(”A2”)

　    MsgBox Int(A)

End Sub

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

VBEのコメント機能について説明した以下の選択肢のうち、正しいものを１つ解答しなさい。

以下の選択肢の中で、キー操作で複数のシートを選択する操作として、正しいものを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

次のコードを実行したとき、メッセージに表示される値を選択肢から解答しなさい。

Sub Exam1()

　　Dim i As Long, N As Long

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

　　　　If Cells(i, 1) = 1 Then

　　　　　N = N + Cells(i, 1).Value

　　　　End If

　　　Next i

　　　　MsgBox N

End Sub

Valueプロパティについての記述として、適切ではないものを選択肢から１つ解答しなさい。  

VBAのコレクションの説明として、正しいものを選択肢から1つ選びなさい。

VBAのオブジェクト式において、オブジェクトとは何を指すか、正しいものを選択肢から1つ解答しなさい。

次のコードは、セルA2の値が「North America」あるいは「South America」の時は、

セルC2に「America」が入力され、それ以外の場合には「ー」が入力されるマクロである。

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

Sub Exam1()

　If Range(“A2”).Value = “North America” Or Range(“A2”).Value = “South America” 【　①    】　
　
　　Range(“C2”).Value = “America”

 　【    ②   】

 　 Range(“C2”).Value = “ー”

    End If

End Sub

論理演算子の説明として誤っているものを、選択肢の中から一つ解答しなさい。

次のマクロの内、メッセージボックスの左から2番目のボタンを押したときの戻り値が、「vbNo」となるコード２つを選択肢より解答しなさい。

次のコードは、ブックにシートが複数枚ある時にシートを削除する目的で作成したマクロである。

実行した結果を選択肢から解答しなさい。

Sub Exam1()

      Sheets(“Sheet1”).Delete

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

Single型の変数に格納できる最も適切なデータの種類を、選択肢より1つ解答しなさい。

マクロのセキュリティレベルやセキュリティの表示、通知について説明した以下の選択肢のうち、正しいものを2つ解答しなさい。

次のコードはセル内の文字列を検索し、指定した文字に置き換えてメッセージで表示するコードである。

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

Sub Exam1()

    Dim N As String

         N＝【　①   】(Range(“A2”), “America”, “Asia”)  

　　MsgBox N

End Sub

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

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

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

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

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

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

Sub Exam1()

  MsgBox Format(“139765″,”#,###,###”)

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

変数の宣言を強制した状態で次のコードのうち実行したときに、エラーとなるマクロはどれか、選択肢の中から一つ解答しなさい。