¿Cómo hacer lotería en formato Excel?
02
Busque "Común" y haga clic en el lado derecho, luego busque la casilla de verificación "Mostrar pestaña de desarrollador en la cinta" y presione Aceptar.
03
Haga clic en Herramientas de desarrollo para abrir los controles de desarrollo.
04
Usando controles de desarrollo transferidos, 2 etiquetas, 2 cuadros de texto y 1 botón. Combinado con conocimientos de Excel, cree la siguiente interfaz.
05
Las macros se pueden encontrar en vistas o herramientas de desarrollo. Luego abra el editor de macros.
06
Agregar código VBA:
Opción base 1
La dimensión t1 es rango largo 1
Establezca t2 en largo alcance 2
Número de lotería en forma entera
Dim num es un número entero
Sub auto_open()
Aplicar. OnKey "{ ENTER }", "cj"
Aplicar. OnKey "~ ", " cj "
Conector final
Función pública tj(lb) en forma de número entero
Marcar k como un número entero
k = 2
Do
Set myR = número de hojas (libras). Cell(k,1)
Si trim(MYR.Value) = "" Entonces 'Hay un registro vacío.
Salir Do
Finalizar si...
k = k + 1
Ciclo hasta error
tj = k - 1
Función final
Función pública csf()
num = tj("temp ")
Con trabajo tabla("temporal")
t1 =. celda (número, 3). valor
t2 =. celda (número, 4). Valor
Termina con
Hoja de trabajo ("Plan de Lotería"). Cuadro de texto 1. Texto = t1.
Hoja de trabajo ("Plan de Lotería"). Cuadro de texto 2. Texto = t2.
Finalizar función
Función pública cj()
num = tj("temp ")
Llamar csf
Llamar a cjsz
Función final
Función pública cjsz()
Dimensión r(10)
Para i = 1 a 10
xh = False
Do
d = Int((T2-t 1+1)* Rnd+t 1)
j = 0
Hacer
j = j + 1
Si r(j) = d, entonces
xh = Falso
Salir Do
Otro
xh = True
El bucle finalizará si...
Hasta j & gt = i
Ciclo hasta xh = True
r(i) = d
Siguiente i
tamaño b (1 a 10)
Para i = 1 a 10
b(i) = aplicar. Función de hoja de trabajo.Small(r, I)
Hoja de trabajo("Plan de lotería"). Etiqueta1. title = " "
Entonces
Para j = 1 a 10
Para i = 1 a 2000
Si modifico 100 = 0, entonces
Múltiples actividades
Terminará si...
m = Int((T2-t 1+1)* Rnd+t 1 )
Hoja de trabajo ("Plan de lotería") label2.caption = formato (m, "00000")
Siguiente yo
d = b(j)
Hoja de trabajo("Plan de lotería") label2.caption = formato (d, "00000")
Hoja de trabajo("Plan de lotería"). Etiqueta 1. título = hoja de trabajo ("Plan de lotería"). Etiqueta 1. Título y hoja de trabajo("Plan de lotería") Etiqueta 2. Título
Siguiente j
Nn = tj("Estadísticas")
Uso de la hoja("Estadísticas) "). cell(nn + 1, 1). valor = nn
.
. Cell(nn+1,3).Value("Plan de Lotería").
Título
Termina con...
Para i = 1 a 14
j = nn + 2 - i
Si j & gt entonces 1
Usar hoja de trabajo ("Estadísticas")
a =. celda(nn + 2 - i, 2). valor
c =. celda(nn + 2 - i, 3). Valor
Termina con...
Con hoja de trabajo ("Programa de Lotería")
. Celda(i+1,14). valor = a
. Celda(i+1,15). Valor = c
Termina con...
Otro
Sale con...
Terminará si...
Siguiente I
Finalizar función
07
Haga clic en el botón para probar y obtener el número ganador aleatorio.