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

制限時間は50分です。

問題の出題順や選択肢の並び順は、サイト側で自動でシャッフルされます。

準備が整い次第、ボタンを押して始めてください。

1.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

アクティブシートやシートの選択に関する説明として間違っているものを、次の選択肢の中から１つ解答しなさい。

Selectメソッドで複数枚シートを選択すると、選択した内の1枚のシートがアクティブシートとなる。

アクティブシートとは、アクテイブセルが存在している唯一のシートである。

Activateメソッドでシートを切替えると、切り替え後のシートがアクティブシートとなる。

Selectメソッドはシートを選択できるメソッドであり、シートは1枚のみ選択することができる。

2.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のコードは、定数Nに文字列”VBA”を定めるマクロである。

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

Sub Exam1()

　【　① 】N【　② 】 ”VBA”

　　MsgBox N

End Sub

①Public ②String =

①Dim ②=

①Const ②As String =

①Const ②String =

3.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

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

上から2回目のFor i = の行でエラーとなった。

Nの値は15とメッセージが表示された。

Nの値は21とメッセージが表示された。

マクロ実行時エラーとなった。

4.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のコードは、実行するとA列の値の一部分をB列に代入するマクロである。

マクロ実行の結果はどうなるか選択肢の中から正しいものを１つ解答しなさい。

Sub Exam1()

Dim i As Long

For i = 1 To 6

　Cells(i, 2) = Mid(Cells(i, 1), InStr(Cells(i, 1), ” “) + 2)

Next i

End Sub

2列目セルに、1列目の文字列内の空欄の位置を見つけ、空欄を含め2文字を代入した。

2列目セルに、1列目の文字列内の空欄の位置を見つけ、見つけた文字列の位置の先頭からの文字数に２を足し算した位置以降の文字列を、全て代入した。

2列目セルに、1列目の文字列内の空欄の位置を見つけ、空欄より後ろの2文字を代入した。

2列目セルに、1列目の文字列内の空欄の位置を見つけ、見つけた文字列の位置の先頭からの文字数に3を足し算した位置以降の文字列を、全て代入した。

5.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

ブックに関する記述として間違っているものを、次の選択肢の中から１つ解答しなさい。

現在開いているブックの指定は、Workbooksコレクションで保存済みのブックは「WorkBooks(“拡張子を含むブック名”)」や「WorkBooks(番号)」と表します。新規作成したブックはWorkBooks(“Book3”)のように拡張子をつけずに表します。

ActiveWorkbookとThisWorkbookは、常に同じブックを表す。

ActiveWorkbookとは現在操作しているブックのことで、ThisWorkbookとは実行中のマクロのコードが記述されているブックである。

開いていないブックの指定は、Workbooksコレクション後ろにファイルの場所を示すフルパスで「WorkBooks(“フルパス”)」と表します。

6.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

VBEを起動すると、Excelも自動的に起動する。

Excelを終了するとVBEも終了する。

VBEはExcelとは別のアプリケーションなので、Excelを起動せずにVBEだけを起動することができる。

VBEの終了は、Excelの終了とは関係なく、VBEのウィンドウを閉じることによってのみ行うことができる。

7.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

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

Sub Exam1()

Dim N As Integer

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

MsgBox N

End Sub

ActiveCell

Selection

Select

CurrentRegion

8.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

VBAの用語の説明として、正しいものを選択肢から1つ選びなさい。

関数とは引数を受け取り、その関数に決められた処理で結果を返す仕組みのことである。

コレクションとは、階層構造で表す際のオブジェクトの集合体のことで、記述をする際は一般的にオブジェクトを複数形(s)で表す。

ステートメントとは、操作の対象であるオブジェクトに対して、マクロ全体の中で条件分岐、繰り返し処理などの何らかの動きのことで、ユーザーの操作を記録するマクロの記録では、全てのステートメントを記録することができる。

プロパティとはオブジェクトの動作やアクションを伴う命令で、メソッドとはオブジェクトの様子や状態のことである。

