Generování náhodných čísel v intervalu bez opakování – Visual Basic – Fórum – Programujte.com

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

V podstate po každom generovaní nového čísla ho treba porovnať s predošlými, čo znamená ukladať ich do poľa :

Dim cislo(16) As Byte
Dim n, k As Byte
Dim zhoda As Boolean

    For i = 2 To 5
      For j = 1 To 4
        'počítadlo vygenerovaných čísel
        n = n + 1
        Do
            'inicializátor náhodných čísel
            Randomize
            'generuj a vlož do bunky
            cislo(n) = Int((16 - 1 + 1) * Rnd + 1)
            Cells(i, j) = cislo(n)
            zhoda = False
            'porovnaj s doteraz generovanými číslami
            For k = 1 To n - 1
                If cislo(k) = cislo(n) Then
                    zhoda = True
                    Exit For
                End If
            Next k
            'ak sa niektoré zhodujú generuj znova
        Loop While zhoda
       Next j
    Next i

díky moc, pohomohlo mi to !

*pomohlo :-)