エクセル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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
マクロ実行時にエラーが出てしまいます
その他(Microsoft Office)
-
-
4
Excel、VBAでピボットテーブル、pagefieldの絞込み
Excel(エクセル)
-
5
EXCEL 2010 VBAでピボットで複数のアイテムをセルでフィルタ指定
Visual Basic(VBA)
-
6
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
9
VBA スペースが入力されていても、空白セルと判断する方法
Excel(エクセル)
-
10
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
11
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
12
ピボットテーブルでの毎回可変するデータの最終行までの範囲を指定したいです。
PowerPoint(パワーポイント)
-
13
【VBA】ピボットテーブルの範囲指定を変数にする
Excel(エクセル)
-
14
VBA PivotItemをセルの中身で選択
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
F9キーを実行するVBスクリ...
-
エクセル関数式=ABSで#VALUE!...
-
マクロで"#N/A"のエラー行を削...
-
ApplicationとWorksheetFunctio...
-
現在、QueryTableが設定されて...
-
Python openpyxlを使用したセル...
-
VBA GoTo Error 処理が上手くい...
-
WindowsでのPythonの挙動について
-
Excel vbaについての質問
-
【VBA】ワークブックを開く時に...
-
UWSCでエラー発生時の対処法に...
-
VBA データ(特定値)のある最...
-
#N/Aの文字を削除するには
-
筆王画面が終了できない
-
実行時エラー'-2147467259(8000...
-
Maximaでのエラーメッセージ
-
IMEの単語登録について
-
paizaで下記コードを提出すると...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
VBAでfunctionを利用しようとし...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
エクセル関数を教えてください
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
【VBA】ワークブックを開く時に...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
エクセルVBA 「On Error GoTo...
-
Filter関数を用いた結果、何も...
-
ACCESSで値を代入できないとは?
おすすめ情報