如何在vba中根据季度和年度单元格输入值过滤日期列？

Sub FilterDatesByQuarterAndYear()
    Dim ws As Worksheet
    Dim filterRange As Range
    Dim quarter As Integer
    Dim year As Integer
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取要过滤的日期列范围
    Set filterRange = ws.Range("A1:A10") ' 假设日期列在A列，范围为A1:A10
    
    ' 获取季度和年度的输入值
    quarter = ws.Range("B1").Value ' 假设季度输入值在B1单元格
    year = ws.Range("B2").Value ' 假设年度输入值在B2单元格
    
    ' 清除之前的筛选
    filterRange.AutoFilter
    
    ' 过滤日期列
    filterRange.AutoFilter Field:=1, Criteria1:= _
        ">=" & DateSerial(year, (quarter - 1) * 3 + 1, 1), Operator:=xlAnd, _
        Criteria2:="<" & DateSerial(year, quarter * 3 + 1, 1)
End Sub