ピボットテーブルの範囲を選択したい

質問

ｖｂａでピボットテーブルの端から端までを選択し、罫線をつけるコードを書きたいのですが
シートにはピボットテーブル以外のデータがある為、

Sub tset()
Dim rngData As Range

Set rngData = ActiveSheet.UsedRange
rngData.Select
End Sub

こういう事をすると、ピボットテーブル以外も選択されてしまいます。

ピボットテーブル1の範囲.Select
みたいなことはできますか？

回答No.3

keithin · ベストアンサー

＞ピボットテーブル2という名前のピボットテーブルでも

で、結局何がしたいのですか？

再掲：
＞どのピボットテーブルの

ピボットテーブル２を指定したいなら、「何て名前のテーブル」なのかを正しく指定してやるだけです。
もちろんシートにそういう名前のテーブルが無ければ、当然エラーになります。

それとも？
回答したように名前を指定せず代わりに番号で指定してやれば、名前を記入してないのですからどんなレポートでもとにかくその番号のが選ばれます。

それに「何をしたいのか」と聞きましたが、そもそもシートにピボットテーブルが１つしか無いのかとか、幾つもレポートを置いているとか、そういった何をしたいのかの状況もまるで説明がヌケてることに留意してください。

お礼

どうもありがとうございました。

回答No.2

keithin

どのピボットテーブルのどこからどこまでを選びたいのですか。

activesheet.pivottables(1).tablerange1.select

お礼

このような答えを求めてました。
しかし、ピボットテーブル2という名前のピボットテーブルでも、pivottables(1)でセレクトできるのはなぜでしょう？？？

回答No.1

MackyNo1

そのピボットテーブルがA3セルを含んでいるなら、単純に以下のような選択で良いのではないでしょうか。

Range("A3").CurrentRegion.Select

お礼

これでもいいのですか。ご回答ありがとうございました。