excel - 在 Excel 宏上实时运行函数

Question

我需要一些想法来实时更新此功能。这个函数计算我需要的工作的单元格的颜色。

Function COUNTCOLOR(celdaOrigen As Range, rango As Range)

Application.Volatile

Dim celda As Range

For Each celda In rango

    If celda.Interior.Color = celdaOrigen.Interior.Color Then
        COUNTCOLOR = COUNTCOLOR + 1
    End If

Next celda

End Function

我已经尝试运行此功能

Application.CalculateFullRebuild

但它不能实时工作，我必须将该功能分配给一个按钮，当我想更新计算颜色的单元格时，我按下按钮，但这不是我想要的。我希望单元格实时计算颜色，我希望他们在我改变颜色后立即显示数字。计算颜色的单元格具有以下公式:

=COUNTCOLOR(A1;A1:A9998)

其中“A1”是我想要单元格计数的颜色的单元格(如样本)，而“A1:A9998”是我希望公式找到先前分配样本的颜色的范围。该单元格将显示该范围内的多个单元格以及样本的颜色。

我希望我提供的这些信息可以帮助您给我一个很好的答案:)

太感谢了!

Answer 1

也许，这不是最优雅的解决方案，但它确实有效。这个想法是每 5-10 秒运行一次 Sub 以使其实时工作。

这是代码:

Sub COUNTCOLOR()

    Dim RunTime
    Dim COUNTCOLOR As Integer
    Dim celda As Range

    Dim lastRow As Variant
        lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Dim rango As Range
    Set rango = Range("A1:A" & lastRow)

    For Each celda In rango

        'Compare cell interior color with cell A1
        If celda.Interior.Color = Cells(1, "A").Interior.Color Then
            COUNTCOLOR = COUNTCOLOR + 1
        End If

        Cells(1, "C").Value = COUNTCOLOR

    Next celda

    'To run sub every 5 seconds
    RunTime = Now + TimeValue("00:00:05")
    Application.OnTime RunTime, "COUNTCOLOR"

End Sub