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

• #15363 Delila_1 veterán bandus #15362

  Új Válasz 2012-10-31 15:27:15 #15363

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

  Szívesen.

  Így adhatod hozzá az előzőhöz az újabb értéket:

  Sub period()
  Dim per%, ertek, oszlop%
  
  'A D5:AD5 tartomány kiürítése (evés előtt mosogatunk elv szerint)
  Range(Cells(5, 4), Cells(5, 30)).ClearContents
  
  per% = Range("A1"): ertek = Range("B1")
  For oszlop% = 4 To 30 Step per%
  Cells(5, oszlop) = Cells(5, oszlop%) + ertek
  Next
  
  per% = Range("A2"): ertek = Range("B2")
  For oszlop% = 4 To 30 Step per%
  Cells(5, oszlop) = Cells(5, oszlop%) + ertek
  Next
  End Sub

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