Calculadora de Premios de la Lotería de Navidad

🔝Select the language of this blog post in the Google box at the top left.

🎄 Sirva este artículo para felicitar la Navidad a mis lectores 🎄

Actualización 2025-12-22: Nueva calculadora Excel para bajarse la lista definitiva de premios de la Lotería Nacional de Navidad española del 22 de diciembre de 2025, y comprobar desde el día del sorteo si nos tocaron los números que jugábamos.

Desde las 9:00 horas en España, una hora menos en las islas Canarias y hasta que acabe el sorteo, puedes actualizar cada minuto o cada hora, según tu ansiedad por hacerte rico, la Calculadora de Premios con el menú: Datos | Actualizar todo (Control + Alt + F5)

NOTA: Este artículo lo  publiqué por primera vez el 22 de diciembre de 2014 y cada año lo actualizo con el nuevo sorteo de Navidad. La próxima actualización será el próximo 22 de diciembre de 2026.

Mi Lotería de Navidad Española

¿Y si nos ha tocado la lotería? ¡Cosa estadísticamente muy poco probable!

¿Y si nos toca pagar la lotería? ¡Cosa segura!

¿Acaso hay alguien tan holgado económicamente que pueda pagarla en metálico? ¿O en "negro"?

Si lo normal es ¡tener que pedir un crédito! para poder comprar los décimos de la lotería...

INSTRUCCIONES: Introduce los números que juegas en el rango de celdas B8:B27 y los importes que juegas en el rango C8:C27, y se calcularán automáticamente los premios que te han tocado.

ATENCIÓN: He ampliado a 20 los números a comprobar si están premiados.

Calculadora de visitas a este blog

Adelanto que a mí tampoco me ha tocado la lotería, pero voy a acabar el año con más de un millón cuatrocientas mil visitas a este blog, gracias a los más de medio millón de lectores como tú, que se interesan por los artículos que voy escribiendo sobre Excel.

Mi lotería

No esperes que adivine los números premiados en la lotería, pues la lotería es un asunto cuyo resultado depende de la suerte o la casualidad.

Para comprobar los números de la Lotería de Navidad con Excel ¡como a mí me gusta! y ¡saber si aún debemos pagar 21 € por un café!, si nos pasa como al del anuncio de hace unos años, que no tenía ni metálico para comprarla, aquí va mi propuesta:

En lugar de bajar a la cafetería a que nos entreguen un sobre cerrado, que no sabemos que contiene y darnos una sorpresa, podemos bajarnos la Calculadora de Premios de la Lotería de Navidad en Excel (descárgala un poco más abajo).

Si sigues sin querer bajar a la cafetería, puedes consultar los números premiados en Internet:

Lotería Nacional | Venta y resultados OFICIALES - Loterías y Apuestas del Estado (loteriasyapuestas.es)

A mí, como a la mayoría, me toca pagar todos los años la lotería a los afortunados a los que les ha tocado el Gordo de Navidad y a ¡Hacienda somos todos!

Si piensas que comprando lotería estás redistribuyendo la riqueza, ¡estás muy equivocado!

Comprando lotería realmente estás redistribuyendo la pobreza, pues la mayoría de pobres pierde el dinero que juega a la lotería. Los premios "gordos" los ganan una minoría de nuevos ricos.

Descarga la Calculadora de Premios

Descarga el archivo desde este enlace:

• Sites Google Drive: Lotería de Navidad Española PW1.xlsx

INSTRUCCIONES:

0) Hacer clic en "Habilitar edición" en respuesta a: Este archivo procede de Internet y podría no ser seguro

1) Hacer clic en "Habilitar contenido" en respuesta a la Advertencia de seguridad: Se han deshabilitado las conexiones de datos externos

2) Actualizar la tabla de la hoja 'Alambres' con el menú: Datos | Actualizar todo (Control + Alt + F5)

3) Actualizar la tabla dinámica de la hoja 'Números' con el menú: Datos | Actualizar (Alt + F5)

Esta plantilla tiene la primera hoja protegida sin contraseña y no contiene macros, únicamente tiene una conexión a las tablas de la Lotería de Navidad española, y ¡todo el cálculo se realiza sólo con fórmulas y una tabla dinámica!

Videotutorial de la Calculadora de Premios

Problemas con la descarga de la lista oficial

Con este aporte se pueden descargar los números de la página oficial, pues desde el archivo pdf, que publica Loterías y Apuestas del Estado, no se permite la copia de los números premiados.

La descarga del archivo pdf se hace desde este enlace:

LISTAOFICIAL.A2025.S102.pdf (loteriasyapuestas.es)

La imagen con los Permisos del archivo muestra las opciones de seguridad del archivo pdf, descargado con la lista completa de los números de la lotería, comprobando que no se permite nada excepto Imprimir (en "Alta resolución"). No se permite la copia de contenido y ni siquiera está activada la accesibilidad al contenido, por lo que no ayuda a obtener la lista de números premiados en Excel.

Cómo funciona la Calculadora de Premios

Con mi plantilla se establece una conexión a la web de Loterías y Apuestas del Estado:

Tablas y Alambres - Loterías y Apuestas del Estado (loteriasyapuestas.es)

En esta imagen animada muestro las propiedades de: Conexión Lotería

En la consulta web es importante hacer clic en cada uno de los 10 alambres de la Tabla 1, para que queden marcados todos los alambres. Las 9 tablas restantes se importan automáticamente.

Y se consigue un listado de hasta 20 números premiados en cada uno de los 10 alambres de cada una de las 10 tablas de extracciones, generando automáticamente y pudiendo consultar todos los números premiados el 22 de diciembre. Los reintegros de la última cifra del premio "GORDO" se calculan con una fórmula adicional.

TRUCO: Para poder marcar cada uno de los alambres, previamente se debe acceder a: Opciones de consulta web

Y marcar:

Deshabilitar redireccionamiento de consultas web

Por supuesto que mi plantilla no contiene ninguno de los números de la lotería pues, si así fuera, tendría que pagar al Estado "royalties" (en la lengua española serían regalías) y cada cual es libre de conectar y descargar los números premiados.

Cómo cobrar la Lotería de Navidad

Si te han caído menos de 2.000 euros, puedes cobrarlos en cualquier Administración de Loterías de España.

Si te han caído 2.000 euros o más, los décimos debes cobrarlos en una oficina de las entidades bancarias concertadas con Loterías y Apuestas del Estado. Estas son BBVA y CaixaBank.

