Új hozzászólás Aktív témák

• #42069 karlkani aktív tag Fferi50 #42066

  Új Válasz 2019-11-01 20:58:50 #42069

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  karlkani

  aktív tag

  válasz Fferi50 #42066 üzenetére

  Szia!

  Public Function CountColor(pRange1 As Range, pRange2 As Range) As Double

Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColor = CountColor + 1
    End If
Next
End Function

  Ezt kellene módosítani (ha lehet egyáltalán...), hogy működjön feltételes formázással módosított betűszín estén.

Új hozzászólás Aktív témák