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

• #38933 lappy őstag Reinhardt #38932

  Új Válasz 2018-08-23 13:01:41 #38933

  Ú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

  

  lappy

  őstag

  válasz Reinhardt #38932 üzenetére

  egy saját függvénnyel lehet csak
  pl.:
  Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

  A színes cellák számlálása : = ColorFunction (A, B: C, FALSE)

  A színes cellák összegzése : = ColorFunction (A, B: C, TRUE)

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