ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

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

   

ワークシート関数の Subtotal 関数 の使い方

VBA には、オートフィルタの抽出件数を取得するプロパティやメソッドがないため、ワークシート関数の SABTOTAL 関数WorksheetFunction プロパティ から呼び出して使用します。さらに、SABTOTAL 関数 を使用して、抽出結果を対象にさまざまな集計を行うことが可能です。


【書式】

object.WorksheetFunction.Subtotal ( arg1, arg2 )


引数・戻り値

  • object  ・・・  対象となる Application オブジェクトを指定します。
  • arg1  ・・・  集計方法を整数値で指定します。(省略不可)
    対応する関数 内容
    1 AVERAGE 平均
    2 COUNT 数値を含むセル数
    3 COUNTA 空白でないセル数
    4 MAX 最大値
    5 MIN 最小値
    6 PRODUCT
    7 STDEV 標本標準偏差
    8 STDEVP 標準偏差
    9 SUM 合計
    10 VAR 不偏分散
    11 VARP 標本分散

  • arg2  ・・・  集計対象のセル範囲(Range オブジェクト)を指定します。(省略不可)

AutoFilter メソッド については、オートフィルタ(AutoFilter メソッド) 等を参照してください。



オートフィルタの結果を集計する使用例

サンプルVBAソース 1


実行結果

サンプルVBAソース 実行前

AutoFilter メソッド 使用例12_1

実行後

AutoFilter メソッド 使用例12_2



サンプルVBAソース 2


実行結果

サンプルVBAソース 実行前

AutoFilter メソッド 使用例12_3

実行後

AutoFilter メソッド 使用例12_4


 - セルの操作 , , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

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

  関連記事

ShrinkToFit プロパティ 例
文字列を縮小して全体を表示(ShrinkToFit プロパティ)

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

オートフィルタ(AutoFilter メソッド)

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

2つ以上のセル範囲を1つにまとめて参照(Union メソッド)

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

罫線の設定(Borders プロパティ)

罫線の設定 罫線を一括(上下左右すべて)で設定するには、Borders プロパテ …

対象のセルが直接参照しているセル全てを取得(DirectPrecedents プロパティ)

DirectPrecedents プロパティ DirectPrecedents …

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

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

セルのアドレスを確認(Address プロパティ)

Address プロパティ Address プロパティ・AddressLocal …

フリガナの設定(SetPhonetic メソッド)

フリガナの設定(SetPhonetic メソッド) SetPhonetic メソ …

使用中のセル範囲を取得(UsedRange プロパティ)

UsedRange プロパティ UsedRange プロパティは、指定したワーク …

ハイパーリンク(Hyperlinks オブジェクト)

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