VBA 计数颜色代码在某些空白单元格中无法正常工作

Question

我有以下计数颜色代码，它工作正常，直到范围包含空白单元格，您必须进入功能行并按 Enter，然后更改为不同类型的空白单元格，因为我发现了错误每次我执行此步骤时，vba 代码都会再次运行。如何更正 vba 代码以便我可以为某些空白单元格执行此手动输入过程，或者是否有一个代码可以自动对某个范围进行手动处理？

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double 
    'Update 20140210 
     Application.Volatile 
     Dim rng As Range 
     Dim xTotal As Double 
     xTotal = 0 
     For Each rng In pRange1 
         If rng.Font.Color = pRange2.Font.Color Then 
              xTotal = xTotal + rng.Value 
         End If 
     Next 
     SumByColor = xTotal 
End Function

Answer 1

你的功能对我有用。我不知道你有什么设置，但试试我的修改:

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double
    'Update 20140210
     Application.Volatile
     Dim rng As Range
     Dim rngSum As Range

     For Each rng In pRange1
         If rng.Font.Color = pRange2.Font.Color And IsNumeric(rng.Value) Then
            If rngSum Is Nothing Then
                Set rngSum = rng
            Else
                Set rngSum = Union(rngSum, rng)
            End If
         End If
     Next
     SumByColor = WorksheetFunction.Sum(rngSum)
End Function

但是，我的版本和您的版本都存在问题。如果您更改任何单元格的字体颜色，它不会重新计算。您必须单击“公式”菜单中的“立即计算”。