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

• #10803 m.zmrzlina senior tag djzomby #10788

  Új Válasz 2011-07-12 07:47:06 #10803

  Ú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 djzomby #10788 üzenetére

  Na tudtam, hogy egyszerűbben is lehet ezt.

  Másold új modulba a következőt:

  Function SZINESÖSSZEG(minta As Range, tartomany As Range)
  Dim cella As Range, osszeg As Double
  szin = minta.Font.Color
  
  For Each cella In tartomany
  If cella.Font.Color = szin Then
  osszeg = osszeg + cella.Value
  End If
  Next cella
  
  SZINESÖSSZEG = osszeg
  End Function

  Legjobb ha a personal.xls (personal.xlsb) -be teszed mert akkor minden megnyitott munkafüzetben rendelkezésre fog állni egy SZINESÖSSZEG() nevű új függvény. Úgy használod mint a SZUM() fv-t csak ennek az első paramétere egy olyan abszolút cellahivatkozás (pl: $A$1) amiben ugyanolyan színű karakterek vannak mint amit össze akarsz adni.

  Hogy érthetőbb legyen itt egy kép:

  

  Köszönet az ötletért (ki másnak mint) Delila_1-nek

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