A fin de evitar colas innecesarias, se recomienda concertar una cita con el director de la sucursal escogida, especialmente para las cuantías de premios mayores, y personarse todos los jugadores de los décimos premiados, para que Hacienda sepa cuánto has ganado en premios de la lotería estatal, y para que te retenga automáticamente el 20% sobre los premios que superen los 40.000 €, pues los primeros 40.000 € están exentos. Hacienda retiene 72.000 € por un décimo del premio "GORDO" virtual de 400.000 €, con lo que el premio "gordo" real es de 328.000 €. Si el décimo está compartido, cada participante tributa solo por su parte proporcional, y también se aplica el mínimo exento a cada uno. Si un décimo del gordo lo juegan entre 10, ninguno pagará impuestos y ¡cada participante cobrará 40.000 € de la décima parte del décimo "gordo" premiado!

Puedes cobrar los premios desde la misma tarde del 22 de diciembre y tienes de plazo tres meses desde el día siguiente al sorteo, es decir, hasta el 24 de marzo de 2026.

Eso sí, siempre que no se hayan repartido más participaciones que décimos cobrados: "Acabaremos en los juzgados, con uno que denuncie", como ha pasado aquí:

• Acuerdo en Villamanín por el Gordo de Navidad: la comisión cede dos millones de euros y el resto saldrá del premio de los vecinos | lasexta.com

Comprueba tus números sin necesidad de Excel

Comprueba si te han tocado los números que juegas sin necesidad de tener Excel.

Para ajustar el zoom en la nube:

• En el móvil o celular usa dos dedos en la pantalla, como haces para ampliar o reducir una foto.
• En el PC sitúa el cursor dentro del buscador y presiona la tecla <Control> girando la ruleta del ratón.

INSTRUCCIONES:

1) Introducir los números e importes jugados.

2) Actualizar los números premiados pulsando el botón de abajo: Actualizar todas las conexiones de datos, o presionando la combinación de teclas: Control + Alt + F5

AVISO: Tus datos no se guardan en la nube. Para guardar tus datos, descarga el archivo haciendo clic en el botón: Descargar

¡Buena suerte a todos!

¡Incluso a los que no juegan a sorteos de azar!

Mi bingo iterativo

🔝To translate this blog post to your language, select it in the top left Google box.

Este bingo se me ocurrió mientras estaba diseñando los bingos de los dos artículos anteriores.

• Mi bingo volátil en Excel | #ExcelPedroWave

• Mi bingo en la nube | #ExcelPedroWave

Ninguno de los bingos anteriores funciona ya, debido a que Microsoft se ha esmerado en corregir demasiado pronto el excelente BUG que permitió, durante unos meses, que las funciones volátiles dejaran de ser volátiles, tanto en Excel para Microsoft 365 como en Excel para la Web.

Por lo que he tenido que recurrir al viejo truco de usar el cálculo iterativo para diseñar mi bingo iterativo, y poder jugar con las nuevas actualizaciones del canal actual de Excel para Microsoft 365 y en Excel para la Web.

Mi bingo iterativo

Este es el aspecto de mi bingo iterativo en Excel para Microsoft 365.

Este juego de bingo iterativo en Excel contiene 3 hojas:

• BINGO: Es la hoja donde realmente se juega al bingo.

• BOLAS: Es la hoja con las 90 bolas de un bingo, ordenadas aleatoriamente.

• CARTONES: Es la hoja auxiliar donde se calculan los cartones y los premios del bingo.

Juega al bingo iterativo en la nube

Si aún no tienes una suscripción de pago a Microsoft 365, puedes probar gratuitamente mi bingo iterativo en la nube de Microsoft OneDrive.

Para marcar las casillas hay un desplegable para elegir entre VERDADERO (casilla marcada) y FALSO (casilla desmarcada).

Para ajustar el zoom en la nube:

• En el PC sitúa dentro el cursor y presiona la tecla <Control> mientras giras la ruleta del ratón.
• En el móvil o celular usa dos dedos en la pantalla, como haces para ampliar o reducir una foto.

Descarga mi bingo iterativo

Descarga este juego de bingo, probado en Excel para Microsoft 365, desde este enlace:

• Google Drive: Mi bingo iterativo - PW1.xlsx

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

Las hojas están protegidas sin contraseña para que sea fácil analizar las fórmulas.

ATENCIÓN: Se puede modificar este libro de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0

Instrucciones del bingo iterativo

1) Marcar las casillas del cartón o de los cartones que quieras jugar

2) Marcar la casilla para Extraer las bolas

3) Extraer las bolas presionando:

• En Excel para la Web con el botón de abajo: Actualizar todas las conexiones de datos
• En Excel para Microsoft 365 con la tecla F9 repetidamente

4) Cantar línea, dos líneas o ¡Bingo!

5) Comenzar un nuevo juego, desmarcando la casilla: Extraer

Vídeo del bingo iterativo

En este vídeo explico cómo jugar a este bingo iterativo.

Cálculo iterativo del bingo

Para que no existan referencias circulares en las fórmulas de algunas celdas, que se llaman a sí mismas, hace falta tener habilitado el cálculo iterativo.

Aunque por defecto ya está habilitado el cálculo iterativo en el libro con este juego del bingo, no está de más saber cómo cambiar las opciones de cálculo.

Entrar en el menú: Archivo

Abajo hay un botón: Más...

con más opciones.

Seleccionar: Opciones

Y se abre la ventana: Opciones de Excel

Seleccionar: Fórmulas

En Opciones de cálculo:

Cálculo del libro: Automático

Está marcado: Habilitar cálculo iterativo

Iteraciones máximas: 1

Cambio máximo: 1

Con lo que cada recálculo de fórmulas iterativas se hará una vez y se cambiará en una unidad.

Nombres definidos en el bingo

En el menú: Fórmulas > Administrador de nombres, hay 5 nombres definidos:

BolaExtraer: =BINGO!$S$2

BolaNúmero: =BINGO!$Q$2

BolaValor: =BINGO!$P$6

