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

• #53765 Delila_1 veterán karlkani #53760

  Új Válasz 2025-01-05 14:03:45 #53765

  Ú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 karlkani #53760 üzenetére

  Egyszerűbb átalakítani a makrót, összegzésről szorzásra. Akkor nem kellenek segédoszlopok.
  Function ColorProduct(Mintacella As Range, Tartomany As Range)
    Dim szorzat As Integer, CV As Range
    Application.Volatile
    
    szorzat = 1
    For Each CV In Tartomany
        If CV.Interior.ColorIndex = Mintacella.Interior.ColorIndex Then
            szorzat = szorzat * CV.Value
        End If
    Next CV
    ColorProduct = szorzat
End Function

  

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