Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

オートフィルタ（平均より上・平均より下）AutoFilter メソッド

2015/09/13

平均値よりも大きい（小さい）値のレコードを抽出

AutoFilter メソッドで、引数 operator に、xlFilterDynamic を指定し、引数 criteria1 に、xlFilterAboveAverage を指定すると平均値よりも大きい値を抽出、引数 operator に、xlFilterDynamic を指定し、引数 criteria1 に、xlFilterBelowAverage を指定すると平均値よりも小さい値を抽出することができます（Excel 2007 以降のバージョン）。

【書式】

object.AutoFilter ( [ field, criteria1, operator ] )

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
field ・・・フィルターの対象となるフィールド番号を整数で指定します。対象となる範囲の最も左側の列（フィールド）が、フィールド番号 1 になります。
複数の列（フィールド）をまとめて扱いたい場合は、配列を指定することも可能です。
　（例）field := Array(1,3,6)
criteria1 ・・・平均を上回る値を抽出したい場合は、xlFilterAboveAverage を指定します。平均未満の値を抽出したい場合は、xlFilterBelowAverage を指定します。
operator ・・・ xlFilterDynamic を指定します。

AutoFilter メソッド の引数の詳細については、オートフィルタ（AutoFilter メソッド）を参照してください。

平均より上の値を抽出する例

サンプルVBAソース　１

　
Sub Sample09_1_AutoFilter()

    '全教科すべて平均点より上
    Range("B3").AutoFilter Field:=Array(3, 4, 5, 6, 7), _
                           criteria1:=xlFilterAboveAverage, _
                           Operator:=xlFilterDynamic

End Sub

1

2

3

4

5

6

7

8

9

10

　

Sub Sample09_1_AutoFilter()

'全教科すべて平均点より上

Range("B3").AutoFilter Field:=Array(3, 4, 5, 6, 7), _

criteria1:=xlFilterAboveAverage, _

Operator:=xlFilterDynamic

End Sub

　

実行結果

サンプルVBAソース実行前

実行後

平均より下の値を抽出する例

サンプルVBAソース　２

　
Sub Sample09_2_AutoFilter()

    '合計点が平均未満
    Range("B3").AutoFilter Field:=8, _
                           criteria1:=xlFilterBelowAverage, _
                           Operator:=xlFilterDynamic

End Sub

1

2

3

4

5

6

7

8

9

10

　

Sub Sample09_2_AutoFilter()

'合計点が平均未満

Range("B3").AutoFilter Field:=8, _

criteria1:=xlFilterBelowAverage, _

Operator:=xlFilterDynamic

End Sub

　

実行結果

サンプルVBAソース実行前

実行後

- セルの操作 AutoFilter メソッド, Range オブジェクト, VBA基本, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 対象のセルを参照している全てのセルを取得（Dependents プロパティ）

Dependents プロパティ Dependents プロパティは、対象のセル …

: 重複するデータを削除（RemoveDuplicates メソッド）

RemoveDuplicates メソッド指定したセル範囲から重複データを含む …

: オートフィルタ（抽出条件で使用できる演算子・記号）AutoFilter メソッド

AutoFilter メソッド【書式】 object.AutoFilter ( …

: セルを挿入する（Insert メソッド）

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

: 網かけ（パターン）の取得・設定（Pattern プロパティ）

網かけ（パターン）を取得・設定するセルの背景に網かけ（パターン）を設定したり、 …

: 入力規則（他セルや数式を利用して許容値を設定）Validation オブジェクト

他のセルや数式を利用して許容値を設定する入力規則（その5）での設定を、マクロ …

: 数式を非表示にする（FormulaHidden プロパティ）

FormulaHidden プロパティ数式が入力されたセルを選択するとその数式 …

: セルに値を設定する・セルの値を参照する（Value プロパティ）

Value プロパティ Value プロパティは、セルの値を取得したり、値を設定 …

: 引数に指定したセル範囲の共通のセル範囲を取得（Intersect メソッド）

Intersect メソッド Intersect メソッドは、引数に指定したセル …

: オートフィルタ（抽出件数の取得・結果集計）AutoFilter メソッド

ワークシート関数の Subtotal 関数の使い方 VBA には、オートフィル …

PREV: オートフィルタ（日付による抽出）AutoFilter メソッド
NEXT: オートフィルタ（日付フィルタ）AutoFilter メソッド