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

• #15354 Delila_1 veterán bandus #15353

  Új Válasz 2012-10-30 11:22:13 #15354

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

  Sub period()
  Dim per%, ertek, oszlop%
  
  per% = Range("A1"): ertek = Range("B1")
  For oszlop% = 4 To 30 Step per%
  Cells(5, oszlop%) = ertek
  Next
  End Sub

  A periódusok mértékét a per% változó veszi az A1-es cellából, a beírandó értéket az ertek a B1-ből. A fenti makró a 30. oszlopig írja be az azonos értékeket.

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