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

Question

内COUNTIF结果我用VB中的一个= countcolour剧本，我结束了一个结果。例如，“= countcolour（a1：a10，b1）”b1表示绿色，结果是6个绿色单元格。 我想知道的是，如果在“A1：A10”中随机输入“G”的单元格值，那么如何才能在countcolour结果中计算“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