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

• #12199 Fehér Mancs tag bugizozi #12178

  Új Válasz 2011-11-30 17:04:17 #12199

  Ú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

  

  Fehér Mancs

  tag

  válasz bugizozi #12178 üzenetére

  Van erre még egy megoldás, tömbfüggvénnyel:
  =SUM((A47:EQ47)*(MOD(COLUMN(A47:EQ47);3)=0))
  a végén ctrl+shift+entert kell ütni.

  Lényegében azokat a cellákat adja össze, amelyeknek az oszlopszáma 3-mal osztható.

• #12179 Delila_1 veterán bugizozi #12178

  Új Válasz 2011-11-29 14:50:14 #12179

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

  Egyszerűbb lett volna így:

  Sub összead()
  Dim oszlop As Integer, összeg As Single
  For oszlop = 3 To 149 Step 3
  összeg = összeg + Cells(47, oszlop)
  Next
  Cells(47, 150) = összeg
  End Sub

  

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