Excel VBA質問箱 IV

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

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


13493 / 13646 ツリー ←次へ | 前へ→

【5126】教えて!ピボットテーブルの範囲をかえるには? 遠藤 03/4/23(水) 9:54 質問
【5168】Re:教えて!ピボットテーブルの範囲をかえる... こうちゃん 03/4/24(木) 8:58 回答
【5169】Re:教えて!ピボットテーブルの範囲をかえる... 遠藤 03/4/24(木) 9:42 お礼

【5126】教えて!ピボットテーブルの範囲をかえる...
質問  遠藤  - 03/4/23(水) 9:54 -

引用なし
パスワード
    こんにちは。(なぜか質問のアイコンにならないですけど)
すでにピボットテーブルが作成されているワークシートと元となっている
ワークシートがあります。
元データのワークシートは、増減します。(ほかからコピーされてきます。)
その元データが変化した際、ピボットテーブルの元データをVBA上から変更したいのですが、やり方がわからなくて困っています。
どなたか経験のある方教えてください。m(__)m


【5168】Re:教えて!ピボットテーブルの範囲をかえ...
回答  こうちゃん E-MAIL  - 03/4/24(木) 8:58 -

引用なし
パスワード
   遠藤さん、こんにちは

>すでにピボットテーブルが作成されているワークシートと元となっている
>ワークシートがあります。
>元データのワークシートは、増減します。(ほかからコピーされてきます。)
>その元データが変化した際、ピボットテーブルの元データをVBA上から変更したいのですが、やり方がわからなくて困っています。
>どなたか経験のある方教えてください。m(__)m

レスがつかないようなので、つなぎに・・
A列からC列のデータで、同一シートのF1以降にピボットテーブルがあり、A列をキーとしてデータが増減する場合の、データ範囲の変更ならこんな感じ・・
質問ではシートが違うようなので、適当にシート指定してみてくださいね。

Sub Test()

  Range("F1").Select
  ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
    SourceData:="Sheet1!R1C1:R" & _
    Range("A65536").End(xlUp).Row & "C3"
  ActiveSheet.PivotTables("ピボットテーブル1").RefreshTable

End Sub

【5169】Re:教えて!ピボットテーブルの範囲をかえ...
お礼  遠藤  - 03/4/24(木) 9:42 -

引用なし
パスワード
   こんにちは。こうちゃんさん
ありがとうございます。
試してみます。


▼こうちゃん さん:
>遠藤さん、こんにちは
>
>>すでにピボットテーブルが作成されているワークシートと元となっている
>>ワークシートがあります。
>>元データのワークシートは、増減します。(ほかからコピーされてきます。)
>>その元データが変化した際、ピボットテーブルの元データをVBA上から変更したいのですが、やり方がわからなくて困っています。
>>どなたか経験のある方教えてください。m(__)m
>
>レスがつかないようなので、つなぎに・・
>A列からC列のデータで、同一シートのF1以降にピボットテーブルがあり、A列をキーとしてデータが増減する場合の、データ範囲の変更ならこんな感じ・・
>質問ではシートが違うようなので、適当にシート指定してみてくださいね。
>
>Sub Test()
>
>  Range("F1").Select
>  ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
>    SourceData:="Sheet1!R1C1:R" & _
>    Range("A65536").End(xlUp).Row & "C3"
>  ActiveSheet.PivotTables("ピボットテーブル1").RefreshTable
>
>End Sub

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