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

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

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

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

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

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

Sub Exam1()

  Dim N As Variant

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

        MsgBox N         

End Sub

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

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

次のコードは現在開いているブックが１つ、ブック上のシートが1枚のみの時に、シート上のセルA1に値を代入するマクロです。

コードの記述として、空欄に入る適切なものを選択肢の中から１つ解答しなさい

Sub Exam1()

　　【　 ① 　】

End Sub

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

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

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

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

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

Sub Exam1()

　Sheets(“Sheet2”).Visible = False

　 Sheets(“Sheet2”).Select

End Sub

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

なおブック内にシートは3枚あり、シート名は左端から下図の順番に並んでいます。  

上記のとおりには実行できない、間違っているマクロを選択肢の中から２つ解答しなさい。  

以下のブックの挿入についての説明で間違っているものを、選択肢の中から1つ解答しなさい。

Cells(3, 5) の説明として正しいものを以下の選択肢から1つ選びなさい。

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

次のコードは、シート一番左端のシートのセルA1の値を、2枚目から4枚目までの各シートのセルA1へコピーするマクロである。

なお現在のアクティブシートはセルA1に”VBA”と値がある一番左端のシートである。

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

Sub Exam1()

　Dim i As Long, N As Long

　　N = Sheets.Count

　　　For i = 2 To N

　　　With Sheets(i)

　　　　If i < 5 Then

　　　　【　①   】.Copy 【　②   】

　　　　Else

　　　　MsgBox “コピーしません”

　　　End If

　　End With

　　Next i

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

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

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

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

Sub Exam1()

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

End Sub

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

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

Sub Exam1()

　 Dim N As Long

　　N = MsgBox ( “完了”, vbAbortRetryIgnore)

End Sub

選択されている複数のセルの中で文字入力可能な、１つのセルにのみ値を入力するマクロとして、正しいものを１つ選択肢から選びなさい。

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

次のマクロを実行したとき、セルA1に表示される値はどれか正しいものを選択肢から一つ解答しなさい。

Sub Exam1()

　Range(“A1”) = (10 ¥ 4) – (6 * 2)

End Sub

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

次のコードは、定数Nに文字列”VBA”を定めるマクロである。

空欄に入る適切な語句の組み合わせとして正しいものを選択肢から1つ選びなさい。

Sub Exam1()

　【　①   】N【　②   】 ”VBA”

　　MsgBox N

End Sub

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

実行結果は【　①　】がメッセージで表示された。

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

Sub Exam1()

　Dim N As String

　　N　＝”Middle East”

　MsgBox Mid(N, 3, 4)

End　Sub

「XLSTART」フォルダ内に保存される個人用マクロブックのファイル名として

適切な選択肢はどれか１つ解答しなさい。

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

ブックにシートを挿入するマクロとして、以下の空欄に入る適切な語句を選択肢より１つ解答しなさい。

Sub Exam1()

　Sheets.【　①    】 

End Sub

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

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

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

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

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

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

Sub Exam1()

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

End Sub

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

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

Sub Exam1()

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

End Sub

次のコードを実行したとき、セルB4に表示される値として正しいものを選択肢の中から解答しなさい。

Sub Exam1()

　　Range(“B2”) = Abs(Range(“A2”))

　　Range(“B3”) = Abs(Range(“A3”))

　　Range(“B4”) = Abs(Range(“A4”))

End Sub

以下の空欄の中に、選択肢から整数で最も範囲が広い型指定文字を記述したい。

適切なものを選択肢の中から一つ答えなさい。

Dim N As 【　①   】

次のコードでマクロを実行するとエラーとなる行はどこか。

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

Option Explicit

　Public A As String

　Dim B As String, C As String

Sub Exam1()

　Dim D As String

　A = ”Excel”

　B = ”VBA”

　C = “Basic”

　D = ”200”

　　Call Exam2

End Sub

Sub Exam2()

　　MsgBox A + B + C + D

End Sub

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