Macro que calcula combinaciones para la Loteria Primitiva

Esta macro te permitirá calcular combinaciones de números para la lotería primitiva.

Por supuesto que no se garantiza ninguna combinación ganadora, jajajaja. De hecho, si ganas la primitiva con este programa, sólo te pido que hagas un comentario, tal es mi fé en el cálculo.

Pero te sirve si nunca te decides por qué numeros apostar. Y te sirve más si tu interés es aprender algo de macros. En ésta podrás estudiar cómo se accede a la una hoja de cálculo y como puedes recorrer, leer el contenido y escribir en sus celdas. Un muy sencillo ejemplo, a la vez que didáctico.

Recuerda configurar adecuadamente la seguridad de macros para poder ejecutar las incluidas en el fichero de ejemplo, que puedes descargar desde aqui: Loteria_Primitiva.zip.

El código de la macro:

Sub LoteriaPrimitiva
Dim i
Dim j
Dim numero, encontrado, Celda
Hoja = ThisComponent.Sheets(0) ' asigno la primera hoja a una variable
For i = 1 To 7
Celda = Hoja.getCellByPosition(1,i) ' asigno la celda a una variable
Do
encontrado = False
numero = int(rnd()*49) + 1 ' calcula un valor aleatorio
For j = 1 To i
If numero = Hoja.getCellByPosition(1,j).getValue() Then ' lee otras
encontrado = True ' el numero ya existe en las otras !!!
End If
Next j
Loop Until (encontrado = False)
Celda.setValue(numero) ' inserta el número en la celda
Next i End Sub

7 comentarios

Comentario De: christian [Visitante]

hola, muy bueno tu aporte, pero aparece el error 424 en tiempo de ejecución, se requiere un objeto. podrias ayudar con esto, gracias y slds.

29.07.14 @ 20:57 Reply to this comment
Comentario De: [Miembro]

Hola Christian. Es posible que precise declarar la variable Celda. Revisa el código, donde he corregido una de las líneas de las declaraciones.

30.07.14 @ 00:03 Reply to this comment
Comentario De: ANTONIO [Visitante]  

me he sacado la primitiva utilizando la combunacion que me dio este macro, ¡¡¡¡¡¡GRACIASSSSSS¡¡¡¡¡¡

04.06.15 @ 20:15 Reply to this comment
Comentario De: [Miembro]

Antonio, no vale si no es cierto.

Y si es cierto, espero unas cervezas bien frias :)

05.06.15 @ 00:16 Reply to this comment
Comentario De: Jessica [Visitante]

Hola, como puedo añadir los resultados que han ido apareciendo en la Primitiva? Y así poder descartar esos resultados que imagino que es casi imposible que vuelvan a aparecer las combinaciones ganadoras. Gracias!

07.04.18 @ 21:33 Reply to this comment
Comentario De: Fely [Visitante]

Como puedo ganar la primitiva

Comentario De: Roberto [Visitante]

Saludos
Como se hace un generador de reduccion ya sea para la Loteria de Primitiva Euromillon o Gordo de la Primitiva
ya que cualquier pagina o programa tiene limitado el numero de eleccion digamos todos usan 20 numeros para hacer la reduccion yo quiero usar entre 32-33 numeros y casi ninguna pagina hace esa reduccion son muy limitados me puede orientar como hacer un macro que haga un generador de reduccion para asi tener una mejor combinacion.
Gracias por su tiempo y hasta otra oportunidad

30.12.19 @ 04:58 Reply to this comment


Form is loading...