【ランダム順出題】Excel VBA ベーシック 模擬問題 ②

次のコードを実行すると指定の値が数値かどうかを判定し、メッセージを表示するマクロとして、空欄に入る適切な語句を選択肢から1つ解答しなさい。

Sub Exam1()

　Dim N As Variant

　　N = Range(“A1”).Value

　　If 【　空欄①  】(N) = True Then

　　　　MsgBox N & “は数値です”

　　　Else

　　　MsgBox N & “は数値以外の値です”

　　End If

End Sub

VBAにおける「定数」に関する説明として、最も適切なものはどれか。

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

次のコードは下図のダイアログボックスを表示し、ユーザーが入力した文字列をメッセージ表示するマクロである。空欄に入る適切な語句を解答しなさい。

なおコードはダイヤルログボックスのタイトルを省略した記述をしたものとする。

Sub Exam1()

　Dim A As String

　A = 【　空欄①　 】(“文字列を入力してください。”, 【　 空欄②　 】 “Excel-VBA”)

　If A＝“” Then

　　MsgBox “キャンセルあるいは空欄です“

　Else

　　MsgBox “入力値は“ & A ＆”です“

　End　If

End Sub

マクロの実行方法として、間違っているものはどれか。

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

次のコードを実行するとB列にA列セル内の文字数が代入されるマクロとして、空欄に入る適切な語句を選択肢から1つ選びなさい。

Sub Exam1()

　Dim i As Long

　For i = 1 To 5

　　Cells(i, 2) = 【　空欄①  】(Cells(i, 1))

　Next i

End Sub

以下のコードを実行したとき、メッセージボックスには何と表示されるか。

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

Sub Exam1()

　ActiveWorkbook.Save

　　If ActiveWorkbook.Saved = True Then

　　　MsgBox “ブックは保存されています。“

　　Else

　　　MsgBox “ブックは保存されていません。“

　End If

End Sub

シートをDeleteメソッドで削除しようとした際に表示される確認メッセージでキャンセルボタンを押した場合、どのような結果になるか。

空欄に入るものを以下の選択肢より正しいものを１つ解答しなさい。

Sheets(“Sheet1”).Delete

上記のコードを実行し、確認メッセージが表示された際にキャンセルボタンを押すと、【　空欄①  】

次のコードは、変数Aをどのモジュールでも使用できるパブリック変数として宣言し、

変数Bはモジュール内のすべてのプロシージャ内で使えるようにするモジュールレベル変数として宣言するマクロである。

空欄を埋める適切な語句の組み合わせとして正しいものを選択肢から1つ選びなさい。

—————————————————

Module１

—————————————————

Option Explicit

　【　空欄①　】 A As Long

　【　空欄②　】 B As Long

Sub Exam1()

　A = 150

　B = 180

　　Call Exam2

End Sub

Sub Exam2()

　Dim N As Long

　N = A + B

　　MsgBox N

End Sub

——————————————-

Module2

——————————————-

Option Explicit

Sub Exam1()

　A = 200

　　MsgBox “変数Aは” & A & “です“

End Sub

以下のコードは、2の3乗を計算した結果を表示するためのものです。

空欄に入る適切な算術演算子を１つ解答しなさい。

Sub Exam1()

　MsgBox 2 【　空欄①  】 3

End Sub

「個人用マクロブック」とは、ユーザーが作成したマクロをExcelのすべてのブックで共有できるように保存する特殊なファイルである。

このファイルの名前として適切なものを以下の選択肢の中から1つ解答しなさい。

以下のコードは、セルB3を削除し、削除によって生じた空白部分を埋めるために下側のセルを上に移動（シフト）するマクロです。

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

Sub Exam1()

　Range(“B3”).Delete Shift:=【　空欄①  】

End Sub

次のコードは、セルA２の値が「Excel」あるいは「VBA」の時は、セルC2に「〇」が入力され、それ以外の場合はセルC2に「非該当」が入力されるマクロである。

コード内の空欄に入る適切な語句の組み合わせとして、正しいものを選択肢から1つ選びなさい。

Sub Exam1()

If Range(“A2”).Value = “Excel” Or  _
Range(“A2”).Value =”VBA”【 空欄① 】

　　Range(“C2”).Value = “〇“

　　　【　 空欄②　 】

　　Range(“C2”).Value = “非該当“

　End If

End Sub

次の文は、ExcelのQAT（クイックアクセスツールバー）にマクロを登録するときの仕様について述べたものです。

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

QATにマクロを登録するとき、QATに表示するアイコンの種類を【　空欄①  】

以下のコードを実行したとき、セルA1はどのようになるか。

選択肢より正しいものを１つ解答しなさい。

Sub Exam1()

　Range(“A1”).ClearFormats

End Sub

次のコードは、実行しようとすると【　空欄①  】行目でエラーとなるコードである。

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

1 Sub Exam1()

2    Dim i As Long

3    For i = 2 To 11