9.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

変数についての説明として、正しいものを以下の選択肢から1つ解答しなさい。

変数は宣言する際に、保持するデータの種類を合わせた変数の型の指定が必ず必要である。

変数は、数値や文字列などのデータを一時的に保持しておくための「箱」のようなものである。また変数は、値の保持のほかに保持した値を変更したり、他の変数と組み合わせたりすることができる。

変数は、数値しか格納することができない。

変数は、一度宣言すると、その値を変更することはできない。 3.変数は、数値しか格納することができない。

10.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

Sub Exam1()

　Sheets.【　① 】

End Sub

Add

Move

Copy

Insert

11.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

Sub Exam1()

　 Dim N As Long

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

End Sub

12.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

① Range(“A1”) ② Range(“A1”)

① .Range(“A1”) ② .Range(“A1”)

① .Range(“A1”) ② Range(“A1”)

① Range(“A1”) ② .Range(“A1”)

13.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

VBAでの関数は、Excelのワークシート上で扱う関数と違い引数は受け取らない。

関数の処理で使うデータは引数とよばれ、一部を除き関数の後ろに「( )」括弧で囲み数値や文字列、日付などを指定する。

関数の複数の引数の指定は、複数の場合は「( )」括弧内で「,」カンマでくぎる。また引数を受け取らない場合でも「( )」括弧は省略することができない。

関数の引数は、必ず1つのみ指定し、引数が複数ある場合や引数を受け取らない関数はない。

14.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

VBAのオブジェクト式において、オブジェクトとは何を指すか、正しいものを選択肢から1つ解答しなさい。

操作の結果

操作の対象

操作の条件

操作の命令

15.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のVBA全般の説明のうち、間違っているものを1つ解答しなさい。

セキュリティセンターを表示させる方法は、Excelのバージョンによって異なる。

[Microsoft Office Excel のセキュリティに関する通知] ダイアログボックスで [マクロを有効にする] ボタンを押すと、そのブックを信頼したことになり、その後ダイアログボックスや [コンテンツの有効化] ボタンは表示されない。

マクロは、ファイルの削除やインターネットへの接続など、意図しない操作を実行する可能性があるため、取り扱いには十分注意が必要である。

VBEはマクロの作成に加えて、デバッグモードでコードのエラーや問題も発見できる。

16.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

B列の値が「Europe」である行のA列からD列までのセルの値を斜体にするマクロとして、

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

Sub Exam1()

Dim i As Long

For i = 2 To 11

If Cells(i, 2) = “Europe” Then

　【　① 】(Cells(i, 1), Cells(i, 1).End(xlToRight)).Font.Italic = True

End If

Next i

End Sub

ActiveCell

Range

Cell

Cells

17.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のコードはセル内の文字列を検索し、指定した文字に置き換えてメッセージで表示するコードである。

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

Sub Exam1()

Dim N As String

N＝【　① 】(Range(“A2”), “America”, “Asia”)

　　MsgBox N

End Sub

Mid

Replace

Instr

StrConv

18.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

Valueプロパティは、セルに表示されている文字列を取得できる。

Valueプロパティは、セルに入力されている値を表すことができる。

Valueプロパティは、セル内の計算式の結果を表すことができる。

Valueプロパティは、セルの数式を表すことができない。

19.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

以下のマクロはB列が500より小さい場合、A列からC列までをE列に順にコピーするマクロである。

空欄を埋める適切なものを選択肢から１つ解答しなさい。

Sub Exam1()

Dim i As Long, A As Long

For i = 2 To 11

If Cells(i, 2) < 500 Then

A = A+ 1

Range(Cells(i, 1), Cells(i, 3)).Copy 【　① 】

End If

Next i

End Sub

Range(“A5”)

Cells(A, 5)

Range(A, i)

Cells(5, A)

20.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

「‘」シングルクォーテーションを使用しても、同じ行にコードがある場合はコメントとして機能しない。

