Problema de VBA con lotería automática en excel

Es fácil de completar con VBA. El número aleatorio generado se coloca en la celda A1:

Botón de subcomando privado 1_Click()

El indicador Dim es un valor booleano y iNum es. un número entero

Do

iNum = Aplicación. Funciones de la hoja de trabajo. rand entre (1, 50)

flag=false

si iNum>= 20 y iNum<=25

flag=true

Será finalizar si...

Bucle cuando bandera = True

Celda (1, 1) = iNum

Conector final