エクセル2007のピボットテーブルをvbaで操作しています。
vbaの仕組みについて分からないので教えてください。
ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("年").PivotItems("2008").ShowDetail = True
だとエラーにならずにピボットテーブルが開かれるのに
Dim intYear As Long
intYear = 2008
ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("年").PivotItems(intYear).ShowDetail = True
だとエラーになってしまいます。
エラー内容は
実行時エラー '1004':
PivotTableクラスのPivotFieldsプロパティを取得できません。
です。
変数にするとエラーになる理由は何でしょうか?
No.4
- 回答日時:
intYear = 2008
….PivotItems(intYear).…
のように書いていると、該当のピボットテーブルの「2008番」目のピボットアイテムを探しに行くからです。
2008番じゃなく「2008という名前」のアイテムを操作するために
dim strYear as string
strYear = "2008"
….PivotItems(strYear).…
のような段取りが必要ですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excel ピポットテーブルの更新について 1 2022/05/13 16:12
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
マクロ実行時にエラーが出てしまいます
その他(Microsoft Office)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
-
4
Excel、VBAでピボットテーブル、pagefieldの絞込み
Excel(エクセル)
-
5
EXCEL 2010 VBAでピボットで複数のアイテムをセルでフィルタ指定
Visual Basic(VBA)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
8
VBA スペースが入力されていても、空白セルと判断する方法
Excel(エクセル)
-
9
VBA PivotItemをセルの中身で選択
Visual Basic(VBA)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
vba スライサー
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBAでfunctionを利用しようとし...
-
実行時エラー 438 の解決策をお...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
【VB.NET】 パワポ操作を非表示で
-
【VBAエラー】Nextに対するFor...
-
Excel vbaについての質問
-
オブジェクト型の変数にフォー...
-
TransferSpreadsheetのエラー処理
-
ACCESSで値を代入できないとは?
-
実行時エラー'-2147467259(8000...
-
VB.net 重複チェックがしたいです
-
エクセルVBAで埋め込みグラフ(C...
-
お助けください!VBAのファイル...
-
コンボボックスの特定項目だけ...
-
VBS Script のエラーについてお...
-
変数にするとエラーになる理由は?
-
VB6とVB.NETでNullの扱いが違う?
-
ASPでこんなエラーが出たんです...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
お助けください!VBAのファイル...
-
On ErrorでエラーNoが0
-
実行時エラー'-2147467259(8000...
-
文字列内で括弧を使うには
-
【VBA】ワークブックを開く時に...
-
実行時エラー 438 の解決策をお...
-
Excel vbaについての質問
-
【VBAエラー】Nextに対するFor...
-
ApplicationとWorksheetFunctio...
-
VBでSQL文のUPDATE構文を使った...
-
フランスの生年月日(jj/mm/aaaa)
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
ACCESSで値を代入できないとは?
-
ActiveCell.FormulaR1C1の変数
-
「実行時エラー '3167' レコー...
おすすめ情報