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

4 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 @ 18:57
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.

29.07.14 @ 22:03
Comentario De: ANTONIO [Visitante]  

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

04.06.15 @ 18:15
Comentario De: [Miembro]

Antonio, no vale si no es cierto.

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

04.06.15 @ 22:16


Form is loading...