【ランダム順出題】Excel VBA スタンダード 模擬試験　問題バンクから40問出題

次のコードは、2列目の1行目から15行目に「5」を入力する時に、2列目のセルが空欄の場合には処理を一時停止するマクロである。

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

次のコードは、セルA1を含む表を指定条件で絞り込み、４列目にREDと入力するマクロである。

なお、セル範囲を特定する際にEndモードを使用しているがシートの上から下に向かって進んでセル範囲を特定している。

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

Sub Exam1()

　Range("A1").AutoFilter 2, "Tomato"

　　Range (Range ("D2"), Cells (2, 4).End()) ＝ "RED"

End Sub

以下のマクロを実行したところ、セルC1内に「150」と表示された。

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

Sub Exam1()

　Range("B1") = 50

　  Exam2()

End Sub

Sub Exam2()

　Range("C1") = Range("B1") *3

End Sub

次のコードはセル範囲を選択し、選択したの中から一つずつセルを取り出し、取り出したセルの値を変数に加算するマクロである。

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

Sub Exam1()

    Dim A As Range,N As Long

       Range("B1").CurrentRegion.Select

    For Each A In

        N = N + A.Value

    Next A

    MsgBox N

End Sub

次の文章は、デバッグ作業で使うイミディエイトウィンドウの説明と出力コードです。

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

次のコードは実行すると、イミディエイトウィンドウに「12345」を出力します。

Sub Exam1()

　 . 12345

End Sub

次のコードは、セルA1を含む表を指定条件で絞り込むマクロである。

絞込み後４列目にREDと入力された同じ行の1列目「Data1」の合計値は である。

上記空欄に入る適切な値を解答しなさい。

Sub Exam1()

　Range("A1").AutoFilter 2, "Apple"

　　Range (Range ("D2"), Cells (Rows.Count, 4).End(xlUp)) ＝ "RED"

End Sub

次のコードは、セルA1を含む表に対して3列目が"100以上かつ、300以下"の条件で絞り込むマクロである。

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

Sub Exam1()

　Range("A1").   3, ">=100",  , "<=300"

End Sub

次のコードは、引数を使わず変数Cを共有し初期値を設定するマクロである。

1 ～ 4の内 で変数の宣言と初期化を行うのが適切である。
適切なものを解答しなさい。

変数の宣言と初期化：　Dim C As Long

Option Explicit

【　1　】

Sub Exam1()

【　2　】

　C = 10

　Call Exam2

End Sub

Sub Exam2()

【　3　】 　

　C = C + 5

　Call Exam3()

End Sub

Sub Exam3

【　4　】

　MsgBox "Cの値は" & C

End Sub

次のコードは、アクティブブックを"Documents"フォルダ内に「total_8.xlsm」として保存するマクロである。

なおファイル名の「8」は、実行時8月現在の月を表示したものである。

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

Sub Exam1()

　ActiveWorkbook. "C:\Documents¥" & "total_" & Month( ) & ".xlsｍ"

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 

以下のコードは、エラーが発生した際にエラーの詳細を

イミディエイトウィンドウに表示し、その後エラー情報をクリアにするマクロです。

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

Sub Exam1()

 On Error Goto ErrorHandler

 Dim ws As Worksheet

 Set ws = ThisWorkbook.Sheets(“Sheet2”)

 　ws.Range(“B2”).Value = Application.WorksheetFunction.Sum(Range(“A1:A10”))

Exit Sub

ErrorHandler:

　Debug.Print “Error: “ & Err.Description

   Err.  

End Sub

以下のコードはRangeと構造化参照で列を指定して、指定列の右側に列を挿入し、

挿入列の各セルに数式を代入するマクロである。

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

Sub Exam1()

　Range("table1[[#Data], [Data2]]"). (0, 1).Formula = "= []*1.5"

End Sub

次のコードは、D列を基準に昇順で並べ替えるマクロである。

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

Sub Exam1()

　With Sheets(“Sheet2”).Sort

    .SortFields.Clear

    .SortFields.Add2 Key:=Range(“D2”), SortOn:=xlSortOnValues, Order:=, DataOption:=xlSortNormal

