Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17901 / 76732

←次へ　｜　前へ→


	【64276】ピボットテーブルが作れません。

jun - 10/1/29(金) 14:22 -


	引用なし

	パスワード

いつも、本を片手に作っておりますが
どうしてもわからないので、皆様のお知恵を貸してください。

エクセルは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)
　
　 'ここから実行時エラー５が出る

　キャッシュ.CreatePivotTable _
　　　 TableDestination:=ws2.Range("A1"), TableName:="テーブル１" ', DefaultVersion:=xlPivotTableVersion10
　　　
　 With ws2.PivotTables("テーブル１")
　 '賃料*間取りのピボットを作ります
　　　 .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

マクロを独学でしていますので、質問に至らない点があるかもしれませんが
どうぞよろしくお願いいたします。

0 hits

▼

【64276】ピボットテーブルが作れません。 jun 10/1/29(金) 14:22

≪