Question

我在VB中使用了一个= countcolour脚本，结果我得到了结果。例如，＆＃34; = countcolour（a1：a10，b1）＆＃34; b1正在说绿色，结果是6个绿色单元格。我想知道的是，如果有一个单元格值为＆＃34; G＆＃34;在＆＃34; A1：A10＆＃34;中随机输入，我怎样才能计算＆＃34; G＆＃34;在countcolour结果中？

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

我有一个countcolour（VB脚本）结果，如何在该结果中获得countif结果

1 个答案: