エクセル VBA ピポットテーブルを作成
VBAにてピポットテーブルを作成する方法です。
----
Dim COUNT as integer
COUNT = Range("A65536").End(xlUp).Row ' 最後のレコードの行番号を入手
ActiveSheet.PivotTableWizard xlDatabase, Range(Cells(1, 1), Cells(COUNT, 10)), "", "集計テーブル"
ActiveSheet.PivotTables("集計テーブル").AddFields RowFields:=Array("ROW-01", _
"ROW-02"), ColumnFields:=Array("COL-01", "COL-02")
With ActiveSheet.PivotTables("集計テーブル").PivotFields("DATA")
.Orientation = xlDataField
.Caption = "合計 / DATA"
.Function = xlSum
End With
ActiveWorkbook.ShowPivotTableFieldList = True
----
今回のポイントは、レコード数が可変であっても対応するようにしました。
斜線字を環境に応じて変更します。
また、必要に応じてピポットテーブルの作成をマクロに記録し、
コピー&ペーストにて編集しましょう。
--参考ページ
http://www.serpress.co.jp/excel/vba027.html
http://www11.plala.or.jp/koma_Excel/index.html
「VBA」カテゴリの記事
- エクセル VBA 範囲指定(2009.10.16)
- エクセル VBA プリンタを指定して印刷(2009.04.24)
- エクセル VBA ピポットテーブルを作成(2009.04.17)
- エクセル VBA ファイル・フォルダの存在確認(2009.04.16)
- Excel VBA Tips (1)(2009.04.15)
「Excel」カテゴリの記事
- エクセル 文字列操作(2010.02.18)
- エクセル VBA ピポットテーブルを作成(2009.04.17)
- エクセル VBA ファイル・フォルダの存在確認(2009.04.16)
- Excel VBA Tips (1)(2009.04.15)
- Excel 翌月の指定日が土日・祝祭日だったら(2008.09.01)
The comments to this entry are closed.
Comments