改进VBA，用当月+月度过滤透视表字段，直至年末

Sub FilterPivotTableByMonth()
    Dim pivotSheet As Worksheet
    Dim pivotTable As PivotTable
    Dim pivotField As PivotField
    Dim currentDate As Date
    Dim currentMonth As Integer
    Dim currentYear As Integer
    Dim endDate As Date
    
    ' 设置透视表所在的工作表
    Set pivotSheet = ThisWorkbook.Worksheets("透视表")
    
    ' 设置透视表对象
    Set pivotTable = pivotSheet.PivotTables("透视表1")
    
    ' 获取当前日期
    currentDate = Date
    
    ' 获取当前月份和年份
    currentMonth = Month(currentDate)
    currentYear = Year(currentDate)
    
    ' 设置年末日期
    endDate = DateSerial(currentYear, 12, 31)
    
    ' 获取透视表中月份字段
    Set pivotField = pivotTable.PivotFields("月份")
    
    ' 清除所有已选中的筛选项
    pivotField.ClearAllFilters
    
    ' 循环透视表中的所有项
    For Each pivotItem In pivotField.PivotItems
        ' 将透视表项的值转换为日期类型
        pivotItemDate = DateValue(pivotItem.Name)
        
        ' 如果透视表项的日期小于等于当前日期并且大于等于当年年初日期
        If pivotItemDate <= currentDate And pivotItemDate >= DateSerial(currentYear, 1, 1) Then
            ' 如果透视表项的日期大于年末日期，则退出循环
            If pivotItemDate > endDate Then
                Exit For
            End If
            
            ' 将透视表项选中
            pivotItem.Visible = True
        Else
            ' 将透视表项取消选中
            pivotItem.Visible = False
        End If
    Next pivotItem
    
    ' 更新透视表
    pivotTable.RefreshTable
End Sub