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

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

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

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

Sub Exam1()

  Dim N As Variant

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

        MsgBox N         

End Sub

セル内の数式の取得や数式の代入をするプロパティとして、正しい記述を選択肢から解答しなさい。

1.Range(“A1”).Value

2.Range(“A1”).Formula

3.Range(“A1”).Text

4.Range(“B1”).Formula = “=Sum(A1:A3)”

次のコードは、セルA1の値がセルD1の値以上であるとき、メッセージボックスに”〇”と表示させるマクロである。

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

Sub Exam1()

　If Range(“A1”).Value 【　①   】 Range(“D1”).Value Then

　　MsgBox “〇”

　End If

End Sub

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

オブジェクト式に基本の型は以下のついて説明した以下の選択肢のうち、正しいものを１つ解答しなさい。 

次のコードは、セルに入力されている文字列の中から一部を抜き出してメッセージボックスに表示するマクロである。

セルA2に「Central America」という文字列が入力されているとき、

セルB2に代入される文字列として正しいものを、次の選択肢の中から解答しなさい。

Sub Exam1()

    Dim N As String , A As String , B As String

   　 N = Mid(Range(”A2”), 5)

     　 A= Left(N, 3)

  　　 B= Right(N, 2)

    Range(”B2”)＝A ＆ B

End  Sub

以下の選択肢の中で、キー操作で複数のシートを選択する操作として、正しいものを1つ解答しなさい。

：複数の連続しないシートの選択

：連続するシートの選択

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

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

次のコードはタイトルを省略した文字入力可能なダイアログボックスを表示し、

ボックス内に初期値「VBA」を文字列として表示し、入力した値をメッセージで表示するマクロである。

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

Sub Exam1()

  Dim N As String

    N = InputBox(“何か文字を入力してください。”, 【　①   】【　②  】)

　If N ＝”” Then

　  MsgBox “キャンセルボタンあるいは空欄が入力されました。”

　Else

  　MsgBox “入力値は” & N & ”です。”

　End　If

End Sub

シートを削除した時に、下図の確認メッセージを表示させないコードとして、

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

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

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

Sub Exam1()

    Dim N As String

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

　　MsgBox N

End Sub

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

Sub Exam1()

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

End Sub

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

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

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

Sub Exam1()

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

End Sub

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

図形等へのマクロ登録に関しての説明として正しいものを、以下の選択肢の中から一つ解答しなさい。

変数の宣言や、変数の宣言強制の説明で間違っているものを、選択肢の中から１つ解答しなさい。

グラフ描画するシートを選択することができるコードはどれか。

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

Sub Exam1()

　【　 ① 　】

End Sub

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

次のコードは、メッセージボックスに「2025年10月23日木曜日」と表示するマクロである。

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

Sub Exam1()

　　 MsgBox Format(Range(“A2”), “yyyy年mm月dd日【　①   】”)

End Sub

次のコードは実行したとき、文字が太字になる行は合計【　①    】行である。

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

Sub Exam1()

    Dim i As Long

    For i = 2 To 13

 If Cells(i, 2)

 　Cells(i, 1).Resize(, 4).Font.Bold = True

 　End If

    Next i

End Sub

セルに表示された文字列を読み取る記述として、正しいものを選択肢から1つ解答しなさい。

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

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

次のコードは、実行するとセルB2にセルA2を参照した結果、「14」が代入されるマクロである。

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

Sub Exam1()

　Range(“B2”) = 【　①   】(Range(“A2”))

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

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

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

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

次のコード実行をしたとき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つ解答しなさい。

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

次のコードはブック内のシート名「VBA」のシートを探し、見つけたシートのセルに

指定の文字列を代入するマクロである。

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

Sub Exam1()

   Dim i As Long

      For i = 1 To Sheets.【　①   】

        If Sheets(i).Name = “VBA” Then

　　　　Sheets(i).Range(”A1”) ＝”Excel”

　　　End If

    Next i

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つ選択しなさい。

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