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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 文字列の一部の書式を変更（Characters プロパティ）

文字列の一部を参照（Characters プロパティ） Characters プ …

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

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

: 並べ替え（Sort メソッド）

Sort メソッド任意のセル範囲内で、並べ替えを行います。引数で、並べ替えの条 …

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

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

: セル・セル範囲を切り取る（Cut メソッド）

Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した …

: セルのロック（Locked プロパティ）

セルのロック（Locked プロパティ） Locked プロパティで、セルのロッ …

: テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）

PatternThemeColor プロパティ・PatternTintAndSh …

: オートフィルタ（矢印を非表示にする）AutoFilter メソッド

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

: 別シートのセルを選択（Goto メソッド／ PreviousSelections プロパティ）

Goto メソッド次の例のように、1 行で、Activate メソッドや S …

: オートフィルタ（AutoFilter メソッド）

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

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