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

• #16100 Delila_1 veterán baderoli #16099

  Új Válasz 2013-01-11 08:52:56 #16100

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

  Az értékadásnál a sorF% a területed felső sora, a sorA% az alsó sor, az oszlopE% a terület első-, az oszlopU% az utolsó oszlop száma. Az én értékadásomnál a terület C3:J10.

  Sub X_ek()
  Dim sorF%, sorA%, oszlopE%, oszlopU%, i%, sor%, oszlop%
  
  sorF% = 3: sorA% = 10: oszlopE% = 3: oszlopU% = 10
  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