コメント機能にはルールがあり、コメントを日本語や記号では記述できないことや、コメントの文字色の変更はできない。

複数行をまとめてコメントするには、コメントしたい行を選択し編集ツールバーの「コメントブロック」ボタンをクリックする。コメントを解除したい場合は「コメントブロック」ボタン(図の赤丸)右側の「非コメント挿入ボタン」を押す。

コメントを記述するときは、「‘」シングルコーテーションを入力し、以降右側に入力した文章は行の最後までコメントとして機能する。

21.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

［Excelのオプション］ダイアログボックスを開くには、QATの右側にある▽クイックアクセスツールバーのユーザー設定ボタンをクリック後、「その他のコマンド」を押して開く。

QATにマクロを登録後、登録したマクロのボタンが常に表示されるが設定で、マクロが記述されているブックを開いているときだけボタンを表示することもできる。

クイックアクセスツールバーに登録するには、［Excelのオプション］ダイアログボックスを開き右側のクイックアクセスツールバーから設定する。

QAT領域に表示する、マクロを登録したアイコンの種類は後から変更できる。

22.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

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

空欄を埋める適切な語句を解答しなさい。

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

Module１

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

Option Explicit

A As Integer

Sub Exam1()

B As String

　A = 300

　B = “VBA”

　　Call Exam2

　MsgBox B

End Sub

Sub Exam2()

　Dim N As Integer

　　N = A

　MsgBox N

End Sub

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

Module2

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

Option Explicit

Sub Exam1()

　A = 100

　MsgBox “Aの値は” & A & “です”

End Sub

23.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

すでに保存がされているアクテイブ状態のブックに対して、次のコードを実行した場合どうなるか。

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

*なお保存先に同じ名前のブックはないものとする。

Sub Exam1()

　　ActiveWorkbook.Sheets(1).Range(“A1”) = “VBA”

　ActiveWorkbook.Close SaveChanges:=True, Filename:=”C:\User\Total.xlsx”

End Sub

実行するとエラーとなった。

ファイルの内容の変更を保存しますか？」というメッセージが表示される。

変更は保存せずブックを閉じた。

変更を反映したブックを名前をつけて保存した。

24.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のコードはブックへ変更した内容が保存されているかを判断し、メッセージを表示するマクロである。

未保存の場合は3行目の処理を、それ以外の場合は6行目の処理を行います。

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

Sub Exam1()

If ThisWorkbook.Saved= 【　① 】 Then

MsgBox “変更が未保存です。保存します。”

ThisWorkbook.Save

Else

MsgBox “変更はありません。保存は不要です。”

End If

End Sub

True

Protect

False

SaveChanges

25.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

Sub Exam1()

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

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

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

End Sub

722

723.5

723

723.54

26.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のコードは、セルA1の値がセルD1の値以上であるとき、メッセージボックスに”〇”と表示させるマクロである。

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

Sub Exam1()

　If Range(“A1”).Value 【　① 】 Range(“D1”).Value Then

　　MsgBox “〇”

　End If

End Sub

>=

>

<

=>

27.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のコードはセルに入力されている大文字を、すべて小文字に変換し文字列を代入するマクロである。

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

Sub Exam1()

　Range(”A1”) = StrConv(Range(”A1”),【　① 】)

End Sub

vbUpperCase

vbLowerCase

vbWide

vbNarrow

28.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

以下のコードは、表内の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

①Step ②End If

①Step ②Next

①To ②Loop

①Next ②Step

29.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のコードは実行時の時間をメッセージで表示するマクロである。

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

Sub Exam1()

Dim A As Integer, B As Integer, C As Integer

A = 【 ① 】(Now)

B = 　Minute(Now)

C = 【 ② 】(Now)

MsgBox “現在の時間は” & A & “時” & B & “分” & C & “秒です。”

End Sub

①Second　②Hour

①Hour　②Second

①Now　②Second

①Second　②Now

30.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

