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

• #16109 Delila_1 veterán lappy #16105

  Új Válasz 2013-01-11 09:38:29 #16109

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

  Az előbb rosszul írtam. Az első értékadást is a for-next-en belül kell megadni, különben az első tartományban 1, a másodikban 3 db X lesz.

• #16107 baderoli tag lappy #16105

  Új Válasz 2013-01-11 09:33:57 #16107

  Ú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

  

  baderoli

  tag

  válasz lappy #16105 üzenetére

  Köszi! Alakul a dolog!

  Ez milyen program nyelv? Nagyon régen tudtam valamennyit basic-ül, nagyon hasonlít arra.

• #16106 Delila_1 veterán lappy #16105

  Új Válasz 2013-01-11 09:33:48 #16106

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

  Ebben az esetben a 2. tartományba csak 1 db X-et ír.
  Két makróval:

  Sub X_ek()
  Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%
  
  sorF% = 42: sorA% = 71: oszlopE% = 4: oszlopU% = 8
  Beiras sorF%, sorA%, oszlopE%, oszlopU%
  
  sorF% = 42: sorA% = 71: oszlopE% = 10: oszlopU% = 12
  Beiras sorF%, sorA%, oszlopE%, oszlopU%
  End Sub

  Sub Beiras(sorF%, sorA%, oszlopE%, oszlopU%)
  For i = 1 To 2
  sor% = Rnd() * (sorF% - sorA%) + sorA%
  oszlop% = Rnd() * (oszlopU% - oszlopE%) + oszlopE%
  Cells(sor%, oszlop%) = "X"
  Next
  End Sub

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