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

• #42074 Fferi50 Topikgazda karlkani #42071

  Új Válasz 2019-11-01 23:42:21 #42074

  Ú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

  

  Fferi50

  Topikgazda

  válasz karlkani #42071 üzenetére

  Szia!
  Az előbbi hozzászólásban szereplő makró kiegészíthető egy harmadik paraméterrel, ahova az eredményt kéred.
  Public Sub CountColor(pRange1 As Range, pRange2 As Range,pRange3 As Range)
Dim rng As Range, xcolor As Long, CountColor As Integer
xcolor = pRange2.DisplayFormat.Font.color
For Each rng In pRange1
If rng.DisplayFormat.Font.color = xcolor Then
CountColor = CountColor + 1
End If
Next
pRange3.Value = CountColor
End Sub
  Üdv.

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