６差し替え用

制限時間は50分です。

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

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

1.

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

テーブル操作において、存在しない列名や範囲を指定してエラーが発生した際、エラーの情報を取得するために使用されるオブジェクト名を解答しなさい。

オブジェクト

2.

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

テーブル「Table1」の「DATA1」列において、見出しを除いた「データ部分のみ」を指定する構造化参照の記述として正しいものを解答しなさい。

Range("Table1[]")

あるいは

Range("Table1[],[上記空欄と同じ]")

と記述します。

3.

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

次のコードを実行したとき、メッセージボックスに表示される値として正しいものを解答しなさい。

Sub Exam1()

　Dim A As Integer

　A = 5

　Call Exam2(A)

MsgBox A

End Sub

Sub Exam2(X As Integer)

　X = X * 3

End Sub

15

0

コンパイルエラーが発生する。

5

4.

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

VBAにおける「配列」の説明として、最も適切なものを選択肢の中から1つ選びなさい。

複数の値を同時に格納することができる変数のことである。

条件を満たすまで処理を繰り返すための制御構造である。

呼び出し元のプロシージャへ値を返す専用の関数である。

1つの変数につき、1つの値のみを格納できる仕組みである。

5.

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

次のコードは、表の3列目を「500以上」の値で絞り込むマクロである。絞り込み条件（抽出条件）を指定する引数名として正しいものを解答しなさい。

Sub Exam1()

Range("A1").AutoFilter Field:=3, ">=500"

End Sub

6.

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

並べ替えを実行する際、の説明として以下の空入る正しいものを解答しなさい。

・タイトル行（ヘッダー）があるかどうかをExcelに自動判別させる設定としてを引数として指定する。

なお数値で指定する場合はを指定する。

7.

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

次のコードを実行したとき、変数Nに格納される値を解答しなさい。

値はである。

Sub Eaxam1()

　Dim N As Boolean

　　N= IsDate("2024/13/01")

End Sub

8.

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

次のコードは、A列の値をカンマで区切り、B列に代入するマクロである。

セルB６に入力された値はどれか選択肢より適切なものを解答しなさい。

Sub Exam1()

　Dim i As Long, A As Variant, C As Variant

　For i = 2 To 11

　　A = Split(Cells(i, 1), ”,”)

　　For Each C In A

　　　If IsNumeric(C) = True Then

　　　　Cells(i, 2) = C

　　　End If

　　Next C

　Next i

End Sub

BJapan789

Japan

B

789

9.

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

並べ替えの条件を設定する際、コード内の「セルの値」に基づいて並べ替えを行うことを指定する語句を解答しなさい。

Sub Exam1()

　With Sheets(“Sheet2”).Sort

.SortFields.Clear

.SortFields.Add2 Key:=Range(“C2”), :=, Order:=xlAscending, DataOption:=xlSortNormal

　 .SetRange Range(“A1:D11”)

.Header = xlYes

.Apply

End With

End Sub

10.

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

次のマクロは、Cドライブの「Temp」フォルダにあるファイルを、同じフォルダ内へ別名でコピーするものである。

コピー先となる「Backup.xlsx」が既に存在している状態でこのマクロを実行したとき、どのような結果になるか適切なものを選択しなさい。

Sub Exam1()

　Dim A As String
　Dim N As String

　A = ”C:\Temp\Data.xlsx”

　N = ”C:\Temp\Backup.xlsx”

　　FileCopy A, N

End Sub

確認メッセージは表示されず、既存のファイルが上書きされてマクロが終了する。

「既にファイルが存在します。上書きしますか？」という確認メッセージが表示される。

エラーメッセージが表示され、マクロの実行が中断される。

コピーは行われず、既存のファイルが保護されたままマクロが終了する。

11.

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

VBAにおける配列の仕様について、正しいものを選択肢の中から１つ解答しなさい。

配列の下限数は、常に「0」から始まる。

配列の下限数は、要素のデータ型によって決まる。

配列の下限数は、宣言時に「Dim A(1 To 5)」のように明示的に指定できる。

配列を「Dim A(5)」と宣言したとき、要素の下限数は「1」である。

12.

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

次のコードは、変数 i の値が 5 になった時に Do...Loop ループを途中で終了させるマクロである。

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

Sub Exam1

Dim i As Long

　i = 1

Do While i <= 10

If i = 5

Then

End If

i = i + 1

Loop

End Sub

13.

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

次のコードにおいて、変数を宣言した直後の変数Aに格納されている「初期値」として正しいものを選択しなさい。

Dim A As Long

A = A + 1

1

0

空欄("")

Null

14.

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

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

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

