Excel VBA質問箱 IV

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

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


17794 / 76732 ←次へ | 前へ→

【64386】Re:ピボットテーブルが作れません。
質問  jun  - 10/2/1(月) 13:09 -

引用なし
パスワード
   n さん、ありがとうございます。
>であれば
>>Dim セル範囲 As Range
>>Set セル範囲 = ws1.Range("A1").CurrentRegion
>Dim around As Range
>Set around = ws1.Range("A1").CurrentRegion
>ではないのですか?
>正しいコードが提示されないと質疑がすすみませんよ?

申し訳ありません。
正直申しまして、どの範囲でコードを公開していいものかわからず
少しばかり変更して出していました。
こちらがコードそのままです。

Sub ピボットテーブル作成()

  'PivotCacheオブジェクトへの参照をキャッシュに代入します
  Dim キャッシュ As PivotCache
  Dim around As Range
  Dim ws1 As Worksheet, ws2 As Worksheet
 
  Set ws1 = Worksheets(1)
  Set around = ws1.Range("A1").CurrentRegion
 
  Set キャッシュ = ThisWorkbook.PivotCaches.Add _
    (SourceType:=xlDatabase, SourceData:=around)
  Set ws2 = Worksheets.Add(After:=ws1)
  'ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase,SourceData:=around, Version:=xlPivotTableVersion10).
 
 
  'ここから実行時エラー5が出る

  キャッシュ.CreatePivotTable _
    TableDestination:=Worksheets(1).Range("A1"), TableName:="テーブル1", DefaultVersion:=xlPivotTableVersion10
   
  With ws2.PivotTables("テーブル1")
  '賃料*間取りのピボットを作ります
    .AddFields RowFields:="賃料額(万円)"
   
    .AddFields ColumnFields:="間取タイプ"
    .PivotFields("詳細/週").Orientation = xlDataField
  End With
 
End Sub

nさん、お手数を取らせてしまい申し訳ありません。
もう少しお力添えをしていただければと思います。

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 お礼

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