SumColour (求和区域，参考单元格，[模式0底1字2双])

Function SumColour(求和区域 As Range, 参考单元格 As Range, Optional 模式0底1字2双 As Integer = 0) As Double    ' 区域: 需要求和的数据区域    ' 参考单元格: 包含目标颜色的参考单元格    ' 模式: 0=按底纹颜色(默认), 1=按字体颜色, 2=同时匹配底纹和字体    Dim cell As Range    Dim total As Double    Dim targetInteriorColor As Long    Dim targetFontColor As Long    targetInteriorColor = 参考单元格.Interior.Color    targetFontColor = 参考单元格.Font.Color    total = 0    For Each cell In 求和区域        If IsNumeric(cell.value) And Not IsError(cell.value) Then            Select Case 模式0底1字2双                Case 0                    If cell.Interior.Color = targetInteriorColor Then                        total = total + cell.value                    End If                Case 1                    If cell.Font.Color = targetFontColor Then                        total = total + cell.value                    End If                Case 2                    If cell.Interior.Color = targetInteriorColor And cell.Font.Color = targetFontColor Then                        total = total + cell.value                    End If            End Select        End If    Next cell    SumColour = totalEnd Function