[[20200226115950]]　『複数シートのピボットテーブルの「データソースの』（あーちゃん）　ページの最後に飛ぶ

『複数シートのピボットテーブルの「データソースの変更」及び更新』（あーちゃん）

同ブック複数シートに存在する既存のピボットテーブルの「データソースの変更」をVBAマクロにより処理できないでしょうか？

Sheet1に元となる資料を貼り付けてSheet2～に存在するピボットテーブルを更新していく作業があります。

元資料は行列ともに増減があり、Sheet2以降のピボットテーブルは現時点で18個あります。
また、各ピボットテーブルが多くフィールド内容も異なります。

元資料を貼付変えたのちに、マクロにより各ピボットのデータソースの変更を行いたいです。

VBAは覚えたてでして、途中まで書いてみたのですがピボット部のマクロがどうもうまくいきません。

どなたかご教示お願いできませんでしょうか？

宜しくお願い致します。

   '元データの範囲取得
    Dim OriginaldatalastR As Variant, OriginaldatalastC As Variant, Originalrange As Range

    Sheets("Sheets1").Select

    OriginaldatalastR = Cells(Rows.Count, 1).End(xlUp).Row
    OriginaldatalastC = Cells(1, Columns.Count).End(xlToLeft).Column

    Set Originalrange = Range(Cells(1, 1), Cells(OriginaldatalastR, 
       OriginaldatalastC))

　　ピボットテーブルマクロ
　　　　　・
　　　　　・

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

[[20200221111103]]　『ピボットテーブル自動更新』（ばっさー）

参考に。
（通りすがり） 2020/02/26(水) 13:04

ばっさーさん

返信ありがとうございます。

因みにですが、ばっさーさんの過去の質問でしていた内容は実際に動かしてみて動きましたでしょうか？

作成の際に変更した点や気を付けなければならない内容などもしありましたらコメントいただきたいです。
（あーちゃん） 2020/02/27(木) 08:16

余計なお世話でしょうが、
＞内容は実際に動かしてみて動きましたでしょうか？
実際にご自身でトライすればわかるでしょう

以下、本題
◆1
＞ピボットテーブルは現時点で18個
はじめから複数のピボットテーブルと考えていると難しくなると思いますので、まずは、1つだけ処理することを考えたほうがよいと思います。

◆2
ピボットテーブルのデータソースを変える場合、以下が参考になるかもしれません。
[[20200121175436]]『マクロでcsvの取り込みからピポットテーブルの更新までを自動化』（あやとん）

（もこな２） 2020/02/27(木) 08:38

もこな２さん

余計なお世話なんてことはございません。
返信ありがとうございます！

◆1
おっしゃる通り先ずは小さいところから始めてみようと思います。

◆2
参考にさせていただきます。

（あーちゃん） 2020/02/27(木) 09:50

コメント返信：