Ich habe ein countcolour (VB Skript) Ergebnis, wie bekomme ich ein Countif Ergebnis innerhalb dieses Ergebnisses

Question

Ich habe ein = countcolour Skript in VB verwendet und ich endete mit einem Ergebnis. Beispiel, "= countcolour (a1: a10, b1)" b1 ist zB grün und das Ergebnis sind 6 grüne Zellen. Was ich gerne wissen würde, ist, wenn ein Zellenwert von "G" zufällig über die "A1: A10" eingegeben wurde, wie kann ich dann das "G" innerhalb des Zählfarbenergebnisses berechnen?

Answer 1

nicht absolut sicher, dass ich verstehe, was Sie nach, aber wenn es das Äquivalent eines COUNTIFS Arbeitsblatt Formel ist, wird der folgende Code funktioniert:

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