Cómo no echar suertes repetidamente

Utilice el código VBA (establecí el número de lotería del 1 al 100, no habrá duplicación), de la siguiente manera:

Subcq()

Rango ("c3:e3"). Borrar contenido

Representar I como bytes

i = 3

T1:

Cuando i<six

Si celdas (3,i) = ", entonces

Celdas(3,i) = Apply.RandomInterval(1,100)

Terminará si...

i = i + 1

anillo

Si se aplica o(celda(3,3) = celda(3,4),celda() 3, 3) = celda (3, 5), celda (3, 4) = celda (3, 5)) y luego

rango("c3:e3").

Borrar contenido

Ir a T1

Terminará si...

Finalizar conector

El efecto es el siguiente (si el la imagen no tiene animación, haga clic en Imagen)