Excel VBA日期筛选函数问题：判断日期是否属上一季度

我来帮你一步步排查并修复这个VBA自定义函数，同时解决你在COUNTIFS中使用它的问题。

一、原IsOnQX函数的问题分析 #

你的函数有几个明显的语法和逻辑错误，导致无法正常运行：

• 变量类型不匹配：你把ActualQuarter和PastQuarter声明为String，但它们是计算出来的季度数值（1-4），应该用数值类型（比如Integer）。
• 错误使用Set关键字：Set是用来给对象变量赋值的，数值变量直接用=就行，用Set会直接触发编译错误。
• 日期判断缺失：直接调用Month(InputCell.Value)如果单元格不是日期或为空，会抛出类型错误，必须先做日期有效性检查。
• 整除运算符错误：计算季度时用了/（浮点除法），应该用\（整数除法），避免出现小数影响判断。
• 空单元格判断不准确：InputCell.Value = ""对日期格式的空单元格可能不生效，用IsEmpty(InputCell)或InputCell.Value = vbNullString更可靠。
• 冗余参数：你定义了ByVal Month As Long参数，但函数里根本没用到，反而用了当前日期的月份，这会造成混淆，建议直接移除。
• 跨年场景缺失：原函数没考虑跨年情况（比如当前是1季度，去年的4季度也属于“当前季度之前”）。

二、修复后的IsOnQX函数 #

Public Function IsOnQX(ByVal InputCell As Range) As Integer
    Dim ActualQuarter As Integer
    Dim PastQuarter As Integer
    
    ' 优先处理空单元格
    If IsEmpty(InputCell.Value) Or InputCell.Value = vbNullString Then
        IsOnQX = 1
        Exit Function
    End If
    
    ' 检查单元格内容是否为有效日期
    If Not IsDate(InputCell.Value) Then
        ' 非日期内容返回0（可根据需求调整为抛出错误）
        IsOnQX = 0
        Exit Function
    End If
    
    ' 计算当前日期对应的季度
    ActualQuarter = (Month(Now()) + 2) \ 3
    ' 计算输入单元格日期对应的季度
    PastQuarter = (Month(InputCell.Value) + 2) \ 3
    
    ' 判断是否为当前季度之前的季度（包含跨年场景）
    If PastQuarter < ActualQuarter Then
        IsOnQX = 1
    Else
        ' 补充跨年逻辑：当前是1季度时，去年的4季度也符合条件
        If ActualQuarter = 1 And PastQuarter = 4 Then
            IsOnQX = 1
        Else
            IsOnQX = 0
        End If
    End If
End Function

三、COUNTIFS的替代方案（SUMPRODUCT） #

COUNTIFS无法直接在条件中使用自定义函数，因为它要求条件区域是单元格区域，条件是常量或简单表达式。推荐用SUMPRODUCT来实现你的统计需求，它支持数组运算，可以调用自定义函数：

Range("C63").Value = SUMPRODUCT( _
    --(ISNUMBER(SEARCH("你的指定内容", TablaI_R[Project Name]))), _
    --(IsOnQX(TablaI_R[Actual Closed Date]) = 1) _
)

解释： #

• --是把布尔值（True/False）转换成1/0，方便SUMPRODUCT求和统计。
• 把"你的指定内容"替换成你要搜索的项目名称关键词。
• 如果TablaI_R是Excel表格（ListObject），确保引用的列名完全匹配。

额外调试提示 #

你可以先在Excel单元格中直接输入=IsOnQX(A1)来验证单个单元格的返回值，确认函数逻辑正常后再用SUMPRODUCT批量统计。

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