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

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

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