4        If Cells(i, 2) >＝2 And Cells(i, 3) <500 Then

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

6        End If

7    　  i

8 End Sub

以下のコードは各列の数値の合計を7行目の合計行に代入するマクロである。

コード内の空欄に入る適切な語句を選択肢からすべて選びなさい。

Sub Exam1()　

Dim A As Long, i As Long, j As Long

　For j = 2 To 4

　　A = 0

　　For i = 2 To 6

　　　　A = A + 【　空欄①  】

　　　Next i

　　Cells(7, j) = A

　Next j

End Sub

ワークシート上に配置できる「フォームコントロール」と「ActiveXコントロール」に関する説明として、最も適切なものはどれか正解を１つ解答しなさい。

以下のコードを実行すると、メッセージボックスには何と表示されるか。

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

Sub Exam1()

　Dim N As Double

　　N = 123.45

　MsgBox Round(N, 0)

End Sub

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

次のコードは変数に値を代入するマクロである。

マクロを5回実行後のセルに表示される値はどれか、選択肢の中から正しいものを解答えなさい。

Option Explicit

　Dim N As Integer

Sub　Exam1()

　N ＝ N＋１

　　Range(“B1”).Value = N

End Sub

以下のコードを実行すると、メッセージボックスには何と表示されるか。

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

 
Sub Exam1()

　Dim N As Variant

　　N = “Not a Date“

　If IsDate(N) = False Then

　　MsgBox “これは日付ではありません。“

　Else

　　MsgBox “これは日付です。“

　End If

End Sub

以下のコードは、文字列 N の右端から指定した文字数の文字列を取得し、メッセージボックスに表示するためのものです。

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

Sub Exam1()

　Dim N As String
　　
　　N = “abcdefg”

　MsgBox【　空欄①  】(N, 3)

End Sub

次のコードは、B列の数値が10より大きいときは、

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) > 150 Then

　　　Cells(Rows.Count, 6).End(xlUp)【　空欄①  】= Cells(i, 1)

　　　Cells(Rows.Count, 6).End(xlUp).Offset(1, 1) = Cells(i, 2)

　　 End If

　 Next i

End Sub

以下のコードの時、非表示になっているシートのシート名の表示はどうなったか。

実行結果として正しいものを、以下の選択肢より１つ解答しなさい。

Sub Exam1()

　Dim i As Long

　For i = 1 To Sheets.Count

　　MsgBox Sheets(i).Name

　Next i

End Sub

Excel VBAにおいて、クラスモジュールは主にどのような目的で使用されるか。

以下の選択肢より正しいものを１つ解答しなさい。

変数の名前に関する説明として、正しいものを1つ解答しなさい。

以下のコードは、二つの文字列を連結して表示するためのものです。

空欄に入る適切な文字列連結演算子を選んでください。

Sub Exam1()

　MsgBox “Hello” 【　空欄①  】 “World“

End Sub

変数に日付を格納したいときの型指定文字として間違っているものを、選択肢より一つ選びなさい。

セルC2の値をメッセージボックスで表示するマクロとして、空欄に入るものを以下の選択肢から解答しなさい。

Sub Exam1()

　MsgBox Cells【　空欄①  】.Value

End Sub

個人用のマクロが保存される既定のフォルダはどれか、

選択肢より正しいものを一つ解答しなさい。

[マクロの記録]ダイアログボックスで、Excelが標準で設定しているショートカットキーと同じキーをマクロに割り当てた場合、

そのショートカットキーを押したときに実行される動作として、最も適切なものはどれか以下の選択肢より正しいものを１つ解答しなさい。

文字列が指定したパターンに一致しているかどうかを比較する演算子は【　空欄①  】である。

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

以下のコードを実行し、表示されたメッセージボックスで「キャンセル」ボタンをクリックしました。このとき、メッセージボックスには何と表示されるか。

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

Sub Exam1()

　Dim N As Long

　　　N = MsgBox(“処理を継続しますか？“, vbYesNoCancel)

　If N = vbCancel Then

　　　MsgBox “処理を中止しました。“

　ElseIf N = vbYes Then

　　　MsgBox “処理を継続します。“

　Else

　　　MsgBox “処理を中止しました。“

　End If

End Sub

VBAとVBEに関する説明として、最も適切なものはどれか。

以下の選択肢より正しいものを１つ解答しなさい。

VBAにおいて、「＝、＜、＞」などの記号を使用した比較演算子が比較をした結果、返す値はどのような種類か。

以下の選択肢より正しいものを１つ解答しなさい。

シート上で選択されているセルすべてに「西日本」と代入するマクロとして、

空欄に入る適切な語句を選択肢から1つ選びなさい。

Sub Exam1()

【　空欄①  】.Value = “西日本”

End Sub

以下の選択肢の中で、シートの指定の方法として間違っているものを一つ解答しなさい。

次のコードはシートを非表示にするマクロである。

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

Sub Exam1()

　ThisWorkbook.ActiveSheet.【　空欄①  】= False

End Sub