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

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

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

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

Sub Exam1()

　 Dim N As Long

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

End Sub

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

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

Sub Exam1()

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

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

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

Sub Exam1()

    Dim i As Integer, N As Integer

     For i = 1 To 3

        N = N + i

  　Next i

     For i = 1 To 5

        N = N + i

     Next i

        MsgBox “Nの値は” & N

End Sub

標準モジュールの挿入と削除に関する説明として、間違っているものを選択肢より一つ解答しなさい。

変数や定数のコードとして、使用できるものを以下の選択肢の中から1つ解答しなさい。

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

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

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

Sub Exam1()

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

End Sub

次のマクロを実行後B列目のセルに「〇」はいくつ入るか。

選択肢より個数を解答しなさい。

Sub Exam1()

  Dim i As Long

    For i = 2 To 10

     If Left(LCase(Cells(i, 1)), 1) = “g” Then

        Cells(i, 2) = “〇”

      End If

  Next i

End Sub

変数Aへ値を格納する記述として、正しいものを1つ解答しなさい。

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

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

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

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

Sub Exam1()

　Dim A As 【　①　】

　A = 100

　　MsgBox A

End Sub  

マクロの説明ついて、誤っているのものを選択肢から1つ解答しなさい。

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

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

次のコードは、1列目から3列目に入力されている値から日付を認識し、

認識した日付の翌日の年月日を4列目に入力するマクロである。

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

Sub Exam1()

　　Cells(１,4) =【　①   】(Cells(1, 1), Cells(1, 2), Cells(1, 3))＋１

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

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

以下のVBAのステートメントに関する説明として、正しいものを1つ解答しなさい。

次のコードを実行すると結果はどうなったか、適切な結果を選択肢から１つ解答しなさい。

Sub Exam1()

　ActiveWorkbook.ActiveSheet.Range(“A1”).Value = “VBA”

　ActiveWorkbook.Save

  　ActiveWorkbook.Close

End Sub

次のVBEの説明のうち正しいものを選択肢から1つ解答しなさい

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

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

：連続するシートの選択

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

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

Sub Exam1()

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

End Sub

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

次のコードは、シート一番左端のシートのセル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

VBEのコメントの書式設定について、次のうち誤っているものを選択肢より１つ解答しなさい。

以下の空欄に小数や負の値の売り上げ金額にも対応した、変数の型指定文字を記述したい。

適切でないものはどれか、選択肢の中から一つ解答しなさい。


Dim A As 【　①   】

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

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

次のコードはセルA1を含む連続したひとかたまりのセル範囲に、行が何行あるかを調べるマクロである。

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

Sub Exam1()

    Dim N As Integer

   　 N = Range(“A1”).【　①    】.Rows.Count

    MsgBox N

End Sub

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