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

• #34997 Delila_1 veterán Traxx #34996

  Új Válasz 2017-04-26 14:02:43 #34997

  Ú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 Traxx #34996 üzenetére

  Írtam egy függvényt rá. Az első paraméter egy olyan cellának a címe, ami a kiválasztott háttérszínt tartalmazza, a második pedig az átlagolandó tartomány.

  Function AtlagColor(mintacella As Range, tartomany As Range)
Dim CV As Object, atlag, db As Long

For Each CV In tartomany
If CV.Interior.Color = mintacella.Interior.Color Then
atlag = atlag + CV: db = db + 1
End If
Next

AtlagColor = atlag / db
End Function

  

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