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

関連記事

: ハイパーリンク（Hyperlinks オブジェクト）

Hyperlinks オブジェクトワークシートまたはセル範囲のワークシートコレ …

: セル内部を参照（Interior プロパティ）

Interior プロパティ Interior プロパティで、セルの内部を参照し …

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

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

: 任意の行または列を参照（Rows プロパティ,Columns プロパティ）

Rows プロパティ・Columns プロパティ Rows プロパティは、オブジ …

: 指定した条件に一致するセルを取得（SpecialCells メソッド）

SpecialCells メソッド SpecialCells メソッドは、指定し …

: 文字列の横位置を取得・設定する（HorizontalAlignment プロパティ）

HorizontalAlignment プロパティ HorizontalAlig …

: セル範囲を結合・結合を解除（MergeCells プロパティ）

MergeCells プロパティ MergeCells プロパティは、指定したセ …

: VBA で、ワークシート関数を使用（WorksheetFunction プロパティ）

VBA で、ワークシと関数を使用 VBA から、ワークシート関数を呼び出す場合、 …

: 文字列を縮小して全体を表示（ShrinkToFit プロパティ）

ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …

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

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

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