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

• #10970 m.zmrzlina senior tag medvezsolt #10966

  Új Válasz 2011-07-27 16:45:37 #10970

  Ú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

  

  m.zmrzlina

  senior tag

  válasz medvezsolt #10966 üzenetére

  Lehet és én ezt saját függvénnyel oldanám meg:

  Function SZINESÖSSZEG2(minta As Range, tartomany As Range)
  Dim cella As Range, osszeg As Double
  szin = minta.Interior.ColorIndex
  osszeg = 0
  For Each cella In tartomany
  If cella.Interior.ColorIndex = szin Then
  osszeg = osszeg + cella.Value
  End If
  Next cella
  
  SZINESÖSSZEG2 = osszeg
  End Function

  Gyakorlatilag ugyanaz mint itt csak pepitában. Ez a függvény a mintacella háttérszíne alapján összegez, nem pedig a betűszíne alapján.

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