VBA日期格式与Excel工作表格式不一致的筛选问题求助

问题原因 #

单元格的**显示格式（dd/mm/YYYY）**只是视觉呈现效果，VBA读取Range("F2").Value时，会按系统默认的日期区域设置解析日期值，而非单元格显示的格式，导致原本的01/11/2022（11月1日）被误判为1月11日，进而生成错误的筛选参数。

解决方案 #

以下两种方法可直接生成筛选所需的"MM-YYYY"格式字符串：

方法1：用Format函数强制格式化日期

直接将单元格的日期值按指定格式转换为字符串，不受系统区域影响：

Dim filterMonthYear As String
' 提取F2的日期值，格式化为"MM-YYYY"
filterMonthYear = Format(Range("F2").Value, "MM-YYYY")
' 执行筛选
ActiveSheet.ListObjects("QuotationOverview").Range.AutoFilter _
    Field:=5, _
    Operator:=xlFilterValues, _
    Criteria2:=Array(1, filterMonthYear)

方法2：单独提取月份和年份拼接

通过Month和Year函数直接读取日期的月份、年份，再补零拼接成目标格式，彻底避免格式歧义：

Dim targetMonth As Integer
Dim targetYear As Integer
Dim filterMonthYear As String

targetMonth = Month(Range("F2").Value)
targetYear = Year(Range("F2").Value)
' 确保月份为两位数字（如1月转为"01"）
filterMonthYear = Format(targetMonth, "00") & "-" & targetYear

ActiveSheet.ListObjects("QuotationOverview").Range.AutoFilter _
    Field:=5, _
    Operator:=xlFilterValues, _
    Criteria2:=Array(1, filterMonthYear)

内容的提问来源于stack exchange，提问作者Sales_user