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

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

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

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

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

次のコードは、2列目に入力されている日付から、前月の月末日を3列目に代入するマクロである。

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

Sub Exam1()

　Dim i As Long

　　For i = 2 To 6

　　　Cells(i, 3) = WorksheetFunction.   (Cells(i, 2),  )

　　Next i

End Sub

以下のコードは配列を使用し、実行した結果メッセージに"Canada"が表示されるマクロである。

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

Sub Exam1()

　Dim countries(   To 4) As String

　countries(0) = “Canada”

　countries(1) = “France”

　countries(2) = “Germany”

　countries(3) = “Italy”

　countries(4) = “Japan”

　　　MsgBox countries(「上記空欄と同じ」)

End Sub

以下のコードは、ユーザーが指定した語句の順番に並び替えるマクロである。

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

Sub Exam1()

　With Sheets("Sheet1"). Sort

　.SortFields. Clear

　.SortFields.Add Key:=Range("B2"), CustomOrder:="Golf  Basketball 「空欄と同じ」Tennis"

　.SetRange Range("A1").CurrentRegion

　.Header = xlYes

　.Apply

 End With

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

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

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

Sub Exam1()

　With Sheets(“Sheet2”).Sort

　　.SortFields.Clear

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

　　.SetRange Range(“A1:D11”)

　　.Header = xlYes

　　　.Apply

　End With

End Sub

以下のコードは、表の4列目を検索しセルの位置を特定しセルの値をセルG2へ入力するマクロである。

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

Sub Exam1()

　Range("G1") = WorksheetFunction.(Range("F1"), Range("A1:D10"), 4, False)

End Sub

次のコードは、コードの途中で配列の要素数を増やし、その後メッセージボックスに"Germany"と表示するマクロである。

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

Sub Exam1()

　Dim Countries() As String

  Countries(2)

　Countries(0) = "Canada"

　Countries(1) = "France"

　Countries(2) = "Germany"

「上記空欄と同じ」 Countries(4)

　Countries(3) = "Italy"

　Countries(4) = "Japan"

　　MsgBox Countries(2)

End Sub

以下のコードは、ブックの最後のシートのセルD5に"Country"と入力するマクロである。

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

Sub Exam1()

　Dim ws As Worksheet

　  ws = ThisWorkbook.Sheets(ThisWorkbook.Sheets.count)

　ws.Range("D5").Value = "Country"

End Sub

次のコードはセルを検索し見つかった場合は、セルのアドレスを表示するマクロである。

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

Sub Exam1()

　Dim N As Range

　Set N = Range(“A2:B11”).Find(What:=“Baseball”, Lookat:=xlWhole)

　If N Is  Then

　　　MsgBox N.Address

　End If

End Sub

次のコードは、条件を満たした際に処理を実行する条件分岐のマクロである。

D列に入力された値の合計値は である。

Sub Exam1()

　Dim i As Long

　　For i = 2 To 11

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

　　　　If Cells(i , 2) = “Boxing” Then  Cells (i, 4) = Cells(i, 3) * 2

　　　End If

　　　If Cells(i , 1) = “3” Then

　　　　　If Cells(i , 2) = “Rugby” Then  Cells (i, 4) = Cells(i, 3) * 3

　　　End If

　Next i

End Sub

次のコードは、1列目を見出しごと選択し、選択した列数を表示するマクロである。

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

Sub Exam1()

　 Range("A1").ListObject. .Range .Select

　MsgBox Selection.Columns.Count

End Sub

次のコードは指定のセルを含むテーブルを絞り込み、テーブル内の2列目のみコピーするマクロである。

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

Sub Exam1()

　With Range("A1").ListObject

　　.Range.AutoFilter 3, "800"

　　. (2).Range.Copy Sheets("Sheet10").Range("B2")

　End With

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

次のコードは表内を検索するマクロである。実行すると”Soccer”と表示された。

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

Sub Exam1()

　Dim A As Range

　Set A = Range("A2:A10").Find(What:="8", Lookat:= xlWhole)

　　MsgBox A. Offset  

End Sub

次の文章はデバッグ作業の内 、マク口のコードを1行ずつ止めながら実行する説明である。

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

・VBE内のマク口のコードを1行ずつ止めながら実行するのが です。

・「上記空欄と同じ」の操作をコードの最初から行うには、実行したいプロシージャの中にカーソルを置き、 キーを押します。 

・実行すると、プロシージャのカーソル置いた箇所が黄色くハイライトされます。

これ以降、「上記空欄と同じ」キーを押すたびに、 1行ずつマクロが実行されます。

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

Sub Exam1()

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

End Sub 

次のコードは実行したとき、メッセージボックスに「40」と表示するマクロである。

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


Sub Exam1()

　Dim B As Long

　B = 20

　Call ModifyValue(B)

　MsgBox B

End Sub

Sub ModifyValue( B As Long)　

　B = B * 2

End Sub

次のコードは、ユーザーが指定した語句の順番に基づいてデータを並べ替えるマクロである。

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

Sub Exam1()

　With Sheets("Sheet1"). Sort

　　.SortFields. Clear

　　.SortFields.Add Key:=Range("B2"), :="Golf,Basketball,Tennis"

　　.SetRange Range("A1").CurrentRegion

　　.Header = xlYes

　　.Apply

　End With

End Sub

以下のコードはオートフィルターで絞り込みをし、その後オートフィルターを解除するマクロである。

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

Sub Exam1()

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

  Range(Range("D2"), Cells(Rows.count, 4).End(xlUp)) = "ASIA"

 Range("A1").

End Sub

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

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

Sub Exam1()

　With Sheets(“Sheet2”).Sort

    .SortFields.Clear

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

　 .SetRange Range(“A1:D11”)

    .Header = xlYes

    .Apply

 End With

次のコードはセル内の書式を統一し、その書式を統一した値を同じセルに代入するマクロである。

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

Sub Exam1()

　Dim i As Long

　Dim j As Long

　For i = 2 To 6

　　For j = 1 To 3

　　　Cells(i, j). = "yy/mm/dd"

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

　　Next j

　Next i

End Sub

以下のコードはマクロが書かれているブック上のセルを値を取得し、ブックを一つずつ開き、

最後にアクティブ状態のブック名を表示するマクロである。

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

Sub Exam1()

　Dim i As Long

　For i = 2 To 5

　　Workbooks.Open "C:\Data\" &  .ActiveSheet.Cells(i, 1) & ".xlsx"

　Next i

　　MsgBox ActiveWorkbook.Name

End Sub

　　　

次のコードは、指定したセル範囲に入力されている数値を合計し、

その合計値を別のセルに入力するマクロである。

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

Sub Exam1()

　Range("B20") =  . (Range("B1:B19"))

End Sub

次のコードは、宣言時には要素数を指定せず、途中で要素数を4に指定したマクロである。

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

Sub Exam1()

　Dim countries As String

　  countries(4)

　countries(0) = “Canada”

　countries(1) = “France”

　countries(2) = “Germany”

    countries(3) = “Italy”

    countries(4) = “Japan”

　　MsgBox countries(3)

End Sub

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

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

Sub Exam1()

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

End Sub

次コードは実行すると "1234" がメッセージボックスに表示されるマクロである。

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

Sub Exam1()

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

　A(0) = 1

　A(1) = 2

　A(2) = 3

　A(3) = 4

　　For Each In A

　　i = i & N

　Next N

　　MsgBox i

End Sub