Excel 宏仅使用当前月份值运行数据过滤器

Question

谁能帮我用一个宏脚本来单独运行当前月份日期的数据过滤器。

这应该在所有月份都发生。

---------我记录了这个宏-单独手动过滤本月日期-----

Sub Macro3()
'
' Macro3 Macro
'

'
    ActiveSheet.ListObjects("Table_owssvr").Range.AutoFilter Field:=5, Operator _
        :=xlFilterValues, Criteria2:=Array(1, "11/10/2017")
End Sub

在上面。 “11/10/2017” - 而不是今天的日期 - 例如，如何在 excel 宏中解释以从以下列表中获取所有 11 月的日期：

9/27/2017
9/29/2017
10/2/2017
11/9/2017
11/10/2017

Answer 1

按本月过滤

ActiveSheet.ListObjects("Table_owssvr").Range.AutoFilter Field:=5, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic

按月过滤数据透视表：尚未对此进行测试，但想法是添加过滤器。

ActiveSheet.PivotTables(PivotTableName).PivotFields(fieldname).PivotFilters. _
    Add Type:=xlDateThisMonth