|
いつも、本を片手に作っておりますが
どうしてもわからないので、皆様のお知恵を貸してください。
エクセルは2007を使っています。
VBAの本に載っているサンプルを使っています。
Sub ピボットテーブル作成()
'PivotCacheオブジェクトへの参照をキャッシュに代入します
Dim キャッシュ As PivotCache
Dim セル範囲 As Range
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets(1)
Set セル範囲 = ws1.Range("A1").CurrentRegion
Set キャッシュ = ThisWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, SourceData:=around)
Set ws2 = Worksheets.Add(After:=ws1)
'ここから実行時エラー5が出る
キャッシュ.CreatePivotTable _
TableDestination:=ws2.Range("A1"), TableName:="テーブル1" ', DefaultVersion:=xlPivotTableVersion10
With ws2.PivotTables("テーブル1")
'賃料*間取りのピボットを作ります
.AddFields RowFields:="金額(万円)"
.AddFields ColumnFields:="タイプ"
.PivotFields("個数/日").Orientation = xlDataField
End With
End Sub
列 A B C D E
日付 金額 タイプ 棚 個数/日
2008/11/20 1000 AB 071012 80
2008/11/20 2000 AC 071118 70
2008/11/20 3000 BC 120010 30
2008/11/20 4000 AB 071012 36
2008/11/20 5000 BD 071015 32
2008/11/20 1000 BC 120111 150
2008/11/20 2000 CC 071019 12
2008/11/20 3000 AB 140002 58
2008/11/20 4000 AC 120232 50
2008/11/20 5000 BB 071012 16
マクロを独学でしていますので、質問に至らない点があるかもしれませんが
どうぞよろしくお願いいたします。
|
|