¿Cómo generar números de lotería en Excel?

Este método le guiará paso a paso en la aplicación de diversas funciones de Excel para generar números de lotería. Puede proceder del siguiente modo:

1. En una hoja de cálculo en blanco, escribe los encabezados de columna en el rango A1:C1 tal como se muestra en la siguiente captura de pantalla:

2. Introduzca fórmulas en las columnas A, B y C:

(1) En la celda A2, introduce la fórmula =ALEATORIO() y, a continuación, arrastra el controlador de relleno hasta el rango A2:A50.
(2) En la celda B2, introduce la fórmula =JERARQUÍA($A2;$A$2:$A$50)+CONTAR.SI(B$1:B1;B1)-1 y, después, arrastra el controlador de relleno hasta el rango B2:B50. (En la fórmula, A2 es el número aleatorio situado a la izquierda de la celda actual; $A$2:$A$50 son todos los números aleatorios generados con la primera fórmula; B$1 es la primera celda de la columna B, y B1 es la celda situada justo encima de la celda actual).
(3) En el rango C2:C50, introduce números consecutivos del 1 al 49.

A continuación obtendrá una tabla como la que se muestra en la captura de pantalla de la izquierda:

 

¿La fórmula es demasiado complicada de recordar? ¡Guárdela como una entrada de texto automático y reutilícela con un solo clic en el futuro!Leer más…     Prueba gratuita

3. Busque un rango en blanco y escriba números consecutivos horizontalmente en una fila, tal como se muestra en la siguiente captura de pantalla:

4. Debajo del primer número de secuencia «1», introduce la fórmula =BUSCARV(G1;$B$1:$C$50;2;FALSO) en dicha celda y, a continuación, arrastra el controlador de relleno hasta el rango que necesites.

Nota: En esta fórmula, G1 es la celda que contiene el primer número de secuencia «1», $B$1:$C$50 son las columnas de rango único y número de bola, y el 2 indica que debe buscar los valores en la segunda columna del rango $B$1:$C$50.

A continuación obtendrá los números de lotería tal como se muestra en la siguiente captura de pantalla:

5. Es opcional. Para evitar que los números de lotería cambien automáticamente al actualizar la hoja de trabajo actual, haga clic en Fórmulas > Opciones de cálculo > Manual.

Si tiene instalado Kutools para Excel, su utilidad Insertar datos al azar le permite generar números de lotería en Excel al instante.

1. Seleccione seis celdas adyacentes, por ejemplo A1:F1, y luego haga clic en Kutools > Insertar > Insertar datos al azar.

2. Ahora aparecerá el cuadro de diálogo Insertar datos al azar. Vaya a la pestaña Entero, escriba 1 en el cuadro Desde, escriba 49 en el cuadro Hasta, active la opción Valores únicos y haga clic en el botón Aceptar. Inmediatamente verá que se generan y muestran 6 números únicos de lotería en las celdas seleccionadas.

Este método le guiará paso a paso en la aplicación de una macro VBA para generar números de lotería en Excel. Siga estos pasos:

1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo para abrir una nueva ventana de módulo y pegue el siguiente código VBA en ella:

VBA: Generador de números de lotería en Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. Pulse la tecla F5 o haga clic en el botón Ejecutar para ejecutar esta macro VBA.

4. Ahora, en el cuadro de diálogo que aparece, indica la celda en la que deseas mostrar los números de lotería y haz clic en el botón Aceptar.

A continuación, verá cómo se generan y muestran en las celdas especificadas seis números únicos de lotería.

Seleccione celdas aleatoriamente según criterios en Excel

Añada aleatoriamente fondo/Color de relleno a celdas en Excel