エクセルVBAでピボットテーブルの範囲を自動選択するには?

最近の書き込み件数: 今日 0件、昨日 0件
未読分:2件

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2015年2月12日(木)09時26分
From: karin
返事 削除 変更
> 一般的にピボットテーブルのどこかをアクティブにしておいて、Ctrl+Aを押下すると
> そのピボットテーブルの範囲内だけを選択することが可能ですがこれをVBAで
> できないかと思っています。

pivottables(番号).tablerange1.select

PivotTablesオブジェクトはブック内のすべてのPivotTableオブジェクトのコレクションを返します。
ですので(番号)は指定したいピボットテーブルの番号を入力してください。

tablerange1プロパティはPivotTableオブジェクトの下にある位置を取得するプロパティ
になります。
TableRange1はページフィールドを含まない範囲になりますので、データのみの部分を選択します。

これを一度試してみてください。

Message#1 2015年2月12日(木)08時48分
From: futoas
返事 削除 変更
エクセルVBAでピボットテーブルの範囲を自動選択することは可能でしょうか?

一般的にピボットテーブルのどこかをアクティブにしておいて、Ctrl+Aを押下すると
そのピボットテーブルの範囲内だけを選択することが可能ですがこれをVBAで
できないかと思っています。

一応、マクロの記録からやってみたのですが、以下のようになっていて、Ctrl+Aの
記述が抜けていました。

Sub Macro1()
Range("A1:D10").Select
Range("B1").Activate
End Sub

これでは汎用性がないVBAとなっていますので、どの範囲を選択しても必ず指定した
範囲のピボットテーブルを自動選択ができないかと考えています。

あとは、ごり押しで最終行と最終列を取得していくものですが、これ以外に方法はないですか?

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください^^

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE(InternetExplorer)操作にも挑戦してみてください^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com