Excel VBA質問箱 IV

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

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


17907 / 76738 ←次へ | 前へ→

【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)
 
  'ここから実行時エラー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

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

【64276】ピボットテーブルが作れません。 jun 10/1/29(金) 14:22 質問
【64282】Re:ピボットテーブルが作れません。 n 10/1/29(金) 19:22 発言
【64381】Re:ピボットテーブルが作れません。 jun 10/2/1(月) 11:18 質問
【64382】Re:ピボットテーブルが作れません。 n 10/2/1(月) 12:36 発言
【64383】Re:ピボットテーブルが作れません。 jun 10/2/1(月) 12:54 質問
【64385】Re:ピボットテーブルが作れません。 n 10/2/1(月) 13:02 発言
【64386】Re:ピボットテーブルが作れません。 jun 10/2/1(月) 13:09 質問
【64387】Re:ピボットテーブルが作れません。 n 10/2/1(月) 13:26 発言
【64388】Re:ピボットテーブルが作れません。 jun 10/2/1(月) 15:09 お礼

17907 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free