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

• #29564 Delila_1 veterán karlkani #29563

  Új Válasz 2015-11-22 13:59:57 #29564

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

  Póbáld ezzel:

  Function SubMyColor(tartomány, Szinkod)
  Dim CV As Range, osszeg As Double
  Application.Volatile
  
  For Each CV In tartomány
  If CV.Font.ColorIndex = Szinkod Then osszeg = osszeg + CV
  Next
  SubMyColor = osszeg
  End Function

  Az osszeg változónak lebegőpontos típust adtam, mert nem tudom, egész-, vagy törtszámok szerepelnek a tartományodban.

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