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

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

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

Sub Exam1()

　【　 ① 　】

End Sub

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

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

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

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

ブックにシートを挿入するマクロとして、以下の空欄に入る適切な語句を選択肢より１つ解答しなさい。

Sub Exam1()

　Sheets.【　①    】 

End Sub

次のコードを実行したとき、メッセージに表示される値を選択肢から解答しなさい。

Sub Exam1()

　　Dim i As Long, N As Long

　　　For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2

　　　　If Cells(i, 1) = 1 Then

　　　　　N = N + Cells(i, 1).Value

　　　　End If

　　　Next i

　　　　MsgBox N

End Sub

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

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

VBEのコメント機能について説明した以下の選択肢のうち、正しいものを１つ解答しなさい。

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

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

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

Sub Exam1()

【　 ① 　】

End Sub

次のマクロを実行後メッセージに表示する値として正しいものを、選択肢の中から１つ解答しなさい。

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

Sub Exam1()

    Dim A As String

         A ＝RTrim (Range(“A2”))

  MsgBox Len (A)

End Sub

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

ActiveWorkBook .【　 ①    】

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

Sub Exam1()

　Dim A As Long, B

　　A = “20”

　　B = “VBA”

　　　MsgBox A & B

End Sub    

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

次のコードは現在開いているブックが１つ、ブック上のシートが1枚のみの時に、シート上のセルA1に値を代入するマクロです。

コードの記述として、空欄に入る適切なものを選択肢の中から１つ解答しなさい

Sub Exam1()

　　【　 ① 　】

End Sub

セルに表示された文字列を読み取る記述として、正しいものを選択肢から1つ解答しなさい。

コレクションについて説明した以下の選択肢のうち、誤っているものを1つ解答しなさい。

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

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

Sub Exam1()

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

End Sub

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

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

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

Sub Exam1()

【　 ① 　】

End Sub

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

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

Sub Exam1()

　Range(“A2”).Activate

  Range(“D2:E3”).Select

  　 Selection.Offset(2, 3).Select

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

次のコードを実行した結果エラーとなるものを、選択肢の中から１つ選びなさい。  

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

Sub Exam1()

  　Range(”B2”) ＝ Round (Range(”A2”), 0)

  　Range(”B3”) ＝ Round (Range(”A2”), 1)

  　Range(”B4”) ＝ Round (Range(”A2”), 2)

End Sub

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

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

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

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

●　Option Explicit

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

●　Dim 変数名 As 変数の型

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

●　If　条件  Then、　End If

●　Call プロシージャ名

●　Range(”A1”) = “VBA”    

次のコードを実行したとき、メッセージボックスに表示される変数Aの値はどれか。

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

Sub Exam1()

　Dim i As Long, A As String

　　For i = 1 To 3

　　　　A = A & “&” & “VBA”

　　Next i

　　MsgBox A

End Sub

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

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

次のマクロを実行したとき、セルA1に表示される値はどれか正しいものを選択肢から一つ解答しなさい。

Sub Exam1()

　Range(“A1”) = (10 ¥ 4) – (6 * 2)

End Sub

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

Sub Exam1()

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

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

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

End Sub

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

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

プロシージャに関する説明として、適切でないものを一つ解答しなさい。

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

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