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

次のコード実行をしたとき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

次のコードは、A列に入力されている文字列の中に、スペースが含まれているかどうかを調べ、

含まれていたときにはB列の文字列のスペースより後ろの文字列全てをB列に、

それ以外のときは値の文字列をそのままB列に代入するマクロである。

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

Sub Exam1()

　Dim i As Long

　　For i = 2 To 11

　　　If InStr(Cells(i, 1), ” “) > 0 Then

　　　　Cells(i, 2) = Mid(Cells(i, 1), InStr(Cells(i, 1), ” “) 【　①   】)

　　　Else

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

　　End If

　Next i

End Sub

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

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

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

Sub Exam1()

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

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

End Sub

次のコードはブックへ変更した内容が保存されているかを判断し、メッセージを表示するマクロである。

未保存の場合は3行目の処理を、それ以外の場合は6行目の処理を行います。

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

Sub Exam1()

    If ThisWorkbook.Saved= 【　①   】 Then

        MsgBox “変更が未保存です。保存します。”

        ThisWorkbook.Save

    Else

        MsgBox “変更はありません。保存は不要です。”

    End If

End  Sub

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

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

Sub Exam1()

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

End Sub

ブックに変更を行ったが、変更を保存せず閉じるコードとして、空欄に入る適切な語句を選択肢の中から１つ解答しなさい。

ActiveWorkBook .【　 ①    】

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

マクロの実行やデバックについて説明した以下の選択肢のうち、正しいものを１つ解答しなさい。

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

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

ブックを開くコードとして間違っているものを空欄に入る選択肢から2つ解答しなさい。

Sub Exam1()

【　 ① 　】

End Sub

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

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

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

Sub Exam1()

　【　 ① 　】

End Sub

VBEの起動やマクロの記録のショートカットキーに関する説明として、正しいものを選択肢から1つ解答しなさい。

次のコードでマクロ実行した時、結果がどうなるか選択肢の中から１つ解答しなさい。  

Sub Exam1()

　Dim A As Long, B

　　A = “20”

　　B = “VBA”

　　　MsgBox A & B

End Sub    

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

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

Sub Exam1()

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

End Sub

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

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

VBAのオブジェクトの階層構造において、オブジェクトを省略して記述した場合、

どのオブジェクトが指定されるとみなされるか、正しいものを選択肢から1つ選びなさい。

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

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

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

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

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

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

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

Dim A As String

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

現在開いているブックが複数ある場合において、ブック名「Total」のシート名「Sheet1」のセルに値を代入するマクロとして空欄に入る正しいものを選択肢から1つ解答しなさい。

なおブックはすでに一度保存済みである。

Sub Exam1()

【　 ① 　】

End Sub

VBEの起動と終了についての説明として、正しいものを選択肢から1つ解答しなさい。

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

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

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

Sub Exam1()

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

End Sub

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

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

以下の選択肢は変数の自動変換について説明したものである。適切な説明を選択肢から１つ解答しなさい。

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

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

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

1.Range(“A1”).Value

2.Range(“A1”).Formula

3.Range(“A1”).Text

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

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

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

Sub Exam1()

   Dim i As Long, N As String

    For i = 2 To 11

　 If Cells(i, 3 )> 600 Or Cells(i, 4) < 100 Then

　　   If Cells (i, 2) = “warm” Then

　　　N = N + Cells(i, 1)
 
          End If

        End If

    Next i

 　　  MsgBox N

End Sub

以下の選択肢の中で実行途中に「変更内容を保存しますか？」

というメッセージが出るマクロはどれか。空欄に入る適切なものを選択肢から1つ解答しなさい。