【ランダム順出題】Excel VBA ベーシック 模擬試験　④　ベータ版

Callステートメントについての説明で正しいものを選択肢から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

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

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

選択肢の中から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

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

次のコードは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()

　Range(“A2”).Activate

  Range(“D2:E3”).Select

  　 Selection.Offset(2, 3).Select

End Sub

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

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

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

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

マクロ記録の記録や保存先として適切でないものを選択肢から1つ選びなさい。

コレクションについて説明した以下の選択肢のうち、誤っているものを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  

新しいブックにシートをコピーするマクロとして正しいものを、次の選択肢の中から１つ解答しなさい。

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

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

次のマクロを実行後メッセージに表示される値として正しいものを、

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

なおセルA1には文字列の両端には「スペース」が１つずつあるものとする。

Sub Exam1()

    Dim A As String

         A ＝Trim (Range(“A2”))

  MsgBox Len (A)

End Sub

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

Sub Exam1()

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

End Sub

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

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

Sub Exam1()

    Dim A As Double

     A = Range(”A2”)

　    MsgBox Int(A)

End Sub

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

以下の選択肢の中で最後までメッセージやウィンドウ等で止まることなく実行できるマクロはどれか。

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

以下の選択肢の中でステートメントであるものは●何個分あるか、

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

●　Option Explicit

●　Sub プロシージャ名()、 End Sub

●　Dim 変数名 As 変数の型

●　For 変数名 = 開始値 To 終了値、 Next 変数名

●　If　条件  Then、　End If

●　Call プロシージャ名

●　Range(”A1”) = “VBA”    

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

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

Sub Exam1()

　Dim A As 【　①　】

　A = 100

　　MsgBox A

End Sub  

次のコードはセルA1の値とセルD1の値が等しくないとき”等しくありません”と表示するマクロである。

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

Sub Exam1()

　　If Range(“A1”).Value 【　①　】 Range(“D1”).Value Then MsgBox “等しくありません”

End Sub

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

VBEについて説明した以下の選択肢のうち、正しいものを１つ答えなさい。

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

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

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

Sub Exam1()

　Dim N As String

　　N　＝”Middle East”

　MsgBox Mid(N, 3, 4)

End　Sub

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

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

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

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

Sub Exam1()

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

End Sub

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

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

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

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

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

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

Dim A As String

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

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

Sub Exam1()

　Sheets(“Sheet2”).Visible = False

　 Sheets(“Sheet2”).Select

End Sub

VBAでセルを指定する際に使用する用語として、適切ではないものを選択肢から1つ解答しなさい。