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

• #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