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

次のコードはセル内のアルファベットを大文字にし、指定のセルに代入するマクロである。

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

Sub Exam1()

　 Range(“B2”).Value = 【　①   】(Range(“A2”).Value)

End Sub

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

以下のコードは、表内のA列奇数行のセル内の値が「1」のときに、D列に「―」と代入するマクロである。

空欄に入る語句として正しいものを選択肢より１つ解答しなさい。  

Sub Exam1()

　Dim i As Long

　　For i =11 To 2 【　①   】 -2

　　　If Cells(i, 1) = “1” Then

　　　　Cells(i, 4) = “―”

　　　End If 【　②   】 i

End Sub  

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

Sub Exam1()

【　 ① 　】

End Sub

以下のコードは、下図のようにシート複数枚あるなかで、

シート名「Sheet3」をシートの一番右端に移動させるマクロである。

以上の説明どおり動くマクロはどれか、空欄に入る適切なものを選択肢から1つ解答しなさい。

Sub Exam1()

　【　 ① 　】

End Sub

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

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

現在開いているブックが複数ある場合において、

2番目に開いたブックの左から3番目のシートのセルA1に値を代入するマクロとして、コードの空欄に入る正しいものを選択肢から1つ解答しなさい。

Sub Exam1()

　【　空欄    】

End Sub

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

Sub Exam1()

【　 ① 　】

End Sub

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

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

Single型の変数に格納できる最も適切なデータの種類を、選択肢より1つ解答しなさい。

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

Sub Exam1()

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

End Sub

セル内の値を表す記述として間違っているものを、選択肢から1つ解答しなさい。

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

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

Sub Exam1()

    Dim N As Integer

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

    MsgBox N

End Sub

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

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

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

下図のようにシートが並んでいる状態で、シート名「Sheet3」を一番左端に移動するコードして以下の空欄に入る適切なものを選択肢から1つ回答しなさい。

Sub Exam1()

　　【　 ① 　】

End Sub

次のコードはシートから別のシートへセルをコピーするマクロである。なおアクティブシートはシートの一番左端にある「sheet1」である。

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

Sub Exam1()

　Sheets(“sheet1”).Range(“A2”).Copy _

Sheets(“sheet3”).Range(“A2”).Offset(1)

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列目をシートの一番下から上に進み、値がある最初のセル内をクリアにするマクロである。

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

Sub Exam1()

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

End Sub

次のコードの中で実行したときにエラーとなるものを、選択肢の中から１つ解答しなさい。

マクロの記録ダイアログボックスの設定等の説明として正しいものを、次の選択肢の中からを１つ解答しなさい。

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

マクロの登録先として間違っているものを、以下の選択肢の中から一つ解答しなさい。

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

次のマクロを実行したときに、セル内に表示される結果を次の選択肢から１つ解答しなさい。

Sub Exam1()

　Range(“A1”) = (9 ^ 3) + (11 Mod 2)

End Sub

次のコードは実行したとき、文字が太字になる行は合計【　①    】行である。

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

Sub Exam1()

    Dim i As Long

    For i = 2 To 13

 If Cells(i, 2)

 　Cells(i, 1).Resize(, 4).Font.Bold = True

 　End If

    Next i

End Sub

次のモジュールの説明のうち誤っているものを選択肢から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

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

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

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

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

以下のマクロを実行したときに、最後にアクティブ状態のセルはどれか。選択肢より１つ解答しなさい。

Sub Exam1()

　Range(“A2”).Activate

  Range(“D2:E3”).Select

  　 Selection.Offset(2, 3).Select

End Sub

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

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

Sub Exam1()

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

End Sub  

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

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