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

• #29184 Delila_1 veterán lenkei83 #29183

  Új Válasz 2015-10-26 06:47:41 #29184

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

  Még mindig nem értem, miért ilyen bonyolultan összegzel.

  Dim osszeg As Variant, terulet As Range, CV As Range
  
  Set terulet = ActiveSheet.UsedRange
  
  For Each CV In terulet
  If IsNumeric(CV) Then osszeg = osszeg + CV
  Next
  
  Sheets(1).Range("A1") = osszeg

  Az osszeg változó azért variant, mert nem tudom, egész-, vagy tört számaid vannak-e.

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