
エクセル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"
の部分が黄色い編みかけが出ました。色々と調べてみましたが、勉強不足もあり、原因と対処方法が分かりませんでした。
質問文だけでは、分かり辛い筈ですので、画像も添付させて頂きました。
ご教授の程、宜しくお願い致します。

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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
マクロ 実行ボタンを押さずに...
-
Excel VBA のdebug(F8キー) が...
-
ワードからエクセルへ貼り付け...
-
マクロ ブックをマクロなしでコ...
-
エクセル グラフの軸の最小値最...
-
EXCEL 複数のシートの同一の位...
-
VBAでEXCELに埋め込んだPDFを開...
-
Excel2000 データの並べ替えで...
-
Excelの改ページ 同シート内で...
-
エラーになってないのにVBA...
-
開いているフォルダを全て閉じ...
-
モジュール内のマクロを全て実...
-
Accessのクエリを実行するショ...
-
マクロの記録機能を使って作成...
-
Excelマクロでオプションボタン...
-
Wordで「原稿用紙○枚」を換算す...
-
ThisWorkbook.Pathを実行すると...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Wordの画面を左右にスクロール...
-
EXCEL 複数のシートの同一の位...
-
エクセルのマクロ機能で前のシ...
-
Excelを開いた時に表示さ...
-
エクセルで複数のシートをまと...
-
エクセルでマクロ実行中に任意...
-
ワードからエクセルへ貼り付け...
-
VBAでEXCELに埋め込んだPDFを開...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelマクロでオプションボタン...
-
マクロを実行した日付をセルに...
-
TeraTermのマクロについて
-
Accessのクエリを実行するショ...
おすすめ情報