セル内の数式の取得や数式の代入をするプロパティとして、正しい記述を選択肢から解答しなさい。

1.Range(“A1”).Value

2.Range(“A1”).Formula

3.Range(“A1”).Text

4.Range(“B1”).Formula = “=Sum(A1:A3)”

2と4

2

1

1と3

31.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

マクロを登録した図等について解説した記述のうち、次の中から正しいものを１つ選択しなさい。

マクロを登録した図等の削除をするときは、選択してダブルクリックをすると表示されるメニューから「切り取り」で実行できる。

１つの図形に複数のマクロを登録はできないが、同様に同じマクロを登録した図等を、シート上に複数作成することはできない。

マクロを登録した図等の削除をするときは、選択して右クリックをし、表示されたメニューから「切り取り」で実行できる。

マクロを登録した図等などは大きさや色などを変更できない。

32.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

記録したマクロは、VBEのコードウィンドウで確認できる。確認するにはExcelのワークシート画面でAlt + F11キーを押してVBEを起動します。

記録したマクロは、 [マクロ] ダイアログボックスで確認できる。

記録したマクロは、 [開発] タブの [マクロ] グループの [マクロ] ボタンをクリックして、 [マクロ] ダイアログボックスを表示させて確認できます。

記録したマクロは、 [マクロ] ダイアログボックスで、 [オプション] ボタンをクリックすると確認できる。

33.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

標準モジュールをコピーするには、[ファイル]メニューの[コピー]を選択し、コピー先のブックで[ファイル]メニューの[貼り付け]を選択する。

標準モジュールをコピーするには、プロジェクトエクスプローラーでコピーしたい標準モジュールを選択し、コピー先のブックのプロジェクトエクスプローラーにドラッグ&ドロップする。

標準モジュールをコピーするには、プロジェクトエクスプローラーでコピーしたい標準モジュールを右クリックし、「コピー」を選択し、コピー先のブックのプロジェクトエクスプローラーで[貼り付け]を選択する。

標準モジュールをコピーするには、[編集]メニューの[コピー]を選択し、コピー先のブックで[編集]メニューの[貼り付け]を選択する。

34.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

Range(“A1:C3”) の説明として正しいものを選択肢から1つ選びなさい。

セルA1とセルC3を指す。

セルA1からC3までのセル範囲を指す。

セルA1とセルA3とセルC1とセルC3を指す。

セルA1からA3までのセル範囲と、セルC1からC3までのセル範囲を指す。

35.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のマクロを実行した結果、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

1500

3450

0

1950

36.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

Variant

何も指定しない

Date

Day

37.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

次のコードは、メッセージボックスに「2025年10月23日木曜日」と表示するマクロである。

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

Sub Exam1()

　　 MsgBox Format(Range(“A2”), “yyyy年mm月dd日【　① 】”)

End Sub

dddd

aaaa

ddd

aaa

38.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

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

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

Sub Exam1()

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

End Sub

2

“Sheet2”

1

Sheet2

39.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

個人用マクロブックに関する説明として、誤っているものを一つ選びなさい。

個人用マクロブックは、非表示のブックである。

個人用マクロブックは、Excel 起動時に自動的に読み込まれる。

個人用マクロブックは、隠しファイル属性を持っている。

個人用マクロブックは、Excel の終了時に自動的に削除される。

40.

＿＿＿＿＿＿＿＿＿＿,＿＿＿＿＿＿＿＿＿＿

変数の宣言を強制した状態で次のコードのうち実行したときに、エラーとなるマクロはどれか、選択肢の中から一つ解答しなさい。

Sub Exam1()
Dim 0B As Long
0B = 100
MsgBox 0B
End Sub

Sub Exam1()
Dim oB As Long
oB = 100
MsgBox oB
End Sub

Sub Exam1()
Dim A0 As Long
A0 = 100
MsgBox A0
End Sub

Sub Exam1()
Ao = 100
MsgBox A0
End Sub