![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセル2007を使用し、売上や客数を管理する表を作成しています。Sheet1には入力フォームを作成し、Sheet2からは月毎に管理しようと考えています。入力フォーム(Sheet1)には随時データが追加される為 テーブルを実行し、Sheet2からはピボットテーブルで月毎に管理表を作成しました。
ここからが本題ですが、管理表を作成し更新すると指定外の月も管理表に反映される為、日付フィルタより指定の範囲内で月の指定を実施しました。①更新と②指定の月の範囲指定の2つを、1回の処理で実施するマクロ設定は可能でしょうか?マクロ初心者の為、マクロの記憶で登録しましたが適当な数値を入れてテスト実行した際に、実行時エラー’1004’: アプリケーション定義またはオブジェクト定義のエラーです。と表示され、実行できませんでした。(下記の明記が登録マクロです)
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.PivotTables("ピボットテーブル1").PivotCache.Refresh
ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("日付").PivotFilters.Add _
Type:=xlDateBetween, Value1:="2016/6/1", Value2:="2016/6/30"
End Sub
上記の ⇒ ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("日付").PivotFilters.Add _
Type:=xlDateBetween, Value1:="2016/6/1", Value2:="2016/6/30"
の部分が黄色い編みかけが出ました。色々と調べてみましたが、勉強不足もあり、原因と対処方法が分かりませんでした。
質問文だけでは、分かり辛い筈ですので、画像も添付させて頂きました。
ご教授の程、宜しくお願い致します。
![「エクセル ピボットテーブルのマクロ設定に」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/6/542374639_578319a27945e/M.jpg)
No.1ベストアンサー
- 回答日時:
tk0244さんが書いたマクロですが、Sheet2がアクティブの状態で実行すれば、正常に動きますよね?
もし、別のシートがアクティブの状態でも正しく動かしたいのであれば、次のように修正してみて下さい。
Sub Macro1()
Sheets("Sheet2").PivotTables("ピボットテーブル1").PivotCache.Refresh
Sheets("Sheet2").PivotTables("ピボットテーブル1").PivotFields("日付").PivotFilters.Add _
Type:=xlDateBetween, Value1:="2016/6/1", Value2:="2016/6/31"
End Sub
ありがとうございます。思い通りの処理が出来ました。シートを指定すれば良かったのですね?マクロは奥が深いですが、頑張って勉強します。本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel、VBAでピボットテーブル、pagefieldの絞込み
Excel(エクセル)
-
EXCEL2007 VBAでピボットのフィルタ指定
その他(プログラミング・Web制作)
-
EXCEL 2010 VBAでピボットで複数のアイテムをセルでフィルタ指定
Visual Basic(VBA)
-
-
4
ピボットテーブルの日付フィルタ(VBA)
Excel(エクセル)
-
5
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
6
Excleピボットでデータのない部分も時系列で表示したい
Excel(エクセル)
-
7
VBAマクロ実行時エラーの修正について
Visual Basic(VBA)
-
8
VBAで型が一致しないエラー(バージョンの問題?)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
Excel VBA のdebug(F8キー) が...
-
エクセルのマクロ機能で前のシ...
-
エラーになってないのにVBA...
-
マクロ 実行ボタンを押さずに...
-
エクセルで土日列の非表示方法...
-
《エクセル2000》非表示になっ...
-
Excel_VBAでキーバッファへのデ...
-
エクセルで複数のシートをまと...
-
TeraTermのマクロについて
-
Excelマクロからのデータアクセ...
-
Accessのクエリを実行するショ...
-
エクセルでマクロ実行中に任意...
-
エクセル テキスト追加マクロ...
-
エクセルのマクロボタンがどん...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
Excel マクロの自動実行と編集作業
-
Excelの改ページ 同シート内で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
Excelを開いた時に表示さ...
-
Excel VBA のdebug(F8キー) が...
-
Excelのワークシート上に検索窓...
-
エラーになってないのにVBA...
-
【ExcelVBA】名前を付けて保存→...
-
エクセル グラフの軸の最小値最...
-
エクセルのマクロ機能で前のシ...
-
Wordの画面を左右にスクロール...
-
ワードからエクセルへ貼り付け...
-
Wordで「原稿用紙○枚」を換算す...
-
モジュール内のマクロを全て実...
-
エクセルで複数のシートをまと...
-
EXCEL 複数のシートの同一の位...
-
【Excel VBA】エラー番号400
-
TeraTermのマクロについて
-
ワードで画像を自動で挿入する方法
おすすめ情報