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

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

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

Sub Exam1()

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

End Sub

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

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

：連続するシートの選択

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

「=」など記号を使用した比較演算子が返す値に関する説明として、正しいものを一つ解答しなさい。

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

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

Sub Exam1()

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

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

End Sub

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

次のコードでマクロを実行するとエラーとなる行はどこか。

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

Option Explicit

　Public A As String

　Dim B As String, C As String

Sub Exam1()

　Dim D As String

　A = ”Excel”

　B = ”VBA”

　C = “Basic”

　D = ”200”

　　Call Exam2

End Sub

Sub Exam2()

　　MsgBox A + B + C + D

End Sub

リボンにある「Visual Basic」アイコンや開発タブについて、誤っているものを選択肢から1つ解答しなさい。

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

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

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

Sub Exam1()

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

End Sub

ブックに関する説明として正しいものを、次の中から2つ選択しなさい。

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

マクロの記録について説明した以下の選択肢のうち、正しいものを１つ解答しなさい。

次のコードは、B列の数値が3より大きいときは、B列の同じ行の、A列のセルの値をF列へ、B列のセルの値をG列へ代入するマクロである。

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

Sub Exam1()

　　Dim i As Long, LastRow As Long

　　　LastRow = Cells(Rows.Count, 1).End(xlUp).Row

　　　　For i = 2 To LastRow

　　　　　If Cells(i, 2) > 3 Then

　　　　　With Cells(Rows.Count, 6).End(xlUp)

　　　　　　.Offset(1) = Cells(i, 1)

　　　　　　【　①   】= Cells(i, 2)

　　　　 End With

　       End If

      Next i

End Sub

次のマクロを実行したとき、メッセージボックスに表示される変数の値について、

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

Sub Exam1()

   Dim i As Long, A As Long

    For i = 2 To 11

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

            A = Cells(i, 1).Offset(2, 1)

        End If

    Next i

    MsgBox A

End Sub

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

VBAについて説明した以下の選択肢のうち、適切なものを１つ解答しなさい。

次のモジュールの説明のうち誤っているものを選択肢から1つ解答しなさい。

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

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


Dim A As 【　①   】

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

Sub Exam1()

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

　ActiveWorkbook.Save

  　ActiveWorkbook.Close

End Sub

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

なおブック内にシートは3枚あり、シート名は左端から下図の順番に並んでいます。  

上記のとおりには実行できない、間違っているマクロを選択肢の中から２つ解答しなさい。  

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

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

Sub Exam1()

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

End Sub

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

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

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

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

Sub Exam1()

  MsgBox Format(“139765″,”#,###,###”)

End Sub

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

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

Sub Exam1()

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

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

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

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()

　Dim A As Long, B

　　A = “20”

　　B = “VBA”

　　　MsgBox A & B

End Sub    

次のコードは1列目をシートの一番下から上に進み、値がある最初のセル内をクリアにするマクロである。

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

Sub Exam1()

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

End Sub

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

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

次のVBAの行と列の指定の説明のうち、正しいものを２つ解答しなさい。

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

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

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

Sub Exam1()

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

End Sub

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

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

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

Sub Exam1()

　　【　 ① 　】

End Sub

次のマクロを実行したとき、メッセージボックスに表示されるメッセージとして、正しいものを次の選択肢の中から１つ選択しなさい

Sub Exam1()

    MsgBox Replace(Range(”A2”), “a”, “”）

End Sub