Anonymní profil Jambi – Programujte.com

*pomohlo :-)

díky moc, pohomohlo mi to !

Zdravím,

potřebuji v listu vygenerovat náhodně čísla do buněk v listu v intervalu a zajistit, aby se mi  čísla neopakovala. 

Generování čísel jsem zajistil takto , ale bohužel už jsem nepřišel na to jak zajistit, aby se mi neopakovala.

Díky za každou radu :-)

Range(Cells(2, 1), Cells(5, 4)) = Int((16 - 1 + 1) * Rnd + 1)

For i = 2 To 5
  For j = 1 To 4
    Do
   Cells(i, j) = Int((16 - 1 + 1) * Rnd + 1)
   Loop Until (Cells(i, j + 1) <> Cells(i, j)) And (Cells(i, j + 2) <> Cells(i, j)) And (Cells(i, j + 3) <> Cells(i, j)) _
  

   
   Next j
Next i