【カテゴリー別】Excel VBA スタンダード 模擬問題　オートフィルター

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

Sub Exam1()

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

End Sub 

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

Sub Exam1()

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

End Sub 

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

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

Sub Exam1()

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

End Sub

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

以下の空欄に入る数値を解答しなさい。

Sub Exam1()

　　Range("A1").AutoFilter 3, ">=200", , "<=400"

End Sub

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

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

Sub Exam1()

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

End Sub

次のコードは、表を４つの配列の値で絞り込むマクロである。

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

Sub Exam1()

　Dim Criteria(3) As String

　Criteria(0) = "Apple"

　Criteria(1) = "Banana"

　Criteria(2) = "Mango"

　Criteria(3) = "Grape"

　　Range("A1").AutoFilter Field:=2, Criteria1:=Criteria, Operator:=

End Sub

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

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

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

Sub Exam1()

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

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

End Sub

次のコードはオートフィルターをかけた後、見出し行を除いたデータ領域のみをコピーするマクロである。

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

Sub Exam1()

　Dim N As Range

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

　　Set N = Range("A1").CurrentRegion.Offset

　　　N.Copy Range("E2")

　Range("A1").AutoFilter 2

End Sub

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

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

マクロ実行後、表示された値は である。

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

Sub Exam1()

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

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

End Sub

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

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

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

Sub Exam1()

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

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

End Sub

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

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

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

Sub Exam1()

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

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

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を含む表を指定条件で絞り込み、４列目にREDと入力するマクロである。

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

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

Sub Exam1()

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

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

End Sub

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

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

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

Sub Exam1()

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

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

End Sub

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

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

Sub Exam1()

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

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

 Range("A1").

End Sub