[[20201207185356]]　『VBA　ピポットテーブルのフィルタ　今日の日付』（MIKI）　ページの最後に飛ぶ

『VBA　ピポットテーブルのフィルタ　今日の日付』（MIKI）

こんばんは。

日付を今日の日付にして絞りこみたいです。

日付の列には文字が入っている場合があり、日付フィルターの当日が使えません。
普段は、フィルタで今日の日付を選択しています。

今日の日付にしたいのですが、「20201105」ではなく、「11/5(木)」という表示形式になっており、どうしたらいいのかと悩んでいます。。
素人で申し訳ないのですが、ご教授いただけますと幸いです。

＜記憶した結果＞
※ボタンを作ってクリックしたら、当日の日付にするという感じにと思っていますm(__)m

Sub test()

    With ActiveSheet.PivotTables("一覧").PivotFields("日付")
        .PivotItems("11/7(Sat)").Visible = False
        .PivotItems("11/9(Mon)").Visible = False
        .PivotItems("11/10(Tue)").Visible = False
        .PivotItems("11/11(Wed)").Visible = False
        .PivotItems("12/2(Wed)").Visible = False
        .PivotItems("12/3(Thu)").Visible = False
        .PivotItems("12/4(Fri)").Visible = False
        .PivotItems("12/5(Sat)").Visible = False
        .PivotItems("12/7(Mon)").Visible = False
    End With
End Sub

＜表＞

※ピポットテーブルツール

番号　区分　名前　　　日付　確認
5002　女　　まりこ　　11/5(木)　〇
4002　男　　イチロー　7/1(水)　〇
3001　女　　みか　　　9/1(火)　〇
6001　女　　まみ　　　12/7(月) 〇
・
・
・

よろしくお願い致しますm(__)m

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

回答ではありません

提示のデータでは、よくわからないのですが、

今日の日付は、必ず存在するのでしょうか
何を集計しているのでしょうか
そもそも、ピボットテーブルである必要があるのでしょうか

（マナ） 2020/12/07(月) 22:42

コメント返信：

[ 一覧(最新更新順) ]

[[20201207185356]] 『VBA ピポットテーブルのフィルタ 今日の日付』（MIKI） ページの最後に飛ぶ

[[20201207185356]]　『VBA　ピポットテーブルのフィルタ　今日の日付』（MIKI）　ページの最後に飛ぶ