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

シート上で選択されている複数セルに「VBA」と代入するマクロとして、

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

Sub Exam1()

【　 ① 　】.Value = “VBA”

End Sub

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

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

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

Sub Exam1()

【　 ① 　】

End Sub

Boolean型の変数に格納できる値はどれか、次の選択肢の中から一つ選びなさい。

次のコードは表の最終行全体を削除するマクロである。

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

Sub Exam1()

     Cells(Rows.Count, 1).End(xlUp).【　①    】. Delete     

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

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

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

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

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

モジュールとマクロの関係に関する説明として、適切なものを一つ解答しなさい。

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

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

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

Sub Exam1()

    If ThisWorkbook.Saved= 【　①   】 Then

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

        ThisWorkbook.Save

    Else

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

    End If

End  Sub

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

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

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

次のマクロを実行したとき、メッセージボックス内に表示されるアイコン を選択肢より１つ解答しなさ
い。

Sub Exam1()

　 Dim N As Long

　　　N = MsgBox (“要確認”, vbOKCancel+vbCritical, “フェーズ1”)

End Sub

標準モジュールの名前と名前の設定に関する説明として、適切なものを一つ解答しなさい。

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

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

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

Sub Exam1()

  Dim N As String

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

　If N ＝”” Then

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

　Else

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

　End　If

End Sub

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

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

次のコードは、メッセージボックスに「R7.10.23」と表示するマクロである。

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

Sub Exam1()

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

End Sub

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

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

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

Sub Exam1()

      Sheets(“Sheet1”).Delete

End Sub

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

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

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

Sub Exam1()

　Dim N As String

　　N　＝”Middle East”

　MsgBox Mid(N, 3, 4)

End　Sub

VBEからマクロを実行する時の説明として間違っているものを、次の選択肢の中から2つ解答しなさい。    

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

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

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

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

Sub Exam1()

　Sheets(【　①   】).Range(“A1”).Value = “ABC”

End Sub  

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

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

Sub Exam1()

　 Dim N As Long

　　N = MsgBox ( “完了”, vbAbortRetryIgnore)

End Sub

次のマクロを実行したとき、下図セルD1に代入される値はいくつか解答しなさい。

Sub Exam1()

    Dim i As Long, N As Long

　　　 For i = 2 To 6

　　　　 If Cells(i, 1).Value = “Black” Or Cells(i, 1).Value = “White” Then

　　　　　If Cells(i, 2).Value >= 200 Then

　　　　　　　N = N + 200

　　　　　  Else

　　　　　　　N = N + 100

　　　　    End If

　　　   Else

　　　　　N = N + 50　　

 　　   End If

   Next i

  　　  MsgBox N

End Sub

次のコードは、実行するとA列の値の一部分をB列に代入するマクロである。

マクロ実行の結果はどうなるか選択肢の中から正しいものを１つ解答しなさい。

Sub Exam1()

  Dim i As Long

   For i = 1 To 6

    　Cells(i, 2) = Mid(Cells(i, 1), InStr(Cells(i, 1), ” “) + 2)

   Next i

End Sub

オブジェクトとオブジェクトが等しいかを比較する演算子を、以下の選択肢の中から１つ解答しなさい。

次のマクロを実行した結果、D列に代入される数値の合計として正しいものを、選択肢の中から１つ解答しなさい。

Sub Exam1()

  Dim i As Long

    For i = 2 To 11

        If Cells(i, 1) = “Green” Then Cells(i, 4) = Cells(i, 3) * 3

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

　　　　 If Cells(i, 1) = “Brown” Then Cells(i, 4) = Cells(i, 3) /2

　　　　 If Cells(i, 1) = “Yellow” Then Cells(i, 4) = Cells(i, 3) * 2　　 

　　　End If　       

    Next i

End Sub

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

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

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

Sub Exam1()

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

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

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

End Sub