VBA kode til at generere 7 lottotal.

Lav din userform med 7 labels og en knap
smid denne kode ind i userformens kode

Private Sub CommandButton1_Click()
  rand7
End Sub

Sub rand7()
Dim rando As New Collection
Dim i As Long, firstnumber As Long, lastnumber As Long
Dim x As Long
Dim it
Dim lotto(1 To 7)
  On Error Resume Next
  Dim Counter As Long
  firstnumber = 1
  lastnumber = 36
  Counter = 7
  While rando.Count < Counter
      x = Int(Rnd() * lastnumber + firstnumber)
      rando.Add x, CStr(x)
  Wend
  x = 0
  For Each it In rando
      x = x + 1
      lotto(x) = it
  Next
  Call BubbleSort(lotto)
  Me.Label1 = lotto(1)
  Me.Label2 = lotto(2)
  Me.Label3 = lotto(3)
  Me.Label4 = lotto(4)
  Me.Label5 = lotto(5)
  Me.Label6 = lotto(6)
  Me.Label7 = lotto(7)
End Sub

Sub BubbleSort(list())
Dim First As Integer, Last As Long
Dim i As Long, j As Long
Dim Temp As Long

  First = LBound(list)
  Last = UBound(list)
  For i = First To Last - 1
      For j = i + 1 To Last
        If list(i) > list(j) Then
            Temp = list(j)
            list(j) = list(i)
            list(i) = Temp
        End If
      Next j
  Next i
End Sub

Virker perfekt.

Smid et svar:=)

ok :-)