我有一个计数颜色(VB 脚本)结果，如何在该结果中获得计数结果

Question

我在VB中使用了=countcolor脚本，最终得到了一个结果。例如，"=countcolor(a1：a10，b1("b1 是绿色的，结果是 6 个绿色单元格。我想知道的是，如果在"A1：A10"中随机输入了"G"的单元格值，那么我该如何计算计数结果中的"G"？

Answer 1

不确定我是否理解您的目标，但如果它等效于 COUNTIFS 工作表公式，则以下代码将起作用：

Sub SumCountByConditionalFormat()
Dim refColor As Long
Dim rng As Range
Dim countRng As Range
Dim countCol As Long
Set countRng = Sheet1.Range("$A$1:$A$10")
    refColor = Sheet1.Range("$B$1").DisplayFormat.Interior.Color
    For Each rng In countRng
        If rng.DisplayFormat.Interior.Color = refColor And rng.Value = "g" Then
            countCol = countCol + 1
        End If
    Next
    MsgBox countCol
End Sub