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

• #38276 Delila_1 veterán dellfanboy #38272

  Új Válasz 2018-06-08 15:13:21 #38276

  Ú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

  

  Delila_1

  veterán

  válasz dellfanboy #38272 üzenetére

  Szín szerinti összegzés

  Function SzinOsszeg(Mintacella As Range, Tartomany As Range)
'Összegzi a Tartomany-ban lévő, mintaként jelölt háttérszínű cellák értékét

Dim osszeg, CV As Range
Application.Volatile

osszeg = 0
For Each CV In Tartomany
If CV.Interior.ColorIndex = Mintacella.Interior.ColorIndex Then
osszeg = osszeg + CV.Value
End If
Next CV
SzinOsszeg = osszeg
End Function

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