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

• #11850 m.zmrzlina senior tag jerry311 #11849

  Új Válasz 2011-11-02 11:46:38 #11850

  Ú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

  

  m.zmrzlina

  senior tag

  válasz jerry311 #11849 üzenetére

  Excel2007-et feltételezve ( a Randbetween() ) miatt, az A1:A20 tartományt tölti fel a B1:L20 tartományból véletlenszerűen vett adatokkal:

  Sub veletlen()
  Cells(1, 1).Select
  For i = 1 To 20
  Cells(i, 1).Value = Cells(WorksheetFunction.RandBetween(1, 20), WorksheetFunction.RandBetween(2, 12)).Value
  Next
  End Sub

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