|
Si
eres aficionado al juego de la primitiva,
deja que Microsoft Excel te ayude a hacer la
combinación ganadora, simplemente pulsando
un botón.
Deja
que Microsoft Excel te ayude a rellenar la
primitiva, con solo pulsar un botón.
Efectivamente podemos crear una macro que
cambie los números de la primitiva cada vez
que pulsemos sobre un botón, para ello
utilizaremos una hoja de cálculo.
Lo
primero que vamos a hacer es crear el botón,
de la siguiente forma:
-
Escribimos
en una celda, por ejemplo ¡
Primitiva ! y ahora convertiremos
este texto en una imagen.
-
Seleccionamos
la celda donde acabamos de escribir y
pulsamos a la vez las teclas Shift y el
menú Edición, y finalmente sobre
Copiar imagen.
-
Aparecerá
una pantalla en la que debemos activar
las opciones "Como en
pantalla" y "Mapa de
bits" y pulsamos el botón Aceptar.
|
|
-
Ahora
nuevamente con la tecla Shift
pulsada hacemos clic en el menú
Edición y luego sobre pegar
imagen, y ahora el texto que teníamos
se habrá convertido en una
imagen.
|
|
-
Ahora
vamos a crear la macro para que cambie
los números cada vez que pulsemos el
botón ¡Primitiva!
-
Seleccionamos
las seis primeras columnas de nuestra
hoja de cálculo y escribimos en la
parte superior =ENTERO(ALEATORIO()*49+1)
y pulsamos a la vez las teclas CTRL +
Intro veremos como aparecen los números
en cada casilla, de la una a la seis.
|
|
Aún
no está todo ya que con esto se
podrían repetir los números, y
para que esto no ocurra debemos
crear un módulo de visual basic,
pero no te asustes es muy sencillo y
luego solo tienes que copiar el código
que te ponga yo aquí.
Para
abrir el módulo de Visual Basic
pulsa las teclas ALT + F11 y se
abrirá el Editor de visual basic
que nos permitirá crear un módulo,
de la siguiente forma.
|
-
Ahora
en este punto abrimos un libro nuevo y
luego abrimos el Editor de Visual Basic.
Una vez abierto el Editor de Visual
Basic, hacemos clic en el menú
Insertar, y luego sobre Módulo, se
abrirá una pantalla en blanco en la que
escribiremos el código siguiente:
|
Copia
este código y pégalo en tu módulo
Sub
primitiva()
Dim z As Integer
Dim y As Integer
Dim Combinacion(1 To 6) As Integer
y = 1
Randomize
Combinacion(y) = Int((49 * Rnd) + 1)
Range("A" & y).Value =
Combinacion(y)
For y = 2 To 6
Randomize
Combinacion(y) = Int((49 * Rnd) + 1)
For z = 1 To y - 1
If Combinacion(y) = Combinacion(z)
Then
z = y - 1
y = y - 1
End If
Next z
Range("A" & y).Value =
Combinacion(y)
Next y
End Sub
|
Ahora
cerramos el Editor de Visual Basic
donde acabamos de escribir el código
y vamos a la hoja de Excel, allí
pulsamos simultáneamente las teclas
Alt + F8
Marca
el nombre de la Macro que has creado
y haces clic en ejecutar, verás
como cambia la combinación de números.
Cada
vez que quieras rellenar un boleto
solo tendrás que pulsar el botón
Primitiva, que creaste al comienzo y
los números cambiarán.
Guarda
los dos libros de Excel y la próxima
vez que vayas a rellenar un boleto,
solo tendrás que abrirlos y pulsar
el botón Primitiva
|
Imprimir
|
