Excel 按颜色 VBA 计数不随更改更新？

Question

我在 Excel 中有一些 VBA，它计算一个单元格范围是否包含来自参考单元格的颜色，这很好用。但更改范围内任何单元格的颜色并不会更新总数。

理想情况下，我希望代码更新与引用匹配的彩色单元格的数量，并在单元格颜色更改时更新计数的总和。

我尝试在 If 语句中添加 Else 语句，这样如果一个单元格是“空白”或使用油漆罐按钮填充单元格的颜色“清除”，它会扣除一个数字，但这没有奏效.

Sub Colourif()
End Sub

Function CountColorIf(rSample As Range, rArea As Range) As Long
    Dim rAreaCell As Range
    Dim lMatchColor As Long
    Dim lCounter As Long

    lMatchColor = rSample.Interior.Color

    For Each rAreaCell In rArea
        If rAreaCell.Interior.Color = lMatchColor Then
            lCounter = lCounter + 1
        End If
    Next rAreaCell

    CountColorIf = lCounter
End Function

如果我使用油漆罐图标更改范围填充中的一个单元格以说“清除”，它不会更改填充参考颜色的单元格计数。

如果单元格填充从参考颜色更改时，我将非常感谢有关如何确保此代码自动更新总和的一些建议。

Answer 1

不幸的是，格式更改似乎不会触发任何标准 Excel 事件处理程序。接近的事情是针对工作表的选择更改事件。在工作表的代码模块中放置：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Calculate
End Sub

然后改变CountColorIf的定义，让它开始：

Function CountColorIf(rSample As Range, rArea As Range) As Long
    Application.Volatile 

然后，如果单元格的颜色发生变化，则计数会更新 -- 只要您移动到不同的单元格。

另一个想法是使用Application.OnTime 运行一个子程序，每隔几秒触发一次重新计数，但这仍然不会导致您在更改颜色后立即更新。

编辑时 由于没有可以定位的FormatChange 事件，因此使用SelectionChange 作为它的代理并不理想。您在 cmets 中提到的一个问题是，这将在复制粘贴操作的中间触发，在这种情况下，生成的工作表计算将使 Excel 退出复制粘贴模式。解决该特定问题的一种方法是将代码更改为：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = 0 Then Me.Calculate
End Sub

如果此代码供您个人使用，一个简单的解决方案是保留Application.Volatile，但完全摆脱事件处理程序，养成在更改单元格颜色时点击F9 的习惯。这会将重新计算限制在您需要的时间，而代价是您需要采取必要的行动。