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
Dim encontrado
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