Sub Exam1()

　Dim A(3) As Long, N As Variant, i As String

　A(0) = 3

　A(1) = 5

　A(2) = 11

　A(3) = 9

　For Each N In A

　　i = i & N

　Next N

　　MsgBox i

End Sub

15.

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

次のコードは表内を、セルF1に入力された文字列を表内の位置を探し、

見つけた位置を参照して、B列の値をセルG1に入力するマクロである。

コード実行後セルG1に入力された値は【　 ①　】である。

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

Sub Exam1()

　Dim N As Long

　With WorksheetFunction

　　N = .Match(Range(“F1”), Range(“C2:C10”), 0)

　　　Range(“G1”) = .Index(Range(“B2:B10”), N)

　End With

End Sub

excel-vba-standard-test-worksheet-function

600

Japan

United Kingdom

United States

16.

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

次のコードは、表の指定範囲を2列目を基準に上下に並び変えるマクロである。

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

Sub Exam1()

With Sheets(“Sheet2”).Sort

.SortFields.Clear

.SortFields.Add2 Key:=Range(“B2”), Order:=xlDescending

.SetRange Range(“A1:C11”)

.Header = xlYes

.MatchCase = False

. =

.Apply

End With

End Sub

17.

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

モジュールの先頭に記述することで、すべての変数に対して事前の宣言を強制する語句を解答しなさい。

記述：

18.

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

テーブルオブジェクトの構造化参照に関する説明として、正しいものを選択しなさい。

行を指定するには、列名と行番号を組み合わせて「[列名][3]」とする必要がある。

プロパティを使わなければ、行を操作することは一切できない。

Range("Table1[3]") のように記述して、テーブルの3行目を直接指定できる。

構造化参照では、行番号による直接指定を行うことはできない。

19.

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

マクロを特定の行で一時停止（中断）させる方法に関する説明として、不適切なものを選択しなさい。

停止したい行の左側をクリックして「ブレークポイント」を設定する。

コードの中に「Pause」ステートメントを記述する。

コードの中に「Stop」ステートメントを記述する。

キーボードの「F9」キーを押してブレークポイントを設定する。

20.

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

次のコードは、セルA1から順に下方向にチェックし、空白セルが見つかるまで処理を繰り返すマクロである。空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim i As Long

　 i = 1

　 While Cells(i, 1).Value ""

i = i + 1

End Sub

21.

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

日本語のデータを「ふりがな」を使って並べ替える際に使用する引数はに定数を指定する。

22.

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

ExcelおよびVBAにおける「シリアル値」の説明として、正しいものを選択しなさい。

エラーが発生した順番に割り振られる管理番号のことである。

日付を「1900年1月1日」を「1」としてカウントした数値のことである。

テーブルの各行に自動的に割り振られるIDのことである。

通信時にデータを1ビットずつ送るための順序番号のことである。

23.

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

Sort オブジェクト等を使用して列を基準に並べ替えを行う際、Rangeに指定する引数として適切な説明を選択しなさい。

その列のセルであれば、どこを指定してもよい。

セル番地ではなく、列番号（1, 2...）で指定しなければならない。

必ずその列の1行目のセル（タイトル行）を指定しなければならない。

その列のすべてのセルを選択しなければならない。

24.

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

次のコードを実行した時に、メッセージボックスに表示される語句を解答しなさい。

Sub Exam1()

　Dim countries() As String

　　Redim countries(4)

　countries(0) = “Canada”

　countries(1) = “France”

　countries(2) = “Germany”

countries(3) = “Italy”

countries(4) = “Japan”

　　MsgBox countries(3)

End Sub

Germany

Italy

Japan

何も表示されなかった。

25.

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

以下のコードは、表の指定範囲の2列目を降順で上下に並び替えるマクロである。

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

Sub Exam1()

With Sheets(“Sheet2”).Sort

.SortFields.Clear

.SortFields.Add2 Key:=Range(“B2”), Order:=xlDescending

.SetRange Range(“A1:D10”)

.Header = xlYes

.MatchCase = False

.Orientation =

　 .Apply

End With

End Sub

26.

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

次のコードは、セルA1を含む表に対して、2列目を基準にオートフィルターを設定するマクロである。空欄に入る適切な引数名を解答しなさい。

Sub Exam1()

　　Range("A1").AutoFilter := , Criteria1:="White"

End Sub

27.

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

イミディエイトウィンドウの機能として、正しいものを選択肢の中から１つ解答しなさい。

プロシージャの中に記述されたコメントの一覧を表示する。

コードを1行ずつ実行（ステップ実行）するための専用画面である。

