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 プロパティは、対象のセル …

: オートフィルタ（アイコンで抽出する）AutoFilter メソッド

オートフィルタ（アイコンで抽出する） Excel 2007 から、条件付き書式で …

: セルの位置を取得（Left プロパティ、Top プロパティ）

Left プロパティ・Top プロパティ Left プロパティは、「A列」の左端 …

: ２つ以上のセル範囲を１つにまとめて参照（Union メソッド）

Union メソッド Union メソッドは、２つ以上のセル範囲を１つにまとめて …

: 入力規則（Validation オブジェクト）

Validation オブジェクトセル範囲に入力できる値を制限するには入力規 …

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

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

: セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

セルの値の置換と書式設定検索条件に一致するセルの書式を設定するには、まず、Ap …

: 連続データを入力する（AutoFill メソッド）

AutoFill メソッド Excel で、連続するデータを入力する「オートフィ …

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

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

: 外枠罫線の設定（BorderAround メソッド）

外枠罫線の設定罫線の設定には、Borders プロパティを使用しますが、範囲内 …

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