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

次の文章は、イミディエイトウィンドウに関する説明です。

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

イミディエイトウィンドウに range("C2").Value　

のように「上記空欄と同じ」を先頭につけて入力し、エンターキーを押すと、

プロパティの値や変数の値、関数の結果を調べてイミディエイトウィンドウに表示することができます。

例：Valueプロパティ

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

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

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

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

　　　

次のコードは、テーブルのすべてをSheet11のセルB2へコピーするマクロである。

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

Sub Exam1()

　Range("table1 ").Copy Sheets("Sheet11").Range("B2")

End Sub

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

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

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

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

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

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

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

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

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

Sub Exam1()

　Dim ws As

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

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

End Sub

次のコードは、１列目に入力されている"Japan"という文字列が入力されているセルの個数をカウントし、

メッセージボックスに個数を表示するマクロである。

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

Sub Exam1()

　Dim i As Long, count As Long

　For i = 2 To 11

　　If Cells(i, 1) = "Japan" Then

　　　count = count +

　End If

　Next i

　　MsgBox count

End Sub

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

Dim result As result = IsNumeric("123")

次のコードは宣言時には、配列の要素数の上限数が不明であり、指定の値を区切り文字で区切り配列に格納するマクロである。

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

Sub Exam1()

　Dim B As Variant, i As Long

　B = (“Canada:France:Germany”, “:”)

　For i = 0 To  (B)

　　MsgBox B(i)

　Next i

End Sub

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

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

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

Sub Exam1()

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

End Sub

次のコードを実行後、メッセージに表示される値は である。

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

Sub Exam1()

　Dim N As Long

　　With Range("A1").ListObject

　　　.DataBodyRange.AutoFilter 3, "800"

　　　.ListColumns(1).DataBodyRange.Value = "―"

　　　.DataBodyRange.AutoFilter 3

　　End With

　　　N = WorksheetFunction.SumIf(Range("A1:A10"), "1", Range("C1:C10"))

　　　　MsgBox N

End Sub

次のコードは、ブックが保護されているかどうかを確認するマクロです。

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

Sub Exam1()

　If ThisWorkbook.   = True Then

　　MsgBox “Protected”

　Else

　　MsgBox “NG”

　End If

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

以下のコードは、2列目で「Japan」を検索し、見つかったときは見つかったセルの３列目に「ASIA」を代入し、見つからなかったときは「0」と表示するマクロである。

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

Sub Exam1()

　Dim A As Range

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

　If A Is   Then

　　MsgBox “0”

　Else

　　A.Offset(0, 1) = “ASIA”

　End If

End Sub

次のコードはテーブル全体をコピーするマクロである。

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

なおテーブルの名前は画像の左上に表示されています。

Sub Exam1()

　　With Range(" [ ]")

　　　.Copy Sheets("Sheet12").Range("B2")

　　End With

End Sub

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

絞り込んだ結果の値の合計をメッセージボックスに表示するマクロである。

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

Sub Exam1()

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

　　MsgBox WorksheetFunction.Subtotal(, Range("A:A"))

End Sub

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

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

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

Sub Exam1()

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

End Sub

次のコードは、指定された範囲内で特定の値を検索し、その値が見つかったセルの相対的な位置をメッセージボックスで表示するマクロである。

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

Sub Exam1()

　Dim searchValue As String

　Dim result As Variant

　　searchValue = “Baseball”

     result = Application. (searchValue, Range(“A2:A11”), 0)

   If IsNumeric(result) Then

     MsgBox searchValue & “ は “ & result & “ 番目にあります。”

  Else

    MsgBox searchValue & “ は見つかりませんでした。”

  End If

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列に入力されている文字列や数値、記号が混在している値の中からコードをカンマで区切り、数値のみをB列に代入するマクロである。

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

Sub Exam1()

　Dim i As Long, A As Variant, C As 

　For i = 2 To 11

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

　　For Each C In

　　　If IsNumeric(C) = True Then

　　　　Cells(i, 2) = C

　　　End If

　　Next C

　Next i

End Sub

次のコードは、2列目の値が1000より大きいときは3列目に”High”を入力し、

700より小さいときは3列目に”Low”を入力し、それ以外のときは”Medium”を入力するマクロである。

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

Sub Exam1()

　Dim i As Long

　For i = 2 To 11

　　 Case Cells(i, 2)

　　Case Is > 1000

　　　Cells(i, 3) = “High”

　　Case    < 700

　　　Cells(i, 3) = “Low”

　　Case  

　　　Cells(i, 3) = “Medium”

　　End Select

　Next i

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(“Sheet2”).Sort

  .SortFields.Clear

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

  .SetRange Range(“A1:D11”)

  .Header = xlYes

  . = False

  .Apply

 End With

End Sub

次のコードは、B列で"Japan"を探し、見つかったセルを含む行全体を削除するマクロである。

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

Sub Exam1()

 Dim A As Range

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

 If A Is Nothing Then

   MsgBox “見つかりませんでした”

 Else

  A..Delete

 End If

End Sub

以下のコードは、表の2列目が “Canada “または"United Kingdom"の条件で絞り込むマクロである。

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

Sub Exam1()

　　Range( “A1 “).AutoFilter 2,  “Canada “, ,  “United Kingdom"

End Sub

次のコードは、指定のセル範囲内で「Banana」という値を検索し、そのセルをコピーしてセルの背景を黄色にするマクロである。

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

Sub Exam1()

　Dim N As Range

　　Set N = Range("B2:B10").( :=“Banana”, Lookat:=xlWhole)

　　If Not N Is Nothing Then

　　　N.Copy Range("C2")

　　　　Range("C2").Interior.Color = vbYellow

　　End If

End Sub

次のコードは、 セル範囲A2:A10に入力されている文字列から"-"を除去した結果を2列目に入力するマクロである。

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

Sub Exam1()

　Dim i As Long

　　For i = 2 To 10

　　　Cells(i, 2) =  (Cells(i, 1), "-", "")

　　Next i

End Sub