プログラムを実行しながら、変数の値を書き換える（代入する）ことができる。

定数（Const）の値を変更するための場所である。

28.

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

次のコードは、セル範囲A1:A10の中から「RED」という文字を含むセルを検索するマクロである。

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

Sub Exam1()

　Dim N As Range

　　　Set N = Range(”A1:A10”).)(What:=(”RED”, LookAt:=)

　　If Not N Is Nothing Then

　　MsgBox N.Address

　End If

End Sub

29.

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

エラーが発生した際に、指定したラベル「 Error1」へ処理を飛ばすための記述を解答しなさい。

Sub Exam1()

　On Error GoTo Error1

処理

　Exit Sub

　 MsgBox "エラー"

End Sub

30.

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

VBAの WorksheetFunctionオブジェクトを使用して、Excelのワークシート関数である「VLOOKUP関数」を呼び出す際の、VBAのルールに従った正しい記述を選択肢の中から1つ選びなさい。

Sub Exam1()

Dim result As Variant

' 関数の計算結果を格納するための変数（何でも入るバリアント型）を宣言します。

result = WorksheetFunction.【　 ① 　】(Range(A1), Range(C1:D10), 2, False)

’ワークシート関数を呼び出します。

MsgBox result

計算結果を表示します。

End Sub

vlookup

vLookup

VLookup

VLOOKUP

31.

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

次のコードは、2列目の各セルに入力されている全角文字を半角文字に変換するマクロである。

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

Sub Exam1()

Dim i As Long

　For i = 2 To 11

　　Cells(i, 2).Value = (Cells(i, 2).Value, )

　Next i

End Sub

32.

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

VBAのプロシージャには、記述されているコードを実行するだけのものと、呼び出し元に値を返すことができるものの2種類があります。

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

値を返すことができないものを「Subプロシージャ」と呼ぶのに対し、値を返すことができるものを「プロシージャ」と呼びます。

33.

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

指定したデータが「数値」として認識できるかどうかを判定するコードである。
空欄に入る語句を解答しなさい。

Dim result As result = IsNumeric("123")

34.

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

VBAにおける「マクロの最小実行単位」に関する記述として、適切なものを選択肢の中から1つ選びなさい。

プロシージャ

ステートメント

プロジェクト

モジュール

35.

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

VBAの TypeName 関数に関する説明として、最も適切なものを選択肢の中から1つ選びなさい。

セルに入力されている値のデータ型のみを調べることができる。

変数名が文法的に正しいかどうかのみを調べることができる。

セルに入力されている値だけでなく、変数に格納されている値のデータ型も調べることができる。

数に格納されている値のデータ型のみを調べることができる。

36.

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

配列に関する用語の説明として、正しい組み合わせを選択肢の中から1つ選びなさい。

値を格納する箱を「変数」、箱番号を「タグ番号」と呼ぶ。

値を格納する箱を「引数」、箱番号を「要素数」と呼ぶ。

値を格納する箱を「メンバ」、箱番号を「プロパティ」と呼ぶ。

値を格納する箱を「要素」、箱番号を「インデックス番号」と呼ぶ。

37.

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

VBAの基本的な構成に関する説明として、最も適切なものを１つ選択しなさい。

VBAのコードはステートメントの集まりであり、ステートメントがマクロの最小実行単位となる。

VBAのコードが記述されたモジュールが、マクロの最小実行単位である。

VBAのプロシージャは、マクロの最小実行単位である。

VBAではFunctionプロシージャのみがマクロとして実行できる。

38.

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

FileCopy ステートメントを実行したときにエラーが発生するケースとして、適切なものを選択しなさい。

コピー先のファイル名がコピー元と異なる。

コピー元のファイルが読み取り専用である。

保存先のフォルダが存在しない。

コピー元のファイルサイズが 0 バイトである。

39.

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

VBAコードにおける「引数（ひきすう）」の説明として、最も適切なものを選択肢の中から1つ選びなさい。

マクロの実行を途中で強制的に終了させるための命令のことである。

1つの変数の中に、複数の値を同時に格納できる変数のことである。

マクロの最小実行単位のことである。

プロシージャを呼び出す際に、計算や処理の元となる値を渡す仕組みのことである。

40.

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

次のコードは並べ替える時に、数値とテキストを別々に扱うマクロである。

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

Sub Exam1()

　With Sheets(“Sheet2”).Sort

.SortFields.Clear

.SortFields.Add2 Key:=Range(“C2”), SortOn:=xlSortOnValues, Order:=xlAscending, :=

　 .SetRange Range(“A1:D11”)

.Header = xlYes

.Apply

End With

End Sub