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

  関連記事

セルの値を置換(Replace メソッド)

Replace メソッド 任意のセル範囲内から特定の値を一括して置換します。Fi …

セル範囲内を検索(Find メソッド)

Find メソッド 指定したセル範囲内の特定の情報を含むセルを検索します。 【書 …

行の高さを取得・設定・する(RowHeight プロパティ)

RowHeight プロパティ RowHeight プロパティは、対象セルの高さ …

終端セルを参照する(End プロパティ)

End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …

次の検索(FindNext メソッド,FindPrevious メソッド)

FindNext メソッド Find メソッドで開始された検索を継続します。引数 …

セル範囲を結合・結合を解除(Merge メソッド・UnMerge メソッド)

Merge メソッド・UnMerge メソッド セルを結合するには、指定したセル …

セル・セル範囲に名前を定義・削除(Name プロパティ・Names コレクション)

セル・セル範囲に名前を定義(Name プロパティ) Range オブジェクトのN …

Row プロパティ・Column プロパティ 例
セルの行番号または列番号を取得(Row プロパティ,Column プロパティ)

Row プロパティ・Column プロパティ Row プロパティは、指定したセル …

セル・セル範囲をコピーする(Copy メソッド)

Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …

対象のセルが配列数式の一部かどうか(HasArray プロパティ)

HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …