Excel VBA自定义SumBasedOnCondition函数结果显示异常求助

1. 函数逻辑与需求不匹配：原函数计算的是整个输入范围内所有符合条件的行的总和，因此在多个单元格输入公式时，所有单元格返回相同结果，而非对应行的结果。
2. 条件判断限制过严：原代码要求起止日期均为2023年1月，未考虑“涵盖1月初”的其他场景（比如起始日期为2022年12月下旬但包含1月1日的时间段）。
3. 缺乏错误处理：若某行日期无效，Month/Year函数会抛出错误，导致循环提前终止，仅计算到出错前的行。

以下提供两种修正后的函数，根据实际需求选择：

方案1：计算整个范围符合条件的总和（单结果） #

如果你只需要在单个单元格显示所有符合条件的行的总和（如示例中的36），修改后的函数添加了错误处理，确保循环能完整执行：

Function SumBasedOnCondition(startDates As Range, endDates As Range, valuesToSum As Range) As Variant
    Dim i As Long
    Dim sumResult As Double
    Dim cellStart As Variant, cellEnd As Variant
    
    sumResult = 0
    
    ' 确保三个区域行数一致
    If startDates.Rows.Count <> endDates.Rows.Count Or startDates.Rows.Count <> valuesToSum.Rows.Count Then
        SumBasedOnCondition = "区域行数不匹配"
        Exit Function
    End If
    
    For i = 1 To startDates.Rows.Count
        On Error Resume Next ' 跳过无效日期的行
        cellStart = startDates.Cells(i, 1).Value
        cellEnd = endDates.Cells(i, 1).Value
        
        ' 调整条件：时间段涵盖2023年1月初（包含1月1日，或起止在1月内，或跨年度覆盖1月初）
        If (IsDate(cellStart) And IsDate(cellEnd)) Then
            If (Year(cellStart) = 2023 And Month(cellStart) = 1) Or _
               (Year(cellEnd) = 2023 And Month(cellEnd) = 1) Or _
               (Year(cellStart) = 2022 And Month(cellStart) = 12 And Day(cellStart) >= 28 And _
                Year(cellEnd) = 2023 And Month(cellEnd) = 1) Then
                sumResult = sumResult + valuesToSum.Cells(i, 1).Value
            End If
        End If
        On Error GoTo 0
    Next i
    
    If sumResult > 30 Then
        SumBasedOnCondition = sumResult
    Else
        SumBasedOnCondition = "No"
    End If
End Function

用法：在单个单元格输入=SumBasedOnCondition(C2:C93; D2:D93; E2:E93)，将返回所有符合条件的行的总和（如36）。

方案2：按行返回对应结果（数组函数） #

如果你需要在每一行单元格显示是否属于符合条件的组（示例中两行显示36，其他显示"No"），使用数组函数：

Function SumBasedOnConditionArray(startDates As Range, endDates As Range, valuesToSum As Range) As Variant()
    Dim i As Long
    Dim sumResult As Double
    Dim cellStart As Variant, cellEnd As Variant
    Dim resultArr() As Variant
    Dim hasJanuaryStart As Boolean
    
    ' 初始化结果数组
    ReDim resultArr(1 To startDates.Rows.Count, 1 To 1)
    sumResult = 0
    hasJanuaryStart = False
    
    ' 确保区域行数一致
    If startDates.Rows.Count <> endDates.Rows.Count Or startDates.Rows.Count <> valuesToSum.Rows.Count Then
        For i = 1 To startDates.Rows.Count
            resultArr(i, 1) = "区域行数不匹配"
        Next i
        SumBasedOnConditionArray = resultArr
        Exit Function
    End If
    
    ' 先计算所有符合条件的行的总和，判断是否>30
    For i = 1 To startDates.Rows.Count
        On Error Resume Next
        cellStart = startDates.Cells(i, 1).Value
        cellEnd = endDates.Cells(i, 1).Value
        If IsDate(cellStart) And IsDate(cellEnd) Then
            ' 判断是否涵盖1月初
            If (Year(cellStart) = 2023 And Month(cellStart) = 1) Or _
               (Year(cellEnd) = 2023 And Month(cellEnd) = 1) Or _
               (Year(cellStart) = 2022 And Month(cellStart) = 12 And Day(cellStart) >= 28 And _
                Year(cellEnd) = 2023 And Month(cellEnd) = 1) Then
                sumResult = sumResult + valuesToSum.Cells(i, 1).Value
                hasJanuaryStart = True
            End If
        End If
        On Error GoTo 0
    Next i
    
    ' 填充结果数组：若总和>30且包含1月初，符合条件的行显示总和，其他显示"No"
    For i = 1 To startDates.Rows.Count
        On Error Resume Next
        cellStart = startDates.Cells(i, 1).Value
        cellEnd = endDates.Cells(i, 1).Value
        If hasJanuaryStart And sumResult > 30 Then
            ' 判断当前行是否属于符合条件的时间段
            If IsDate(cellStart) And IsDate(cellEnd) Then
                If (Year(cellStart) = 2023 And Month(cellStart) = 1) Or _
                   (Year(cellEnd) = 2023 And Month(cellEnd) = 1) Or _
                   (Year(cellStart) = 2022 And Month(cellStart) = 12 And Day(cellStart) >= 28 And _
                    Year(cellEnd) = 2023 And Month(cellEnd) = 1) Then
                    resultArr(i, 1) = sumResult
                Else
                    resultArr(i, 1) = "No"
                End If
            Else
                resultArr(i, 1) = "无效日期"
            End If
        Else
            resultArr(i, 1) = "No"
        End If
        On Error GoTo 0
    Next i
    
    SumBasedOnConditionArray = resultArr
End Function

用法：

1. 选中需要显示结果的单元格区域（如F2:F93）
2. 输入公式=SumBasedOnConditionArray(C2:C93; D2:D93; E2:E93)
3. 按下Ctrl+Shift+Enter（数组公式输入）

• 添加了区域行数匹配校验，避免因区域大小不一致导致的错误
• 加入错误处理，跳过无效日期的行，确保循环完整执行
• 放宽了“涵盖1月初”的条件判断，包含跨年度的场景
• 数组函数版本可按行返回对应结果，满足多单元格显示的需求

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