Si eres aficionado al bingo o quieres un momento de descanso en tu trabajo, puedes crear el juego de bingo en Excel.
Los antecedentes al juego del bingo se sitúan en la unificación de Italia en 1530 mediante un juego denominado "Il Giocco del Lotto d'Italia", juego similar al de la lotería.
Sobre 1770 en la corte francesa se popularizó un juego "Le Lotto" con las reglas similares a las conocidas en la actualidad, los cartones se dividieron en 3 filas horizontales y 9 columnas verticales y en 1800 se extendió por toda Europa.
En 1929 en las ferias y festivales de Atlanta (Estados Unidos) el comerciante Edwin S. Lowe, identificó el juego que tenía mucho éxito denominado "BEANO".
A su regreso a Nueva York creó su propia versión, pasando a denominarse "Bingo" y popularizándose por toda la ciudad.
Fue un cura de la iglesia de Wilkes-Barre (Pennsylvania) que aplicaba el juego para recaudar fondos para la iglesia. El cura contactó con un matemático de la universidad de Columbia llamado Carl Leffler, para establecer un método para incrementar la cantidad de combinaciones en los cartones.
En los años 1940, el Bingo se expande por todo el país.
En 1977 se autorizó el bingo en España.
Deseamos crear un panel de bingo que simule al bombo del Bingo:
NÚMEROS SALIDOS
Mediante fórmulas y funciones creamos las referencias para identificar las bolas salidas, posteriormente se ocultarán las columnas.
Ir a: Celda AO2
Escribir:=SI(AQ2=" ";1;0)Ir a: Celda AO3
Escribir:=SI(AQ3=" ";AO2+1;AO2)Copiar la celda AO3
Pegar en el rango: A04:AO76.
Ir a: Celda AP2
Escribir: 1.Seleccionar la celda AP2
situar el cursor del ratón en el punto de y arrastrar hasta la celda AP76.Pulsar sobre el botón de opciones
Seleccionar: Serie de relleno.
Ir a: Celda AS2
Escribir:=SI(M14=1;"FIN";ALEATORIO.ENTRE(1;M14))
Ir a: Celda AT2
Escribir:=SI(M14=1;0;BUSCARV(AS2;AO2:AP76;2;FALSO))
PANEL DE NÚMEROS
Simulamos un panel electrónico para que muestre los números aparecidos:
Ir a: Celda C3
Escribir: 1.Seleccionar la celda
situar el cursor del ratón en el punto de y arrastrar hasta la celda Q3.Pulsar sobre el botón de opciones
Seleccionar: Serie de relleno. O escribir del 1 al 15.
Ir a: Celda C4
Escribir: 16.Seleccionar la celda
situar el cursor del ratón en el punto de y arrastrar hasta la celda Q4.Pulsar sobre el botón de opciones
Seleccionar: Serie de relleno. O escribir del 16 al 30.Ir a: Celda C5
Escribir: 31.Seleccionar la celda
situar el cursor del ratón en el punto de y arrastrar hasta la celda Q5.Pulsar sobre el botón de opciones
Seleccionar: Serie de relleno. O escribir del 31 al 45.Ir a: Celda C6
Escribir: 46.Seleccionar la celda
situar el cursor del ratón en el punto de y arrastrar hasta la celda Q6.Pulsar sobre el botón de opciones
Seleccionar: Serie de relleno. O escribir del 46 al 60.Ir a: Celda C7
Escribir: 61.Seleccionar la celda
situar el cursor del ratón en el punto de y arrastrar hasta la celda Q7.Pulsar sobre el botón de opciones
Seleccionar: Serie de relleno. O escribir del 61 al 75.Ir a: Celda Y3
Escribir:=SI(BUSCARV(C3;$AP$2:$AQ$76;2;FALSO)="ok";C3;0)Copiar la celda Y3
Pegar en el rango: Y3:AM7.
RESUMEN DE VALORES
Ir a: Celda L10
Escribir: Número: Como rótulo para el valor.Ir a: Celda M10
Escribir: 0.Ir a: Celda L12
Escribir: Números salidos: Como rótulo para el valor.Ir a: Celda M12
Escribir: =75-M14Ir a: Celda L14
Escribir: Números pendientes: Como rótulo para el valor.Ir a: Celda M14
Escribir:=MAX(AO2:AO76)
FORMATO CONDICIONAL
Aplicamos formato condicional para que remarque en otro color el nuevo número y con otro color los números ya salidos. Es importante insertar el formato condicional en dicho orden.
NÚMEROS SALIDOS. Seleccionar el rango C3:Q7. Rango donde aplicar el formato condicional.
Ir a: Cinta de opciones
Pestaña: Inicio Grupo: Estilos Formato condicional 
Nueva regla. Mostrará cuadro de diálogo de nueva regla.Ir a: Seleccionar un tipo de regla
Clic sobre: Utilice una fórmula que determine las celdas para aplicar formato. Tipo de regla deseado.
Ir a: Dar formato a los valores donde esta fórmula sea verdadera
Escribir:=Y3>0Escribir Y3 como referencia relativa (sin signo de dólar).
Pulsar el botón: Formato. Mostrará el cuadro de diálogo de formato de celdas.
Ir a: Pestaña Fuente
Clic sobre color amarillo. O el color deseado para los números salidos.Pulsar el botón Aceptar. Cierra la ventana de formato de celdas.
Pulsar el botón Aceptar. Cierra la ventana de nueva regla de formato.
NUEVO NÚMERO. Seleccionar el rango C3:Q7. Rango donde aplicar el formato condicional.
Ir a: Cinta de opciones
Pestaña: Inicio Grupo: Estilos Formato condicional Nueva regla. Mostrará cuadro de diálogo de nueva regla.Ir a: Seleccionar un tipo de regla
Clic sobre: Utilice una fórmula que determine las celdas para aplicar formato. Tipo de regla deseado.
Ir a: Dar formato a los valores donde esta fórmula sea verdadera
Escribir:=C3=$M$10Escribir C3 como referencia relativa (sin signo de dólar).
Pulsar el botón: Formato. Mostrará el cuadro de diálogo de formato de celdas.
Ir a: Pestaña Fuente
Clic sobre color rojo. O el color deseado para el nuevo número.Pulsar el botón Aceptar. Cierra la ventana de formato de celdas.
Pulsar el botón Aceptar. Cierra la ventana de nueva regla de formato.
MACRO: NUEVO BINGO
Creamos una macro que borre los valores del bingo anterior, permitiendo crear un nuevo juego.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.Escribir el código de la macro:
Sub Borra()
Sheets("Hoja1").Range("AQ2:AQ76").FormulaR1C1 = " "
Sheets("Hoja1").Range("M10").FormulaR1C1 = 0
End Sub
- Range("AQ2:AQ76"). Borra en la hoja1 la referencia a las bolas salidas en el panel bingo.
- Range("M10"). Borra en la hoja1 el último número en el panel bingo.
MACRO: NUEVA BOLA
Creamos una macro que muestre el valor aleatorio para la nueva bola.
Escribir el código de la macro a continuación de la anterior:
Sub Bola()
Sheets("Hoja1").Range("M10").FormulaR1C1 = "=Hoja1!R2C46"
nuevabola = Sheets("Hoja1").Range("M10").Value
Sheets("Hoja1").Range("M10").Value = nuevabola
Sheets("Hoja1").Range("AQ" & 1 + nuevabola).FormulaR1C1 = "ok"
If Range("M10").Value = 0 Then
MsgBox "¡ Bingo Finalizado ! " & vbNewLine & vbNewLine & " _
Pulsar NUEVO BINGO, para una nueva partida.", vbInformation
End If
End Sub
- "=Hoja1!R2C46" Toma el valor de la celda AT2
- nuevabola Toma la variable de M10, para insertar ok en la columna AQ.
- MsgBox Muestra mensaje de bingo finalizado.
DISEÑO PANEL BINGO
Aplicamos el diseño al panel de bingo: formato de celdas, formato de fuentes, ocultamos las columnas Y:AT e insertamos botones para ejecutar las macros, etc.
JUGANDO AL BINGO
Terminada la plantilla o simulador para el juego de Bingo en Excel, procedemos a ejecutar las macros para comenzar.
Ir a: Cinta de Opciones
Pestaña: Programador o Desarrollador (según la versión Excel) Grupo: Código Macros 
; O también, Atajo de teclado Alt + F8. Mostrará cuadro de diálogo de macro.Ir a: Nombre de la macro
Clic sobre la macro:- BORRAR. O pulsar el botón de la macro. Para borrar la jugada anterior.
- BOLA repetidas veces. O pulsar el botón de la macro, para ir mostrando los números.
Pulsar el botón Ejecutar. Reproducirá la macro.
Excel Experto VBA - Macros
Me gusta mucho todas sus enseñanzas muy interesantes y útiles en todo sobre todo tratándose de un beneficio
QUISIERA SABER SI TIENES ESE EXCEL EN TU PODER PARA QUE ME LO PUEDAS ENVIAR
Hola Fernanda,
No facilitamos las plantillas de ninguno de los trucos facilitados, ya que los que intentamos es que el usuario los pueda realizar por sí mismo.
Saludos.
Hola.
Esta expresión de VB en la macro nuevo bingo me da error
Sheets("Bingo").Range("AQ"&1+nuevabola).FormulaR1C1="OK"
Me marca &1 y dice que espera argumentos o )
¿La estoy editando mal?
Gracias
Hola Goyo,
Revisa el código escrito, Sheets("Bingo") por Sheets("Hoja1").
Saludos
de donde lo puedo descargar?
Hola Mauro,
Revisa la respuesta a Fernanda.
Saludos.
vbNewline&"_ al final me da error dice que se esperaba fin de la instruccion
Hola Oscar,
El error parece que se muestra en MACRO: NUEVA BOLA; MsgBox en la unión de las 2 líneas, elimina el guión bajo de & vbNewLine &" _. y escribe a continuación la línea inferior.
Saludos.
Me marca error en (Pulsar NUEVO BINGO) especificamente en BINGO
Dice error de sintaxis.
Hola Diego,
Sin algún detalle, es muy difícil identificar la anomalía. Revisa el código de la macro, que tendrás algún carácter que no corresponde.
Saludos.
a mi igual me aparece "Error de compilación: Se esperaba: fin de la instrucción"
esto me aparece en la ultima parte del codigo(Pulsar NUEVO BINGO, para una nueva partida.",vbInformation )... lo he escrito 3 veces y no encuentro el error...
Hola Yassna,
En MACRO: NUEVA BOLA. Elimina el guión bajo y continua con PULSAR NUEVO...
Saludos
Hola!
estoy haciendo las formulas
pero llegué hasta el nuevo macro. el tema es que no funciona la combinación de teclas Alt+F11...
Pero busqué y parece logré insertar la opción de "Macro" en Insertar
Ahora no encuentro la opción para agregar el modulo... no se donde agregar Sub()... etc.
¿agrego un nuevo macro?
y allí escribo los que dicen en la guía?
Gracias
Hola Miguel W,
1. El atajo de teclado Alt+F11 es lo mismo que cinta de opciones / Pestaña: desarrollador o programador / Grupo: Código / Visual Basic. Y funciona perfectamente tanto si tenemos activada la pestaña como si no.
2. Respecto a agregar módulo. Solo hay que leer el post y realizar lo que dice. Revisa el punto 2 de MACRO: NUEVO BINGO.
Saludos.
Hola gracias por el tema! Tengo problemas no logro que aparezcan la esfera roja del numero y el botón verde en que falle?
Hola Javier,
Ambas son opciones que se pueden incluir como mejoras, pero no necesarios para el juego.
1. Bola roja. Es una forma circular con el valor de número (repetido).
2. El botón. Puede ser un botón o una imagen, en caso contrario podemos ejecutar la macro desde la pestaña de desarrollador.
Saludos.
Hola sigo con el Bingo
cuando intento insertar los botones para iniciar el juego aparece lo siguiente
"No se puede ejecutar codigo en modo interrupción"
y en el macro aparece resaltado en amarillo Sub Borra() -paso Macro nUEVO BINGO-
Gracias!
Hola Miguel W,
Dos consideraciones:
a. El modo de interrupción se muestra al ejecutar la macro y encuentra algún error. Para detenerlo ir a barra de menús / Ejecutar / Restablecer y podemos ejecutar la macro de nuevo.
b. El error se produce ya que tienes algo escrito en la macro Sub Borra() diferente a lo que se indica en el post.
Revisa detenidamente el código, si sigues los pasos indicados, funcionará perfectamente.
Saludos.
Genial el Bingo!
me daba error porque tenía un espacio entre las comillas de la función SI de la columna AQ
Gracias!
Felicidades Miguel W,
Ahora sólo queda cantar muchas líneas y bingos.
Saludos.
Hola como se hace el circulo rojo en donde sale el nunero?
Hola Jorge,
El circulo se puede realizar con una forma (circulo) con el formato deseado.
Saludos.
Slds Hermano un placer! esta super excelente, pero me podrias ayudar con hacerlo manual? yo colocar el numero y el marque los numeros salidos ? gracias!
Muchas gracias por esta enseñanza
estubo muy Buena
Quiciera saber que tipo de fuente usaste en el tablero de numeros
Hola Enrique,
Puedes emplear fuentes que simulen letra digital en barra de led, por ejemplo, Digital 7, Ds-Digital, Led board, etc.
Saludos.
Alguien puede compartir este archivo por favor?
cordial como podria hacer el de los cartones que salgan los numeros de forma aleatoria por la b del 1 al 15 por la i de 16 la 30 n 31 a la 45 y asi sucecivamente hasta completar los 75 con la o.Gracias por tu explicacion
Muchisimas gracias, lo acabo de realizar y me quedo perfecto
Hola buenas tardes,
Despues de digitar las macros no supe que hacer... como guardar? y dar diseño? no se como agregar los botones... me pueden ayudar por favor, muchas gracias
Hola Maryi,
Guarda como libro de Excel habilitado para macros .xlsm.
Para insertar botón: Pestaña Desarrollador / Grupo: Controles / Insertar / Controles de formulario / Botón y asigna la macro.
Saludos.
HOLA COMO SE HACE EL CIRCULO ROJO PARA QUE SALGA EL NUMERO POR FAVOR AYUDA GRACIAS
Hola Johana,
El circulo es una forma de Excel con el texto del valor.
Saludos.
Sheets("Hoja1").Range("AQ" & 1 + nuevabola).FormulaR1C1 = "ok"
Hola cuando ejecuto la macro me da error en esta linea y no encuentro el motivo
Hola Andreu,
Revisa la línea anterior Sheets("Hoja1").Range("M10").Value = nuevabola.
Que tenga el mismo nombre.
Saludos.
Buenos días,
Primeramente, enhorabuena por tu bingo, yo estoy empezando a crearlo!!!. Me surge una duda, el círculo dónde se van viendo las bolas, ¿Es una de las dos macros que explicas?. Y una mejora, me he descargado el audio de los números de bola, ¿hay alguna forma de integrar esos audios para que cante la bola cuando salga?, Muchas gracias.
Hola Enric,
La bola es una mejora sobre el diseño, puedes insertar una forma circular con el valor de la celda y el diseño deseado.
Respecto al audio, se podría aplicar pero sería más complejo.
Saludos.
Como hacemos para que aparezca la imagen con el numero que salio?
Hola Maxi,
Revisa la respuesta a Enric.
Saludos.
me sigue apareciendo error en la macro de nueva bola, ya le quité el _ pero no funciona, me da error de sintaxis en la ultima linea...
esta es la Macro que inserté, me ayudas pls?
Sub Bola()
Sheets("Hoja1").Range("M10").FormulaR1C1 = "=Hoja1!R2C46"
nuevabola = Sheets("Hoja1").Range("M10").Value
Sheets("Hoja1").Range("M10").Value = nuevabola
Sheets("Hoja1").Range("AQ" & 1 + nuevabola).FormulaR1C1 = "ok"
If Range("M10").Value = 0 Then
MsgBox "¡ Bingo Finalizado ! " & vbNewLine & vbNewLine & " "
"Pulsar NUEVO BINGO, para una nueva partida.", vbInformation
End If
End Sub
Hola Carlos,
Asegúrate que la hoja se llame Hoja1 y el texto de "Pulsar NUEVO BINGO... deberá estár después de & " " (al quitar el _).
Saludos.
Buenas noches, muchas gracias por la enseñanza.
Sin embargo, me aparece al correr la macro de Bola un cuadro con error de sintaxis y en el cuadro de dialogo de Visual se resalta en color amarillo Sub Bola() y en color rojo el mensaje "Pulsar NUEVO BINGO, para una nueva partida.", vbInformation
Sub Bola()
Sheets("Hoja1").Range("M10").FormulaR1C1 = "=Hoja1!R2C46"
nuevabola = Sheets("Hoja1").Range("M10").Value
Sheets("Hoja1").Range("M10").Value = nuevabola
Sheets("Hoja1").Range("AQ" & 1 + nuevabola).FormulaR1C1 = "ok"
If Range("M10").Value = 0 Then
MsgBox "¡ Bingo Finalizado ! " & vbNewLine & vbNewLine & ""
"Pulsar NUEVO BINGO, para una nueva partida.", vbInformation
End If
End Sub
Hola Freddy
Escribe: MsgBox "¡ Bingo Finalizado ! " & vbNewLine & vbNewLine & "Pulsar NUEVO BINGO, para una nueva partida.", vbInformation
Todo en la misma línea y revisa que esté igual, en tu código existe: & "" "Pulsar (mal escrito).
Saludos.
Hola, no entiendo bien el ¨diseño panel bingo¨. Donde encuentro formato de celdas? Y como hago los botones?
Me encantaria que vieran como me esta quedando.
Gracias
Hola Laura,
Sobre la celda o rango seleccionado / Botón derecho / Formato de celdas.
Saludos.
Ya lo solucione, tenia un error en la columna AO. Gracias
hola....muy buena la enseñanza.....me gustaria que fuera manual y no automatica la balota...para usar balotera manual...es posible hacer eso.....cuentame como
Muchas gracias por compartir sus conocimientos.
Además realice el juego del Bingo quedo muy bien con su ayuda.
Abrazos