misBolas: =SI(BolaNúmero=0;"";BOLAS!$A$2:INDICE(BOLAS!$A$2#;BolaNúmero))

misCartones: =CARTONES!$AB$6:$AJ$23

Hoja BOLAS

La hoja 'BOLAS' solamente contiene una fórmula matricial iterativa en la celda A2:

=SI(BolaExtraer;$A$2#;ORDENARPOR(SECUENCIA(90);MATRIZALEAT(90)))

Si el valor de la celda BolaExtraer es:

• VERDADERO, mientras se extraen las bolas, se mantienen los valores de la matriz dinámica desbordada: $A$2#

• FALSO, obtiene una nueva matriz dinámica desbordada de 90 números de bola aleatorios distintos, del 1 al 90. Son los números que se van extrayendo durante el juego del bingo.

Hoja CARTONES

La hoja 'CARTONES' genera los números de bolas de 6 cartones, que es un límite que me he impuesto por necesidades didácticas, y que se puede ampliar si se tiene un nivel intermedio de Excel.

En el bingo de 90 bolas, cada uno de los cartones tiene 3 líneas de 5 bolas cada una, con 4 espacios sin números en cada fila.

AVISO: En cualquiera de los bingos que he diseñado las bolas no se repiten en ninguno de los 6 cartones generados en cada juego.

Los números de bola mínimos de cada columna de cada cartón, están escritos en el rango B5:J5.

Los números de bola aleatorios de cada columna de cada cartón, están en el rango B6:J6 con unas fórmulas iterativas matriciales dinámicas, que se desbordan en las siguientes filas. Por ejemplo, para generar números aleatorios únicos del 1 al 9, la fórmula de la celda B6 es:

=SI(BolaExtraer;B$6#;ORDENARPOR(SECUENCIA(9;1;B$5);MATRIZALEAT(9)))

Para cambiar aleatoriamente el orden de los cartones en cada juego, se hace con la fórmula en la celda M6:

=SI(BolaExtraer;$M$6#;ORDENARPOR(SECUENCIA(6);MATRIZALEAT(6)))

Las filas de cada cartón se calculan en el rango N6:N11 con la fórmula en N6 arrastrada hacia abajo:

=3*(M6-1)

Los patrones de los 6 cartones, con un 1 si hay número de bola, y un 0 si no hay número de bola, están escritos en el rango Q6:Y23

Los 6 cartones con sus números de bola se generan en el rango AB6:AJ23. Por ejemplo, la primera columna de cada cartón se genera con la fórmula matricial desbordada de la celda AB6:

=SI(Q6:Q23=0;"";INDICE(B$6:B$16;Q6:Q23))

Para saber cuando se extrae la bola con la que cantar los premios, en el rango AS5:ED5 hay una secuencia del 1 al 90, con las 90 extracciones posibles de todas las bolas.

Para saber cuantos números han salido en cada fila de cada cartón, se copia en el rango AS6:ED23 la siguiente fórmula, con la que se obtiene un valor entre 0 y 5 aciertos:

=SUMA(SI(SI.ERROR(COINCIDIR($AB6:$AJ6;BOLAS!$A$2:INDICE(BOLAS!$A$2#;AS$5);0);0)>0;1;0))

Para saber el número de bola que haría cantar ¡LÍNEA!, en cada fila de cada cartón, se hace arrastrando hacia abajo la fórmula de AN6, en el rango AN6:AN23:

=COINCIDIR(5;$AS6:$ED6;0)

Para saber el número de bola que haría cantar ¡DOS LÍNEAS! en cada cartón, se copia en cada 3 filas del rango AO6:AO23, la siguiente fórmula de AO6:

=SUMA($AN6:$AN8)-MAX($AN6:$AN8)-MIN($AN6:$AN8)

Para saber el número de bola que haría cantar ¡BINGO! en cada cartón, se copia en cada 3 filas del rango AP6:AP23, la siguiente fórmula de AP6:

=MAX($AN6:$AN8)

Los números de extracción con alguno de los 3 premios se calculan en el rango AN5:AP5, con la fórmula de AN5 copiada hacia la derecha:

=MIN(AN6:AN23)

Los números de bola con alguno de los 3 premios se calculan en el rango AN4:AP4, con la fórmula de AN4 copiada hacia la derecha:

=INDICE(BOLAS!$A$2#;AN5)

Los números de fila de la matriz de cartones con alguno de los 3 premios se calculan en el rango AN3:AP3, con la fórmula de AN3 copiada hacia la derecha:

=MIN(SI(misCartones=AN4;FILA(misCartones)))

Los números de cartón que han sido premiados se calculan en el rango AN2:AP2, con la fórmula de AN2 copiada hacia la derecha:

=COINCIDIRX(AN3-6;$N$6:$N$11;-1;1)

La información del rango AN2:AP5 se mostrará en la hoja 'BINGO' según se vayan extrayendo las bolas...

Hoja BINGO

A este bingo iterativo se juega en la hoja 'BINGO'.

Con cálculo iterativo se obtiene la siguiente bola extraída en la celda Q2, con la fórmula:

=SI(BolaExtraer;MIN(CARTONES!$AP$5;BolaNúmero+1);0)

Siempre que sea VERDADERO la celda S2 con el nombre definido: BolaExtraer

Si ese nombre es FALSO, la celda S2 se pone a 0 y genera un nuevo juego de bolas y de cartones.

En el rango B3:J12 están las 90 bolas que, con un formato condicional, cambian de color si es la bola recién extraída o ya ha sido extraída. La fórmula matricial en B3 es:

=TRANSPONER(SECUENCIA(9;10))

Se indican las 3 bolas previas extraídas en el rango L5:L7, con la fórmula matricial en L5:

=SI(BolaNúmero<2;"";INDICE(misBolas;SI(BolaNúmero>3;BolaNúmero-3;SI(BolaNúmero>2;BolaNúmero-2;1))):INDICE(misBolas;SI(BolaNúmero>1;BolaNúmero-1;1)))

El último número de bola extraído se muestra en la celda combinada P6:R8, con la fórmula:

=SI(BolaNúmero=0;0;INDICE(BOLAS!$A$2#;BolaNúmero))

Los 3 premios aparecen en las siguientes celdas con sus fórmulas:

L13: =SI(BolaNúmero>=Q13;"¡LÍNEA!";"")

L14: =SI(BolaNúmero>=Q14;"¡DOS LÍNEAS!";"")

L15: =SI(BolaNúmero>=Q15;"¡BINGO!";"")

En la fila 16 hay 3 secuencias auxiliares del 1 al 9 para pintar los 6 cartones.

En la columna A hay 2 secuencias auxiliares del 1 al 3 para pintar los 6 cartones.

En 6 celdas concretas se indica qué cartón se pintará de los 6 cartones posibles:

A17: =CARTONES!$N$6

L17: =CARTONES!$N$7

W17: =CARTONES!$N$8

A22: =CARTONES!$N$9

L22: =CARTONES!$N$10

W22: =CARTONES!$N$11

Los números de bolas del cartón 1 se obtienen copiando en el rango B18:J20 la fórmula de la celda B18:

=INDICE(misCartones;$A$17+$A18;B$16)

Los números de bolas del cartón 2 se obtienen copiando en el rango M18:U20 la fórmula de la celda M18:

=INDICE(misCartones;$L$17+$A18;M$16)

Los números de bolas del cartón 3 se obtienen copiando en el rango X18:AF20 la fórmula de la celda X18:

=INDICE(misCartones;$W$17+$A18;X$16)

Los números de bolas del cartón 4 se obtienen copiando en el rango B23:J25 la fórmula de la celda B23:

=INDICE(misCartones;$A$22+$A23;B$16)

Los números de bolas del cartón 5 se obtienen copiando en el rango M23:U25 la fórmula de la celda M23:

=INDICE(misCartones;$L$22+$A23;M$16)

Los números de bolas del cartón 6 se obtienen copiando en el rango X23:AF25 la fórmula de la celda X23:

=INDICE(misCartones;$W$22+$A23;X$16)

¡Y eso es todo amigos!

¡Felices vacaciones de verano!

¡Hasta septiembre!

Un juego del Rabino en Excel

🔝To translate this blog post to your language, select it in the top left Google box.

NUEVA REVISIÓN: A 6 de febrero de 2025, he subido una nueva revisión del juego con algunas correcciones de problemas y mejoras en el motor del juego.

AVISO: En la red hay muchos juegos de cartas, escritos por ejemplo en Java o Python, pero al intentar descargarlos mi antivirus detecta amenazas en los ejecutables y los pone en cuarentena, pues son un riesgo para mi equipo.

Pero esto no te pasará si descargas ¡¡¡ mi juego del Rabino en Excel !!!

Un juego del Rabino en Excel

Esta es la entrega final de una serie de artículos con los que he intentado diseñar en Excel un juego de cartas con una variante especial del Rabino.

Ya me dirás si lo he conseguido.

La variante que he programado es el Rabino que me enseñó mi padre cuando yo era un niño, y es el Rabino que juego muchas tardes con mi esposa. A los dos les dedico este entretenido juego.😘

En este enlace encontrarás todos los juegos de cartas que he programado en Excel:

• cartas | #ExcelPedroWave

En esta entrega final explicaré:

♥️  Cómo ganar una serie de partidas.

♠️  Qué datos se guardan de cada partida.

♦️  Cómo ver los resultados de las partidas.

♣️  Qué falta por hacer para mejorar este juego.

La nueva funcionalidad de esta última entrega es poder jugar una serie de partidas, hasta que un jugador sobrepase los 100 puntos, con lo que perderá la serie de partidas, o hasta que un jugador cierre con una Escalera Real, en cuyo caso ganará la serie de partidas del Rabino.

En la imagen se muestran los resultados de las últimas partidas, y cuántas series de partidas ha ganado cada jugador.

¡Vaya!

¡El Rabino en Excel me lleva ventaja!

¡Tengo que seguir retándolo a jugar más partidas!

Vídeo del juego del Rabino

En este vídeo verás la estadística de puntos de algunas de las muchas partidas que he jugado contra el Rabino en Excel, para así probar el motor del juego.

Cómo ganar una serie de partidas

Esta variante del Rabino no la he diseñado en plan profesional sino en plan didáctico, aunque he intentado ser lo más fiel posible a la manera de jugar entre dos jugadores.

Una serie de partidas las gana el jugador:

• Que cierra con una Escalera Real, con las 10 cartas combinadas en una sola escalera del mismo palo.

• Si al sumar los puntos de la última partida, el otro jugador sobrepasa los 100 puntos en el total de la serie que se está jugando.

Qué datos se guardan de cada partida

Cuando acaba una partida se guardan sus datos:

• Fecha y hora
• Puntos de cada jugador.
• Total de puntos de cada jugador de la serie de partidas.

Si uno de los jugadores gana la serie de partidas, esa partida se colorea con un verde más oscuro, añadiendo un juego más a ese jugador.

Cómo ver los resultados de las partidas

Los datos se guardan en la hoja 'Juegos', con la macro del módulo modJuegos:

• AnotarPuntos: Anota los puntos del juego a partir de la fila 21 de la hoja 'Juegos'.

En la celda D18 está el total de las partidas jugadas.

En las celdas D3 y J3 están las series de partidas ganadas por cada jugador.

Para ver estos datos en la hoja 'Tapete' se usa la macro:

• MostrarJuegos: Muestra u oculta los juegos de las partidas jugadas en una forma (shape) de Excel, creada con la cámara de Excel.

TRUCO: Con esta macro se consigue crear una imagen estática de las partidas jugadas, escribiendo por segunda vez la fórmula sin rangos:

Selection.Formula = ""

Con lo que se consigue mejorar el rendimiento del juego, pues si se mantiene la fórmula de la cámara de Excel, la imagen es dinámica y se refresca y se recalcula continuamente. Por eso hay que igualar la fórmula dos veces, una con el rango de la foto y otra sin nada, como se ve en este código:

Sub MostrarJuegos(msoEstado As MsoTriState) ' ' Mostrar u ocultar los juegos de las partidas jugadas ' With ThisWorkbook.Worksheets("Tapete").Shapes("ReverJuegos") .Visible = msoEstado If msoEstado = msoTrue Then .Select Selection.Formula = "=Juegos!A1:H16" DoEvents Selection.Formula = "" DoEvents .Top = 256 .Left = 496 .LockAspectRatio = msoFalse .Width = 737 .Height = 419 End If End With End Sub

Qué falta por hacer

Para poder finalizar el diseño del juego aún falta bastante por hacer:

1. Ajustar y optimizar el motor del juego, hecho con el complemento Solver.
2. Corregir los defectos del juego y seguir mejorándolo.
3. Documentar el juego profesionalmente...
4. Barajar de forma menos aleatoria, pues la mayoría de los humanos no somos tan variables, y creo que nos gusta la rutina...
5. Que el Rabino en Excel cierre alguna vez con Color o con Escalera Real, lo que es muy improbable que ocurra ahora... 
6. Colocar las cartas de los dos jugadores en un arco, como si las tuvieras en la mano...
7. Poder jugar dos humanos en remoto...
8. Cualquier cosa que se te ocurra añadir a este juego de cartas, y seas capaz de programarlo, ya sea modificando las fórmulas de Excel o cambiando el código en VBA...

Algún día puede ser que me dedique a ello. De momento, prefiero dejar las cartas a un lado, pues ya le he dedicado más de 3 meses al diseño de este juego del Rabino y quiero hacer otras cosas...

Descarga un juego del Rabino en Excel

Descarga esta variante del Rabino, compatible con las versiones de escritorio desde Excel 2010 hasta Excel para Microsoft 365.

• Sites Google Drive: RABINO - PW10.xlsm

Las macros del archivo descargado están bloqueadas por defecto. Para desbloquear las macros debes modificar las Propiedades del archivo siguiendo estas instrucciones:

Las macros de Internet están bloqueadas de forma predeterminada en Office - Deploy Office | Microsoft Learn

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

Presiona el botón: Habilitar contenido cuando aparezca la ADVERTENCIA DE SEGURIDAD Las macros se han deshabilitado o se deshabilitó parte del contenido activo.

Las macros VBA no están protegidas, por lo que puedes analizarlas. Las hojas están protegidas con una contraseña que es fácil conocer, pues está guardada en VBA escrita en la constante: sContra.

ATENCIÓN: Se puede modificar este libro de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0

Más juegos de cartas en Excel

En este enlace encontrarás todos los juegos de cartas que he programado en Excel:

• cartas | #ExcelPedroWave

Me ayudarás si me indicas las erratas que encuentres y me digas qué mejoras le faltan a este juego...

Jugando al Rabino en Excel - Parte 9

🔝To translate this blog post to your language, select it in the top left Google box.

Parte 9 de un juego del Rabino

Esta es la novena parte de una serie de artículos con los que intento diseñar en Excel un juego de cartas con una variante especial del Rabino.

Al final de este artículo hay un enlace a todos mis juegos de cartas.

En esta Parte 9 explicaré:

♥️  Cuándo decide Excel acabar la partida.

♠️  Cómo elegir la carta comodín: Rabino o The Jolly.

♦️  Cómo ver u ocultar los puntos de cada jugador.

♣️  Qué falta por hacer para completar el desarrollo de este juego.

La principal novedad de esta entrega es que el motor del juego decide automáticamente cuándo acabar la partida, indicando qué jugador ha cerrado y los puntos de cada jugador, además de mostrar las cartas del jugador Rabino en Excel, que son las cartas de arriba ocultas durante la partida.

Vídeo con la Parte 9 del juego

En este vídeo verás una de las muchas partidas que he jugado contra el Rabino en Excel, y así probar el motor del juego.

Cuándo decide Excel acabar la partida

Esta variante del Rabino no la he diseñado en plan profesional sino en plan didáctico, aunque estoy intentando ser lo más fiel posible a la manera de jugar entre dos jugadores.

En esta Parte 9 ya se puede jugar una partida completa, y es el motor del juego el que decide si se cumplen las condiciones para acabar la partida, según las reglas del juego que están escritas en la hoja 'Ayuda'.

La nueva función: TestFinPartida, detecta si se puede acabar la partida en curso cerrando el primero de los dos jugadores que puede:

1) Cerrar con Escalera Real, asignando -100 puntos si las 10 cartas son del mismo palo y forman una sola escalera.

2) Cerrar con Color, asignando -25 puntos si las 10 cartas son del mismo palo y no están todas combinadas.

3) Cerrar con -10 puntos, si las 10 cartas están combinadas según las reglas del juego.

4) Cerrar con 1, 2 o 3 puntos, si hay 9 cartas combinadas y una carta sin combinar, esta carta debe ser un as (1), un dos (2) o un tres (3), asignando los puntos de la carta no combinada.

Al jugador que no ha cerrado se le asigna la suma de los puntos de las cartas sin combinar.

El jugador Rabino en Excel, con las cartas de arriba, avisa del cierre con un mensaje.

Al jugador con las cartas de abajo se le pregunta si cierra ya o si sigue jugando. Por ejemplo, para mejorar el cierre del jugador humano, en lugar de cerrar con 3, 2 o 1 puntos, podría intentar cerrar con -10 puntos. O también podría intentar cerrar con Color (-25 puntos) o con Escalera Real.

En el momento en que se decide finalizar la partida, se muestran las cartas de la fila de arriba del jugador Rabino en Excel, que estaban ocultas porque son las cartas de nuestro contrincante. Esto se consigue llamando a la macro: MostrarJugador2

La función TestFinPartida se apoya en varias celdas de la hoja 'Motor'.

Nuevas celdas en la hoja 'Motor':

• Celda B15 - miCartaMarcaPila: Vale 1 si el motor del juego ha elegido una carta de la pila. Vale 0 si ha elegido una carta del mazo oculto.

• Celda B17 - miFinJugador2: Fórmula con los puntos para tomar la decisión de cerrar el jugador 2: Rabino en Excel.

• Celda B18 - miFinJugador1: Fórmula con los puntos para tomar la decisión de cerrar el jugador 1: Usuario de Excel.

• Celda B20 - misPuntos2: Vale 1 si muestra los puntos del jugador 2.

• Celda B21 - misPuntos1: Vale 1 si muestra los puntos del jugador 1.

• Celda B22 - misPuntos0: Vale 1 si muestra los puntos del jugador 1 siempre y del jugador 2 cuando acaba la partida.

• Columna R: Fórmulas para averiguar si un jugador cierra con Color, con las 10 cartas del mismo palo.

• Columna S: Fórmulas para averiguar si un jugador cierra con Escalera Real.

• Columna T: Fórmulas para controlar el buen funcionamiento del motor del juego, si todas las celdas valen 0. Será erróneo si alguna celda es mayor que cero.

Cómo elegir la carta comodín

Antes de comenzar una partida se puede elegir la carta comodín: Rabino o The Jolly.

Haciendo clic en la figura de un comodín se cambia al otro comodín mediante la macro: ElegirRabino

Solamente se permite elegir el comodín antes de iniciar la partida, tal y como se muestra en la imagen animada de la derecha, pues durante la partida no se ve el comodín.

El cambio de comodín se hace en la celda N2 (miRabino) de la hoja 'Baraja'.

Cómo ver u ocultar los puntos

Haciendo clic en la celda BO1 con un cero (0) se ven u ocultan los puntos de cada jugador, llamando a la macro: VerPuntos

Los puntos de las cartas de arriba solamente se ven al finalizar la partida, para no dar pistas durante la partida de las cartas combinadas por el motor del juego para el jugador Rabino en Excel.

Qué falta por hacer

Para poder finalizar el diseño del juego aún falta bastante por hacer:

1. Guardar estadísticas de las partidas jugadas.
2. Obtener el ganador de una serie de partidas.
3. Ajustar y optimizar el motor del juego con el complemento Solver.
4. Corregir los defectos del juego y seguir mejorándolo.

Los dos primeros puntos los veremos en la próxima entrega, que será la última de este curso sobre el diseño de un juego de cartas en Excel. Los otros dos puntos los dejo para más adelante...

Descarga la Parte 9 de un Rabino en Excel

Descarga la Parte 9 de esta variante del Rabino, compatible con las versiones de escritorio desde Excel 2010 hasta Excel para Microsoft 365.

• Sites Google Drive: RABINO - PW9.xlsm

Las macros del archivo descargado están bloqueadas por defecto. Para desbloquear las macros debes modificar las Propiedades del archivo siguiendo estas instrucciones:

Las macros de Internet están bloqueadas de forma predeterminada en Office - Deploy Office | Microsoft Learn

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

Presiona el botón: Habilitar contenido cuando aparezca la ADVERTENCIA DE SEGURIDAD Las macros se han deshabilitado o se deshabilitó parte del contenido activo.

Las macros VBA no están protegidas, por lo que puedes analizarlas. Las hojas están protegidas con una contraseña que es fácil conocer, pues está guardada en VBA escrita en la constante: sContra.

ATENCIÓN: Se puede modificar este libro de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0

Más juegos de cartas en Excel

En este enlace encontrarás todos mis juegos de cartas programados en Excel:

• cartas | #ExcelPedroWave

Me ayudarás si me indicas las erratas que encuentres en este artículo, y si me comentas qué es lo que te gustaría ver en los próximos artículos.

Jugando al Rabino en Excel - Parte 8

🔝To translate this blog post to your language, select it in the top left Google box.

Parte 8 de un juego del Rabino

Esta es la octava parte de una serie de artículos con los que intento diseñar en Excel un juego de cartas con una variante especial del Rabino.

Al final de este artículo hay un enlace a todos mis juegos de cartas.

En esta Parte 8 explicaré:

♥️  Que ya se puede jugar una partida completa contra el motor del juego.

♠️  Que Excel ya decide automáticamente qué carta jugar, marcando en un marco amarillo una carta del mazo o de la pila de descartes.

♦️  Que el motor del juego también decide qué carta tirar a la pila de descartes.

♣️  Cómo saber qué cartas ha combinado el motor del juego.

Si ves esta imagen es que algo ha fallado. La conseguí mientras hacía pruebas para marcar la carta que ha decidido jugar el Rabino en Excel, obtenida por el motor del juego, que es una combinación del complemento Solver y de código VBA.

Durante el juego, cuando le toque jugar a las cartas de arriba quedará marcada la carta a jugar con un marco de color amarillo, y solamente será marcada una carta, que será la que hay que jugar.

El motor del juego decide automáticamente qué carta jugar, marcando en un marco amarillo una carta del mazo o de la pila de descartes. Y también decide qué carta tirar a la pila de descartes.

Vídeo con la Parte 8 del juego

En este vídeo verás un par de partidas completas, que he jugado contra el motor del Rabino en Excel.

A continuación explicaré lo que no he querido contar en este vídeo para no hacer espóiler.

Cómo jugar una partida completa

Esta variante del Rabino no la he diseñado en plan profesional sino en plan didáctico, aunque estoy intentando ser lo más fiel posible a la manera de jugar entre dos jugadores.

En esta Parte 8 he ocultado las cartas de arriba, para que no se sepa que mano tiene el Rabino en Excel, aunque aún sigo mostrando el valor de las cartas sin combinar, para hacer más didáctico el juego...

Ya no se muestra ningún cuadro de diálogo, cuando Solver intenta resolver la combinación de cartas, y el motor del juego marca la siguiente carta que jugará nuestro contrincante del Rabino en Excel.

He cambiado la llamada al complemento Solver de Excel para que no salga ningún mensaje cuando se alcanza alguno de los límites, de tiempo por ejemplo, que he fijado intentando resolver las combinaciones posibles de las cartas del jugador Rabino en Excel.

En la macro ResolverCartas he modificado estas instrucciones:

' Ejecuta el análisis

result = Application.Run("Solver.xlam!SolverSolve", True, "ShowTrial")

' Finaliza el análisis

Application.Run "Solver.xlam!SolverFinish", 1

Y he añadido esta nueva macro:

Function ShowTrial(Reason As Integer)

ShowTrial = 0

End Function

En esta página en inglés se explica el uso de esta función para que, en lugar de que Solver se detenga por cualquier motivo mostrando el cuadro de diálogo: Mostrar solución de prueba, ahora no lo muestre y continúe intentando resolver la combinación de las cartas, sin necesidad de interactuar con el usuario del juego:

• Excel Solver - SolverSolve Function | solver

También he cambiado las opciones de Solver, para intentar mejorar su rendimiento, pero aún hay que optimizar esos valores algo más, por lo que seguiré estudiando esta página en inglés:

• Excel Solver - SolverOptions Function | solver

Cómo decide el motor del juego qué carta jugar

El motor del juego ya decide automáticamente cuál es la próxima carta que jugará el Rabino en Excel, marcando en un marco amarillo una carta del mazo o de la pila de descartes. También decide automáticamente qué carta tirar a la pila de descartes.

AVISO: La carta marcada en amarillo se debe escoger obligatoriamente, y el juego no permite elegir otra carta que no sea la que ha marcado el motor del juego.

Para hacer más realista el juego, la carta marcada en amarillo tiene que moverla el jugador humano, pues no cambia automáticamente de un lugar a otro.

En esta imagen animada el motor del juego marca en amarillo el Rey (K) de tréboles♣️, para que sea robado de la pila de descartes. A continuación intenta resolver las posibles combinaciones de las 11 cartas, y acaba marcando el 7 de diamantes♦️, para que sea descartado y echado a la pila de descartes.

Para ello he añadido dos nuevas macros al módulo: modReglas

• ElegirCarta: Para decidir si el Rabino en Excel marca la carta del mazo o de la pila de descartes.

• MarcarCarta: Para marcar la carta que jugará el Rabino en Excel.

En la hoja 'Motor' he añadido algunas fórmulas para elegir y marcar la carta a jugar.

En la celda B12 se escribe la carta de la pila de descartes, para comprobar si combina con las otras 10 cartas del jugador 2, que es el Rabino en Excel.

En la celda F14 se comprueba si el valor de esa carta es igual al de alguna de las 10 cartas, en cuyo caso queda marcada.

En la celda G14 se comprueba si esa carta puede formar parte de una escalera con alguna de las 10 cartas, en cuyo caso queda marcada.

Si la carta de la pila de descartes no sirve para combinar con alguna de las 10 cartas, la carta de arriba del mazo será la que quedará marcada.

La carta marcada, sea del mazo o de la pila de descartes, será la que el jugador 2 robará para intentar combinarla con las otras 10 cartas.

Una vez combinadas las cartas, el motor del juego decidirá qué carta marcar, y la carta marcada habrá que echarla a la pila de descartes.

La fórmula que se ve en la imagen de arriba, de la celda Q14, es la que decide qué carta marcar, valiéndose del nuevo rango de celdas Q3:Q13, en el que se indica qué cartas no están combinadas y son candidatas a descartarlas.

Las fórmulas anteriores pueden variar sin previo aviso en las próximas entregas de las partes de este desarrollo del juego, siempre con la intención puesta en mejorarlo...

Qué cartas combina el motor del juego

Para saber qué cartas ha combinado el jugador Rabino en Excel, en la Parte 8 hay que ver el rango E3:E13 de la hoja 'Motor', donde están las cartas ordenadas según las combinaciones resueltas por el motor del juego.

Este procedimiento no será necesario cuando se muestren las cartas de la fila de arriba, en el momento en que se decida dar por finalizada la partida, lo que se verá en la siguiente entrega de este juego...

Qué falta por hacer

Para poder finalizar el diseño del juego aún falta bastante por hacer:

1. Cerrar la partida con Escalera Real, si todas las cartas están combinadas en una única escalera del mismo palo.
2. Cerrar la partida con Color, si todas las cartas son del mismo palo aunque no estén combinadas.
3. Decidir cuándo acaba la partida cualquiera de los dos jugadores.
4. Mostrar las cartas del jugador Rabino en Excel al acabar la partida.
5. Ordenar las cartas combinadas del jugador Rabino en Excel.
6. Guardar estadísticas de las partidas entre los dos jugadores.

Todo esto lo iremos viendo en las próximas entregas de las Partes de este curso sobre el diseño de un juego de cartas en Excel.

Descarga la Parte 8 de un Rabino en Excel

Descarga la Parte 8 de esta variante del Rabino, compatible con las versiones de escritorio desde Excel 2010 hasta Excel para Microsoft 365.

• Sites Google Drive: RABINO - PW8.xlsm

Las macros del archivo descargado están bloqueadas por defecto. Para desbloquear las macros debes modificar las Propiedades del archivo siguiendo estas instrucciones:

Las macros de Internet están bloqueadas de forma predeterminada en Office - Deploy Office | Microsoft Learn

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

Presiona el botón: Habilitar contenido cuando aparezca la ADVERTENCIA DE SEGURIDAD Las macros se han deshabilitado o se deshabilitó parte del contenido activo.

Las macros VBA no están protegidas, por lo que puedes analizarlas. Las hojas están protegidas con una contraseña que es fácil conocer, pues está guardada en VBA escrita en la constante: sContra.

ATENCIÓN: Se puede modificar este libro de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0

Más juegos de cartas en Excel

En este enlace encontrarás todos mis juegos de cartas programados en Excel:

• cartas | #ExcelPedroWave

Me ayudarás si me indicas las erratas que encuentres en este artículo, y si me comentas qué es lo que te gustaría ver en los próximos artículos.

Jugando al Rabino en Excel - Parte 7

🔝To translate this blog post to your language, select it in the top left Google box.

Parte 7 de un juego del Rabino

Esta es la séptima parte de una serie de artículos con los que intento diseñar en Excel un juego de cartas con una variante especial del Rabino.

Al final de este artículo hay un enlace a todos mis juegos de cartas.

En esta Parte 7 explicaré:

♥️  Cómo combina las cartas el motor del juego.

♠️  Cómo jugar una partida completa.

♦️  Cómo decidir qué carta jugar.

♣️  Qué falta por hacer para finalizar el diseño del juego.

Los tres últimos temas están explicado en el vídeo que acompaña a este artículo.

Esta es la imagen del fin de partida jugada durante la grabación del vídeo de la Parte 7. El jugador Pedro Wave (el usuario de mi versión de Excel) ganó la partida, cerrándola con -10 puntos, pues tenía todas las cartas combinadas. Sus cartas son las de abajo, estando ordenadas de mayor a menor, para poder calcular los puntos de las cartas que pudieran no estar combinadas. En este caso hay 6 cartas del mismo palo, formando escalera descendente de diamantes ♦️, y otras 4 cartas del mismo palo en escalera de corazones ♥️.

Sigo mostrando las cartas de arriba, que son las del jugador contra el que juego, el Rabino en Excel. Lo hago a propósito para mostrar cómo funciona el nuevo motor del juego que he añadido en esta fase del desarrollo de la Parte 7.

Las cartas de arriba han finalizado el juego con los 3 puntos del 3 de picas ♠️. El resto de cartas están combinadas por lo que son de 0 puntos. Lo más curioso es que las cartas no están ordenadas formando combinaciones, aunque realmente están combinadas: 5 cartas formando escalera de tréboles ♣️ y 4 cartas formando escalera de picas ♠️, con el rabino como si fuera el 10 de picas. Luego explico por qué no están ordenadas...

Vídeo con la Parte 7 del juego

En este vídeo verás la partida completa, que he jugado como ejemplo de lo que se puede hacer hasta ahora en la Parte 7 de esta fase de desarrollo del juego. Prácticamente será como se podrá jugar cuando finalice este diseño, por lo que es conveniente aprender cómo jugar a esta variante del Rabino en Excel.

Cuando veas este vídeo, comprobarás que no soy un buen jugador del Rabino. Y también dudo que sea un buen programador de juegos, pero estoy seguro que todo se aprende practicando, lo que te animo a hacer en cualquier momento del juego incierto de esta vida finita.

A continuación explicaré lo que no he querido contar en este vídeo para no hacer espóiler.

Cómo combina las cartas el motor del juego

Esta variante del Rabino no la he diseñado en plan profesional sino en plan didáctico, por lo que me he tomado ciertas libertades.

La primera libertad, fundamental desde esta Parte 7 y en adelante, es que uso herramientas propias de Excel para crear el motor del juego, con el que conseguir combinar las cartas de arriba del usuario: Rabino en Excel.

Y como adelantaba en el vídeo: ¡No lo he hecho programando macros VBA!

Y entonces: ¿Cuál es el motor del juego? ¡¡¡ El complemento Solver de Excel !!!

Si aún no conoces el complemento Solver será mejor que antes leas esto:

• Definir y resolver un problema con Solver - Soporte técnico de Microsoft

Resumiendo, y haciendo espóiler, o sea destripando el motor del juego, he usado el complemento Solver para determinar el valor mínimo de la celda que contiene la fórmula con la suma de los puntos de un jugador, después de combinar las cartas, cambiando el valor de otras celdas.

La siguiente imagen es el resultado de aplicar el complemento Solver:

La hoja 'Motor' sirve de motor del juego, valga la redundancia, y contiene bastantes fórmulas complejas que no voy a explicar aquí. Si tienes interés, pregúntame...

En la columna D están las posiciones de las 11 posibles cartas de cada jugador, identificadas con números del 1 al 11.

En la columna E están las cartas según las posiciones determinadas con los valores de la columna D.

Las columnas F a O contienen fórmulas auxiliares con las que determinar las posibles combinaciones de las cartas de un jugador, tanto con escaleras como con cartas del mismo valor.

En la columna P se obtiene los puntos de las cartas que no se han podido combinar.

El total de la suma de puntos del jugador 2, o sea del Rabino en Excel, se obtiene en la celda P14, denominada miSolver, con la fórmula: =SUBTOTALES(9;misPuntosCartas2)

Siendo el rango de celdas misPuntosCartas2: =Motor!$P$3:$P$13

Solver cambia automáticamente los valores de un grupo de celdas, llamadas celdas de variables de decisión, que en este motor del juego están en el rango D3:D13 denominado: miNumCartas2

Solver intenta cumplir 4 restricciones de esas celdas:

• miNumCartas2 = entero
• miNumCartas2 <= 11
• miNumCartas2 >= 1
• miNumCartas2 = Todos diferentes

O sea, que esas celdas sean números enteros del 1 al 11 y diferentes entre sí, sin importar su orden.

En este pantallazo están los parámetros de Solver definidos para el motor de este juego.

Se establece como objetivo la celda denominada miSolver: =Motor!$P$14, para que la fórmula que contiene sea el valor mínimo óptimo.

Los valores del rango de celdas miNumCartas2 son el resultado obtenido por el complemento Solver, con las posiciones de las cartas combinadas según las reglas del juego.

Se ha elegido como método para encontrar una solución: Evolutionary, ya que el solucionador evolutivo prácticamente no hace suposiciones sobre las relaciones entre las variables de decisión y la función objetivo y las restricciones. Aunque puede ser que encuentre una "buena" solución, pero no necesariamente la solución óptima, lo que es suficientemente bueno para nuestro motor de juego, que realmente busca una buena combinación de las cartas, ya que no es un jugador profesional, de momento...

Si quieres saber más sobre los tres tipos de métodos del complemento Solver, abre este enlace en inglés:

• Backgrounder - Genetic and Evolutionary Algorithms Versus Classical Optimization | solver

Motor del juego compatible

Para que el motor del juego sea compatible con todas las versiones de Excel, desde Excel 2010 hasta Excel para Microsoft 365, he tenido que sudar un poco...

Pero todo se ha resuelto leyendo esta página en inglés:

• Using Solver in Excel VBA - Avoiding Solver Reference Problems | peltiertech.com

Si escribes código convencional para ejecutar Solver solamente funcionará en tu computadora, y en cualquier computadora con las mismas versiones de Excel y Solver. ¿A que no queremos eso?

Para que Solver funcione en cualquier versión de Excel, no debe haber referencias a una versión concreta, lo que se consigue llamando al método: Application.Run

Este método permite ejecutar dinámicamente cualquier procedimiento de Solver, llamando al nombre del procedimiento entre comillas dobles, seguido de una lista separada por comas de los argumentos que se pasan al procedimiento, ordenados por posición.

El código está incluido en las macros y funciones del módulo: modMotor

• ActivarSolver: Activa y configura el complemento Solver.

• ConfigurarSolver: Configura el complemento Solver.

• ResolverCartas: Resuelve las combinaciones de las cartas de un jugador con el complemento Solver.

• CheckSolverIntl: Chequea si existe el complemento Solver en cualquier versión internacional de Excel.

• IsInstalled: Test si está instalado Solver.

• AddInInstall: Instala el complemento Solver.

He separado la activación del complemento Solver de la resolución del problema con Solver, con lo que solamente hay que llamarlo en dos ocasiones:

• La macro IniciarRabino llama a ActivarSolver, con lo que queda activado y configurado el complemento Solver.

• La macro CombinarCartas llama a ResolverCartas, con lo que ejecuta el complemento Solver, previamente configurado, cada vez que intenta encontrar las posibles combinaciones de las cartas del jugador Rabino en Excel.

Si no se alcanza una solución, en un tiempo prefijado por las opciones (SolverOptions) que veremos a continuación, aparece un mensaje de advertencia y el jugador presionará el botón Continuar o Detener, según le convenga:

NOTA: Cuando se configura Solver, se modifican sus opciones con esta llamada:

Application.Run "Solver.xlam!SolverOptions", 16, , 0.1, , , , , , 99, , , , , , , , , , , , 8

Lo que modifica, de momento y a falta de más pruebas, los siguientes valores en este juego:

• MaxTime: La cantidad máxima de tiempo (en segundos) que Solver empleará para resolver el problema. El valor es un número entero positivo definido a 16 segundos.

• Precision: Un número entre 0 (cero) y 1 que especifica la precisión con la que se deben cumplir las restricciones. El valor está definido a 0.1

• IntTolerance: Un número decimal entre 0 (cero) y 100 que especifica la tolerancia porcentual de optimalidad de enteros. El valor está definido a 99.

• MaxTimeNoImp: Cuando se utiliza el método de resolución evolutiva, la cantidad máxima de tiempo (en segundos) que Solver continuará resolviendo sin encontrar soluciones significativamente mejoradas para agregar a la población. El valor es un entero positivo definido a 8 segundos.

Los argumentos separados por comas y ocupan el lugar descrito en esta página en inglés:

• Excel Solver - SolverOptions Function | solver

En esta página hay más información del complemento Solver usado con VBA:

• Excel Solver - Using Solver from VBA | solver

Qué falta por hacer

Para poder finalizar el diseño del juego aún falta bastante por hacer:

1. Ocultar las cartas del jugador Rabino en Excel, que juega las cartas de arriba.
2. Decidir automáticamente que ese jugador robe una carta de la pila de descartes o del mazo de cartas.
3. Saber qué carta descartar automáticamente.
4. Ordenar las cartas combinadas por el motor del juego para el jugador Rabino en Excel.
5. Decidir cuándo puede y quiere acabar la partida cualquiera de los dos jugadores.
6. Guardar estadísticas con los jugadores que van ganando las series de partidas.

Todo eso lo iremos viendo en las siguientes Partes de este curso sobre el diseño de un juego de cartas en Excel.

Descarga la Parte 7 de un Rabino en Excel

Descarga la Parte 7 de una variante del Rabino, compatible con las versiones de escritorio desde Excel 2010 hasta Excel para Microsoft 365.

• Sites Google Drive: RABINO - PW7.xlsm

Las macros del archivo descargado están bloqueadas por defecto. Para desbloquear las macros debes modificar las Propiedades del archivo siguiendo estas instrucciones:

Las macros de Internet están bloqueadas de forma predeterminada en Office - Deploy Office | Microsoft Learn

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

Presiona el botón: Habilitar contenido cuando aparezca la ADVERTENCIA DE SEGURIDAD Las macros se han deshabilitado o se deshabilitó parte del contenido activo.

Las macros VBA no están protegidas, por lo que puedes analizarlas. Las hojas están protegidas con una contraseña que es fácil conocer, pues está guardada en VBA escrita en la constante: sContra.

ATENCIÓN: Se puede modificar este libro de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0

Más juegos de cartas en Excel

En este enlace encontrarás todos mis juegos de cartas programados en Excel:

• cartas | #ExcelPedroWave

Me ayudarás si me indicas las erratas que encuentres en este artículo, y si me comentas qué es lo que te gustaría ver en los próximos artículos.