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
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.
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.
me he sacado la primitiva utilizando la combunacion que me dio este macro, ¡¡¡¡¡¡GRACIASSSSSS¡¡¡¡¡¡
Antonio, no vale si no es cierto.
Y si es cierto, espero unas cervezas bien frias :)
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!
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