Buscando un programa de lotería de Excel que tenga una lista de 30 personas y cada vez que se haga clic en un botón se sorteará un nombre y se mostrará hasta que se sorteen las 30 personas.
Debe agregar otro botón de inicialización con el siguiente código (commandbutton1 es su siguiente botón y commandbutton2 es el botón de inicialización)
Dim arr(), count
Private Sub CommandButton1_Click()
Si cuenta <= 29 Entonces
n = Int(Rnd * (UBound(arr) - LBound(arr) + 1)) + LBound(arr)
TextBox1.Text = arr(n)
Celda()
TextBox1.Text = arr(n)
Celda(Texto = arr(n)
Cells(count + 1, 10) = arr(n) 'El código de prueba se puede eliminar
Cells(count + 1, 11) = n 'El código de prueba se puede eliminar
count = count + 1
arr(n) = arr(UBound(arr))
Si UBound(arr) > 1 Entonces ReDim Preserve arr(1 To UBound; (arr) - 1)
Else
MsgBox "Todas las personas han sido sorteadas"
End If
End Sub
Private Sub CommandButton2_Click ()
ReDim arr(1 a 30)
Aleatorio
TextBox1.Text = ""
Para i = 1 a 30
arr(i) = Celdas(i, 1)
Siguiente
MsgBox "ha sido inicializado"
cuenta = 0
Fin del subtítulo