Ú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

  

• #53761 HUN_Szuh tag karlkani #53760

  Új Válasz 2025-01-04 17:22:03 #53761

  Ú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

  

  HUN_Szuh

  tag

  válasz karlkani #53760 üzenetére

  Ezt a CounColor függvényt hozzá kell adni kvázi az excelhez, mint macro?

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