　 .SetRange Range(“A1:D11”)

    .Header = xlYes

    .Apply

 End With

End Sub

以下のコードは、A列を検索し、見つかったセルからC列までをセルE2へコピーするマクロである。

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

Sub Exam1()

　Dim A As Range

　　Set A = Range(“A:A”). Find (What:=“8”)

　　If A Is Nothing Then

　　　MsgBox “0”

　　Else

　　　Range(A, A.End()).Copy Range(“E2”)

　　End If

End Sub

以下のコードは、セルA1を含む表の3列目を300より小さい条件で絞り込み、

その結果全体をSheet5のセルC1にコピーするマクロである。

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

Sub Exam1()

　Range("A1").AutoFilter 3, "<300"

　Range("A1"). .Copy Sheets("Sheet5").Range("C1")

End Sub

以下のコードは、表の3列目に入力されている値を昇順に並べ替えるマクロである。

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

Sub Exam1()

　Range("A1").Sort :=Range("D1"), :=xlAscending, :=xlYes

End Sub

次のコードは、見出し行もふくめ全て選択後、行数を表示するマクロである。

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

なおテーブル名は”table1”である。

Sub Exam1()　

　With Sheets("sheet1").ListObjects (” ”).Range.Select

　 MsgBox Selection.Rows.Count

　End With

End Sub

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

 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"という名前のシートがあるか確認するマクロである。

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

Sub Exam1()

Dim wb As Workbook

　Dim ws As Worksheet

　For Each wb In

　For Each ws In wb.Sheets

　If ws.Name = “VBA” Then

　　MsgBox “OK”

　　Exit Sub

　End If

　Next ws

　Next wb

　　MsgBox “Nothing”

End Sub

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

Range("Table1[]")

あるいは

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

と記述します。

次のコードは、セルA1を含む表を2列目が "Potato"と等しい条件で絞り込み、

その結果が何件あるかをメッセージボックスに表示するマクロである。

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

Sub Exam1()

　Range("A1").AutoFilter 2, "Potato"

 　MsgBox WorksheetFunction. (3, Range("A:A")) – 1

End Sub

以下のコードはオブジェクト変数を用いて、シートの追加やアクティブシートを指定するマクロである。

マクロ実行後のアクティブシートのシート名を解答しなさい。

・マクロ実行後のアクティブシートのシート名は である。

なおオブジェクト変数「ws1」に格納されたシートの名前は「Sheet1」である。

Sub Exam1() 　

　Diｍ ws1 As Worksheet , ws2 As Worksheet 　

　Set ws1= ActiveSheet 　

　Set ws2 = Worksheets.Add　　

　　ws1.Activate 　　

　　ws2. Name = "Total"

End Sub

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

Sub Exam1()

　On Error GoTo Error1

処理

　Exit Sub

　 MsgBox "エラー"

End Sub

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

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

Sub Exam1()

　With Sheets(“Sheet1”). Sort

　.SortFields. Clear

　.SortFields.Add Key:=Range(“D2”), CustomOrder:=“ASIA,EU,NorthAmerica,Other”

    .SortFields.Add Key:=Range(“C2”), Order:=xlDescending

　.SetRange Range(“A1:D10”)

　.Header = xlYes

　.Apply

　End With

　　MsgBox Range(“C3”).Value

End Sub

次のコードはテーブルの右側に列を追加し、セルに値を入力するコードである。

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

Sub Exam1()

　Dim A As Long

　With Range("A1").ListObject

　　.ListColumns.  

　　　A = .ListColumns.Count

　　.ListColumns(A).DataBodyRange = "=[@Data3]*0.7"

　End With

End Sub

次のコードは、1列目に入力されている文字列データを 「-」で分割し、

その左側の部分を2列目に入力するマクロである。

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


コード実行後、セルB7に入力された値は である

Sub Exam1()

　Dim i As Long, parts As Variant

　For i = 2 To 10

　　parts =  Split (Cells(i, 1).Value, "-")

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

　Next i

End Sub