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

• #16105 lappy őstag baderoli #16101

  Új Válasz 2013-01-11 09:26:08 #16105

  Ú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

  

  lappy

  őstag

  válasz baderoli #16101 üzenetére

  Ha kipróbálod az általad alkotott makrót akkor rájössz a hibákra. Mondjuk én sem értek nagyon hozzá, de kevés próbálgatással rá lehet jönni a hibára!
  Érdemes előtte próbálgatni!
  De itt van egy működő progi!

  Sub X_ek()
  Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%
  
  sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
  For i = 1 To 2
  sor% = Rnd() * (sorF% - sorA%) + sorA%
  oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
  Cells(sor%, oszlop%) = "X"
  
  
  
  sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
  
  sor% = Rnd() * (sorF% - sorA%) + sorA%
  oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
  Cells(sor%, oszlop%) = "X"
  Next
  End Sub

• #16102 Delila_1 veterán baderoli #16101

  Új Válasz 2013-01-11 09:20:17 #16102

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

  Csak a Dim kezdetű sort nem kell újra beírni.

  Meg lehetne úgy is oldani, hogy az első makróban van az értékadás, és onnan hívjuk meg a másodikat, az értékek átadásával, akkor nem kellene ismételni a for-next ciklust. Ez egy olyan egyszerű makró, hogy nem érdemes külön bajlódni vele.

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