Cómo calcular separadores compuestos en lotería 3D usando Excel

1. Cree una nueva hoja de cálculo EXCEL e ingrese "¿1er lugar? ¿2do lugar? 3er lugar" en el formulario, como se muestra en la figura.

2. Haga clic en "Herramientas de desarrollo" - VisualBasic en la barra de menú. Simplemente abra el editor VBA e ingrese su código.

3. En el editor de VBA, haga clic en "Insertar" - Módulo en la barra de menú, abra el editor de código y complete el espacio en blanco con el código.

4.Ahora para ingresar el código:

Opción Base 1

Sub Número de Fortuna ()

Dim n As Integer, i Como entero, j Como entero

Dim l() Como entero

n = Application.InputBox("Ingrese el número del número")

5 .Ahora ingrese el código InputBox("Ingrese el número de boletos 3D:", "Número de la suerte", , , , 2)

ReDim l(n, 7) As Integer

Para i = 1 a n

Para j = 1 a 3

Aleatorizar

l(i, j) = Int(10 * Rnd)< / p>

Siguiente

Siguiente

Para i = 1 a n

Para j = 1 a 3

Hojas( 6 ).Celdas(i 1, j 1) = l(i, j)

Siguiente

Depurar.Imprimir

Siguiente

Fin Sub

5. Regrese a la hoja de cálculo de EXCEL, haga clic en el botón "Herramientas de desarrollo" - Insertar -, arrastre la flecha en forma de cruz para dibujar un botón rectangular, arrastre la flecha en forma de cruz para dibujar un botón rectangular. , y aparecerá el cuadro de diálogo "Especificar macro", seleccione el nombre de la macro "Hoja5".

6. Haga clic derecho en el botón, seleccione "Editar texto", cambie el nombre del botón a "Selección 3D", haga clic en el botón en este momento y aparecerá un cuadro de diálogo "Ingrese el número de ¡Billetes de lotería 3D!", ingresamos "6", hacemos clic en "Aceptar" y verá aparecer 6 grupos de boletos de lotería aleatorios.