
エクセル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を探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
エクセルのマクロ機能で前のシ...
-
エクセルでマクロ実行中に任意...
-
VBAでEXCELに埋め込んだPDFを開...
-
Excelを開いた時に表示さ...
-
マクロボタンをある条件の時に...
-
エクセル 画像挿入マクロで、...
-
エクセル グラフの軸の最小値最...
-
図形のサイズ変更マクロ 時間が...
-
Excel VBA のdebug(F8キー) が...
-
TeraTermのマクロについて
-
VBAでのタイマー使用例
-
エラーになってないのにVBA...
-
マクロボタンを作ってのマクロ...
-
ExcelVBAで、タイマー割り込み...
-
EXCEL2000 VBA マクロ実行中に...
-
マクロを実行した日付をセルに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Wordの画面を左右にスクロール...
-
EXCEL 複数のシートの同一の位...
-
エクセルのマクロ機能で前のシ...
-
Excelを開いた時に表示さ...
-
エクセルで複数のシートをまと...
-
エクセルでマクロ実行中に任意...
-
ワードからエクセルへ貼り付け...
-
VBAでEXCELに埋め込んだPDFを開...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelマクロでオプションボタン...
-
マクロを実行した日付をセルに...
-
TeraTermのマクロについて
-
Accessのクエリを実行するショ...
おすすめ情報