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

関連記事

: オートフィルタの状況を確認（AutoFilterMode, FilterMode)

AutoFilterMode プロパティ AutoFilterMode プロパテ …

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

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

: セルが選択されているか確認する（TypeName 関数）

セルが選択されているか確認する方法と使用例 TypeName 関数の引数に、Se …

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

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

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

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

: セルの特定の要素のみをペーストする（PasteSpecial メソッド）

PasteSpecial メソッド PasteSpecial メソッドは、Cop …

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

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

: 現在選択されているセルを参照（RangeSelection プロパティ）

RangeSelection プロパティ実際に何が選択されているかにかかわらず …

: グラデーション（Pattern プロパティ・Gradient プロパティ）

セルの背景ににグラデーションを設定する Pattern プロパティを使用するとセ …

: セルを削除する（Delete メソッド）

Delete メソッド Delete メソッドで、指定したセル・セル範囲を削除し …

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