【ランダム順出題】Excel VBA スタンダード 模擬試験　⑥

次のコードは、セル範囲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

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

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

Sub Exam1()

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

Sub Exam1()

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

End Sub 

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


Sub Exam1()

　Dim i As Long

    　 i = 1

　 While Cells(i, 1).Value ""

       i = i + 1

End Sub 

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

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

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

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

Sub Exam1()

　On Error GoTo Error1

処理

　Exit Sub

　 MsgBox "エラー"

End Sub

次のコードは、変数 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 

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

オブジェクト

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

記述：

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

値はである。

Sub Eaxam1()

　Dim N As Boolean

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

End Sub 

以下のコードは、表の指定範囲の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

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

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

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

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

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

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

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

Sub Exam1()

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

End Sub 

次のコードは、表の指定範囲を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

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

Dim result As result = IsNumeric("123")

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

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

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

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

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

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

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

Range("Table1[]")

あるいは

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

と記述します。