Slumpa i VBA

När jag kör följande kod i ett exel makro:

Dim slump(80) As Integer
Do
Randomize
slumptal = Int((7 * Rnd) + 1)
For tal = 1 To 7
If slumptal = slump(tal) Then
Exit For
End If
varv = varv + 1
slump(varv) = slumptal
Exit For
Next tal
Loop Until varv = 7

For tal2 = 1 To 7
Cells(1, 1).Value = Cells(1, 1) & slump(tal2) & ", "
Next tal2

Kan reslutatet bli: 3, 1, 5, 5, 1, 5, 6,
Vilket är fel, ett tal får ju bara förekomma EN gång. Hur gör man det?

Tja, du får väl slänga upp de framslumpade värdena i en array och kontrollera det senast framslumpade värdet med värdena i arrayen. Använd en loop för att köra slumpningen igen om värdet inte är unikt.

Glasklart?