Practica No. 6 Autenticación y Solución de Ecuaciones Cuadráticas

Tutorial Autenticación y Solución de Ecuaciones Cuadráticas

En la mayoría de las veces cuando una persona ingresa por primera vez a una empresa, a ésta se le otorga una cuenta de usuario para acceder a los sistemas informáticos propiedad de dicha empresa.

La cuenta de usuario esta formada por un nombre de usuario y una contraseña, así que a través del presente tutorial vamos a realizar una simulación de autenticación para que el usuario pueda acceder a los programas propiedad de la empresa empleando Excel 2013.

La simulación va a consistir en que si el usuario es el propietario de dicha cuenta, entonces tendrá el derecho de usar el programa que resuelve ecuaciones cuadráticas, así que iniciamos sin más preámbulo.

Crea la siguiente "interface de usuario" en las celdas que se indican (se trata de texto, y un botón que permitirá validar los datos del usuario):

Observa bien, el logotipo del IPN se incorporo con la opción "Imágenes" del comando "Ilustraciones" de la ficha "Insertar".      El texto "Instituto Poli...." se incorporo mediante la opción "WordArt" del comando "Texto" de la ficha "Insertar" con relleno de texto: "Rojo oscuro", con un tamaño de letra de 24 puntos y tipo de letra "Century Gothic" (la pantalla que mostré previamente tiene un Zoom de 170%).

Los textos "Pantalla de...", "Usuario:" y "Contraseña:" tienen tipo de letra "Century Gothic", tamaño de 11 puntos.     A las celdas D6 y D8 les colocamos un borde de cuadro grueso.

El botón "Validar usuario" lo incorporaremos mediante la opción "Botón de comando (control ActiveX)", primer ícono de la 3a. fila de iconos, del grupo "Controles" de la cinta "Desarrollador" (en caso de que la tengas deshabilitada, recurre a la opción "Opciones" del menú "Archivo" y 

elige la opción "Personalizar cinta de opciones" y finalmente del panel de la derecha habilita la cinta "Desarrollador", paloméala!!! y listo).

Trazamos el botón (como si estuviéramos en Paint) y tendrá el siguiente aspecto:

Ahora, procedemos a cambiar algunas características de este botón, primero cambiamos el texto que esta mostrando por el siguiente texto: "Validar usuario", mediante el comando "Propiedades" del grupo "Controles" de la cinta "Desarrollador", tal como se muestra enseguida:

precisamente en la propiedad "Caption" es donde cambiamos el texto, y el Font (tipo de letra) elegimos "Century Gothic", con tamaño de 8 puntos.

Ahora, programaremos al botón, es decir asociaremos programación de VBA a este botón, para ello simplemente damos doble clic al botón (o también oprimir Alt+F11) y aparecerá la ventana principal del ámbito de programación de VBA, tal como la que se observa enseguida:

Como estarás observando, en la barra de título nos indica Código correspondiente a la Hoja1 y la segunda flecha roja nos indica el símbolo cursor el cual nos indica donde introducir el código correspondiente a la programación que deseamos, así que teclea precisamente en ese lugar el siguiente código de programación de VBA (Visual Basic Application):

Private Sub CommandButton1_Click()
   CommandButton1.Width = 106.5
   CommandButton1.Height = 24
   CommandButton1.Font.Size = 8
   If Range("D6").Value = "carlos" Then
      If Range("D8").Value = "gengiskhan" Then
         Hoja2.Visible = xlSheetVisible
         CommandButton1.Enabled = False
         MsgBox ("Usuario registrado, puedes usar la siguiente hoja")
      Else
         MsgBox ("contraseña invalida, intenta de nuevo!!!")
      End If
   Else
      MsgBox ("usuario no registrado, intenta de nuevo!!!")
   End If
End Sub

Te explicare el código anterior.    

(1) La instrucción "Private Sub CommandButton1_Click() es la cabecera de una subrutina (programa que realiza algunas acciones) que se ejecuta precisamente cuando se hace clic al botón "CommandButton1" (botón de Validar usuario)

(2) Las instrucciones: CommandButton1.Width = 106.5
                                 CommandButton1.Height = 24
                                 CommandButton1.Font.Size = 8
definen características del botón, ancho (width) de 106.5 puntos, altura (height) de 24 puntos y tamaño de letra (Font.Size) de 8.

(3) Las instrucción 
      If Range("D6").Value = "carlos" Then
               :
               :  (acciones a ejecutarse cuando es verdadero)
               :
      Else
               : 
               : (acciones a ejecutarse cuando es falso)
               :
      End If 

Nos permite validar el contenido de la celda D6 (la expresión Range("D6").value permite acceder al contenido de la celda especificada), si contiene el nombre de usuario "carlos", si es así entonces la expresión lógica es verdadera, por lo que se ejecutan las acciones delimitadas por las palabras Then (significa "entonces") y Else (significa "de otro manera").  En caso de que la expresión lógica sea falsa, se ejecutarán las acciones delimitadas por las palabras "Else" y "End If" (significa "Fin del Si").

El segundo If lo empleamos dentro de las acciones cuando la expresión lógica del primer If es verdadera, claro esta,  si el nombre de usuario es correcto entonces procedemos a validar la contraseña de lo contrario se envía un mensaje "usuario no registrado, intenta de nuevo!!!", la instrucción "MsgBox" (Message Box significa Caja de texto) permite enviar un mensaje a la pantalla de la PC.

La 2a. instrucción If permite validar la contraseña en caso de que la expresión lógica sea verdadera (celda D8 contiene "gengiskhan") se le permite al usuario emplear el programa que resuelve ecuaciones cuadráticas de lo contrario envía el mensaje ""contraseña invalida, intenta de nuevo!!!".

Las siguientes instrucciones se ejecutarán siempre y cuando el nombre de usuario y la contraseña sean correctas:

         Hoja2.Visible = xlSheetVisible
         CommandButton1.Enabled = False
         MsgBox ("Usuario registrado, puedes usar la siguiente hoja")
         

La instrucción "Hoja2.Visible = xlSheetVisible" permite habilitar la hoja numero 2, que es la que contiene el programa para resolver ecuaciones cuadráticas, es decir se hace visible para que el usuario pueda accederla.

La instrucción "CommandButton1.Enabled = False", permite deshabilitar el botón "Validar usuario", es decir ya no lo podrá usar el usuario.

La instrucción "MsgBox ("Usuario....." envía un mensaje a la pantalla de la PC.


El código introducido deberá mostrarse como sigue:

Ahora, regresamos al ambiente de Excel empleando la opción "Cerrar y volver a Microsoft Excel" del menú "Archivo".



Programa para resolver ecuaciones cuadráticas.

Ahora añadimos una Hoja nueva (hacer clic en el pequeño botón circular "+", se encuentra en la parte inferior, exactamente a un lado del rótulo Hoja1), es decir crearemos la Hoja2, y tecleamos la siguiente información:

Observa, las celdas B5, D5 y F5 son los valores que se deberán de teclear para definir la ecuación cuadrática ha resolver.

El botón ya esta tratado y simplemente nos vamos al ambiente de programación, ya sea le des doble clic al botón u oprime las teclas Alt + F11, tecleamos el siguiente código, sólo asegúrate que en el panel de la izquierda efectivamente este seleccionada la Hoja2:

Cabe mencionar que la fórmula empleada trae consigo una raíz cuadrada, la cual no deberá tener una cantidad de subradical negativa, por lo que deberemos de validar esta cantidad, por ello se calcula la cantidad subradical:

    subradical=(Range("D5").value)^2-4*Range("B5").value*Range("F5").value

y con la instrucción IF evaluamos si es negativa (subradical < 0), en caso de ser negativa se envía un mensaje a la pantalla de la PC indicando que la ecuación definida no tiene solución, de lo contrario se calculan las dos raíces reales (celdas I7 e I9), 

Bien, casi estamos listos para probar la programación que hemos definido, sin embargo en el código de autenticación del usuario se emplearon las instrucciones:

          Hoja2.Visible = xlSheetVisible (hace visible la Hoja2)
          CommandButton1.Enabled = False (deshabilita el botón)

la 1a. permite hacer visible la Hoja2 al usuario, y la 2a. deshabilita el botón "Validar usuario", por ello necesitamos realizar las dos instrucciones que se contraponen a estas dos, es decir:

           Hoja2.Visible = xlSheetHidden   (oculta la Hoja2)
           CommandButton1.Enabled = True (habilita el botón)

Estas instrucciones deberán de ejecutarse antes de la programación que hemos definido, para ello empleamos la subrutina Workbook_Open(), esta subrutina ejecuta su contenido cuando abrimos el archivo Excel automáticamente.   Para definir esta subrutina debemos de estar en el ámbito de programación y en el panel de la izquierda debe de aparecer el texto: ThisWorkBook, el cual deberás de seleccionarlo y en el panel de la derecha del menú (General) elige la única opción que hay: Workbook, tal como aparece enseguida: 
        

en automático deberá de aparecer el siguiente código (cuerpo de la subrutina):

y dentro de ésta subrutina tecleamos las instrucciones que se comentaron anteriormente, y además las instrucciones que nos permitirán inicializar los datos que manipularemos en ambos programas, mostrándose como sigue:

y aprovechamos de estar aquí para dar de alta otra subrutina, la cual nos permitirá deshabilitar el ícono "+" de "Hoja nueva", es decir evitar que el usuario añada hojas nuevas.    Elige del menú superior izquierdo (Open) la opción NewSheet, tal como se muestra enseguida:

y en automático aparecerá el "cuerpo" de esta subrutina, en la cuál teclea el siguiente código:

Application.DisplayAlerts = False
ActiveSheet.Delete
MsgBox "Lo siento, la opción <<Añadir hojas nuevas>> no está permitida"

la instrucción "MsgBox "Lo siento, ...." deberá de estar en un sólo renglón, debiéndose mostrar como sigue:

Ahora si, ya estamos listos para probar la programación, pero antes que todo debemos de salvar nuestro archivo, recuerda Excel le asigna a los archivos una terminación de "xlsx", sin embargo por el hecho de haber utilizado el lenguaje Visual Basic Application debemos de salvar el archivo de una forma muy particular y esta es "Libro de Excel habilitado para macros (*.xlsm)", opción que deberás de elegir en el menú de la caja de texto de "Tipo:" al momento de salvar el archivo, tal como se muestra enseguida:

Al teclear el nombre del archivo, no necesitas teclear la extensión o terminación (xlsm), Excel la asigna en automático (siempre y cuando hayas elegido la opción mostrada arriba).

Como acción final, haz doble clic sobre el texto "Hoja1" (parte inferior izquierda) que es el nombre de la hoja y reemplazalo por "Autenticación" y a la Hoja2 reemplaza su texto por: "Ec Cuadrática", tal como se muestra enseguida:

Después de este cambio salvamos el archivo y nos salimos de Excel.

Al volver a abrir este mismo archivo (autenticacionEcCuadratica.xlsm), aparecerá un botón rectangular que indica: "Habilitar contenido" el cuál deberemos de oprimir antes de cualquier cosa, ¿ok?, tal como se muestra enseguida:

y asegúrate de estar en la hoja "Autenticación".

La hoja Autenticación deberá mostrarse como sigue:

Observa bien, no aparece la hoja "Ec Cuadrática", éste sera visible siempre y cuando el usuario y la contraseña sean correctas.   Procedemos a introducir el usuario correcto y la contraseñas inválida:

ahora, usuario y contraseña correctos:

Como estarás observando, al introducir el usuario y la contraseña correctos suceden dos cosas: (1) Aparece la hoja "Ec Cuadratica" (para ser accesada) y (2) El botón "Validar usuario" queda deshabilitado (queda inutilizado).

Entonces nos vamos a la hoja "Ec Cuadratica", e introducimos los valores  1, 8 y 15, en las celdas B5, D5, y F5 respectivamente y haz clic en el botón "Resolver ecuación" y se obtendrá:

Ahora introducimos: 3, 5, y 6 en las celdas correspondientes y obtenemos:

Observa bien, con los valores especificados la ecuación carece de solución, y además las celdas de X1 y X2 quedan vacías.

Hemos terminado, sin embargo vale la pena decirte que el código de programación que hemos incorporado en nuestro archivo de Excel (autenticacionEcCuadratica.xlsm) podemos ocultarlo para que nadie se lo fusile o simplemente no queremos que vean nuestro código, por ello hacemos clic derecho sobre el texto  "Microsoft Excel Objetos" en el ambiente de programación de VBA, y elegimos la opción: "Propiedades de VBAProject..." tal como se muestra enseguida:

debiendo aparecer la siguiente ventana:

y en la pestaña "Protección", habilita la opción: "Bloquear proyecto para visualización", e introduce una contraseña y la confirmas, y al final oprime el botón "Aceptar" y enseguida guarda el archivo y salte de Excel, y vuelve a entrar a Excel, y enseguida verifica si efectivamente Excel nos oculto el código.

Esto ha sido todo por el momento, espero que todo este menjurje les sea de utilidad, hasta la próxima...

Practica No. 4 - Graficando dos funciones

Tutorial "Trazo de gráficas"

A través del presente tutorial te mostraré el como trazar dos funciones en un sólo gráfico, y empezamos.

Las gráficas a trazar son:

Teclea los siguientes datos (respeta las ubicaciones):

Quizá te preguntarás como diablos introduzco la potencia a la "x" y el subindice "10" del log, pues esto lo consigues habilitando la opción "Superíndice" y/o "Subíndice" de la sección "Efectos" de la opción "Formato de celdas" del comando "Formato" del grupo "Celdas" de la cinta "Inicio", tal como se muestra enseguida:

y no olvides capturar los datos de la columna "valores para x", es decir en la celda B5 introduce el valor -10 y la celda B6 el valor -9.75, como ya te habrás dado cuenta estamos dando un intervalo de 0.25, así que seleccionamos ambas celdas (B5 y B6) y arrastramos desde la esquina inferior derecha (cruz negra "flaca") hacia las celdas inferiores hasta llegar al valor de 3, tal como se muestra enseguida:

Ahora procedemos a introducir las fórmulas que representen a ambas funciones, en la celda C5 teclea la fórmula que corresponde a la función f(x):

                                              =3^B5

recuerda para teclear el símbolo "circunflejo (^)" , debes de oprimir la tecla "alt gr" dejándola oprimida y con otro dedo oprime dos veces la tecla que esta a un lado de la letra ñ (eñe) y aparecerán dos circunflejos, pues sencillamente borra uno y listo.      Ahora en la celda D5 teclea la fórmula que corresponde a la función g(x):

                                       =B5*LOG10((1/3)^B5)

Enseguida copia ambas fórmulas hacia las celdas de abajo, selecciona a ambas y haz clic sostenido en la parte inferior derecha (cruz negra flaca) y arrastra hasta el valor 3 de x, o simplemente da doble clic y listo, deberá mostrarse algo semejante a lo siguiente:

                    

             
Bien, ahora procedemos a la graficación, cabe señalar que Excel es capaz de graficar cualquier función Matemática a través del comando: "Gráfico de dispersión (x,y) o de burbujas".

Selecciona todos los valores de las columnas "valores para x" y la función f(x) y elige la opción "dispersión con líneas suavizadas" del comando "Gráfico de dispersión (x,y) o de burbujas" y deberás de obtener algo muy semejante a lo siguiente:

Ahora incorporamos a la función g(x) en el gráfico ya existente, y para ello elegimos el comando "Seleccionar datos" del grupo "Datos" de la cinta "Diseño" del menú "HERRAMIENTAS DE GRÁFICOS", tal como se muestra enseguida:

debiendo mostrar la siguiente ventana:

La serie "Series1" corresponde a la función f(x) que se ha graficado, y cambiaremos su nombre a f(x), para ello hacemos clic en el botón "Modificar" apareciendo de inmediato la ventana para realizar el cambio, por lo que reemplazamos el texto "Series1" por "f(x)", tal como se muestra enseguida:

y hacemos clic en el botón "Aceptar", regresamos a la ventana anterior, y ahora hacemos clic en el botón "Agregar" ya que incorporaremos los datos de la función "g(x)", apareciendo la siguiente ventana:

en la caja de texto "Nombre de la serie:", tecleamos: el nombre de la segunda función: g(x), ahora nos toca agregar los valores X de la serie, simplemente haz clic dentro de esta caja de texto e inmediatamente selecciona los valores de la columna "valores para x" y se incorporarán automáticamente, tal como se muestra enseguida:

Ahora, colócate en la caja de texto "Valores Y de la serie:" y borra los caracteres contenidos (={1}), y selecciona los valores de la columna de la función g(x), la ventana finalmente deberá mostrarse como sigue:

como ya lo estarás constatando, aparece de inmediato el trazo de la segunda función dentro del gráfico existente, y para finalizar damos clic en el botón "Aceptar" y listo hemos terminado.

Espero te sea de utilidad todo este embrollo, nos vemos para la próxima....

Practica No. 3 Factura

Tutorial - Factura

El presente tutorial nos permitirá conocer el uso de las funciones buscarv y concatenar.  El ejemplo consiste en crear la factura correspondiente de las compras realizadas por parte de clientes, como constatarás es una simulación o más bien intento acercarme a lo que realmente es facturación, pero en fin esto es totalmente un ejemplo de índole didáctico.     Captura las siguientes tablas de datos:

Las columnas  "importe", "descuento", "importe parcial", "iva" e "importe a pagar", las iremos llenando, e iniciamos con la columna "importe", la cual requerimos el precio unitario del artículo para multiplicarlo con la cantidad adquirida, teclea en la celda F3 la siguiente fórmula:

                =E3*BUSCARV(D3,$B$16:$D$20,2,FALSO)

de donde la celda E3 tiene la cantidad y la función BUSCARV nos trae el precio unitario de la tabla "Artículos/precio unitario" y enseguida copiamos ésta fórmula hacia las celdas de abajo, obteniendo el resultado siguiente:

ahora nos pasamos a la columna "descuento", para calcular el descuento debemos de indagar el porcentaje de descuento de la tabla "Tipos de clientes" usando el Tipo de cliente para acceder a éste, por ello empleamos la siguiente fórmula:


                =F3*BUSCARV(C3,$B$10:$C$12,2,FALSO)

De donde F3 es el importe, C3 es el Tipo de cliente y $B$10:$C$12 es la tabla de Tipo de Cliente que nos proporciona los descuentos a aplicar, copiando la fórmula hacia las celdas inferiores, se tiene:

Para las columnas "importe parcial", "iva" e "importe a pagar", empleamos las siguientes fórmulas, respectivamente:

                        =F3-G3          =H3*0.16         =H3+I3

Obteniendo, los resultados siguientes:

Finalmente, colocaremos la siguiente fórmula en la celda G17, que nos permite acceder al nombre completo del cliente:

 =CONCATENAR(BUSCARV(F17,E10:G14,2,FALSO)," ",BUSCARV(F17,E10:G14,3,FALSO))

                               

De donde la 1a. función BUSCARV nos trae consigo el nombre del cliente y la 2a. función BUSCARV nos trae el apellido del cliente que se ha definido en la celda F17, y la notación " " es simplemente definir un espacio; la función CONCATENAR simplemente une estas tres cadenas de texto, la siguiente imagen nos muestra el nombre del cliente con clave 1109:

 
Enseguida, emplearemos la siguiente fórmula para acceder al artículo, para ello empleamos la función BUSCARV de manera anidada, en la celda G17 tecleamos:
       =BUSCARV(BUSCARV(F17,B3:D7,3,FALSO),B16:D20,3,FALSO)

observa bien, la función BUSCARV más interna nos trae consigo la clave del artículo a partir de la Clave de cliente (F17), y ésta es empleada en la función BUSCARV externa, precisamente para acceder al nombre del artículo, como se muestra enseguida:

Ahora, la siguiente fórmula nos permitirá acceder al importe a pagar a partir de la Clave de cliente (F17), introdúcela  en la celda  I17:

                   =BUSCARV(F17,B3:J7,9,FALSO)
y finalmente la siguiente fórmula nos permite traer el correo electrónico a partir de la Clave de cliente, introdúcela en la celda J17:

                   =BUSCARV(F17,E10:H14,4,FALSO)


teniendo la "factura" completa:

y hemos terminado, espero te haya sido de utilidad, nos vemos en la próxima...

Practica No.2 - Simulación del lanzamiento de un dado (Juego del cubilete)

Practica No. 2 - Simulación del lanzamiento de un dado.

A través del presente tutorial te iré guiando para crear la simulación de lanzar un dado a través de Excel 2013.    Este "juego" lo elabore pensando en el juego del cubilete que mi padre jugaba en sus años mozos, ya hace muchos años y se practicaba en las cantinas de ese entonces (ahora llamadas Bares o Antros).

Para darnos una idea, les muestro las 6 diferentes caras que muestra un dado al ser lanzado:

En Excel se tiene la función "Aleatorio.entre(inferior, superior)", la cual nos permite generar números aleatorios cuyo valor comprende el numero inferior y el numero superior especificado), para que te des cuenta de ello, teclea la siguiente fórmula en cualquier celda que se te pegue la gana:

                          =ALEATORIO.ENTRE(1,6)

ya que la hayas capturado, por favor ahora oprime la tecla "F9" varias veces, y observa bien, el número irá cambiando aleatoriamente mostrando únicamente valores desde el 1 hasta el 6, en otras palabras se esta "simulando" el lanzamiento de un dado.

Ahora bien, vamos a preparar el "escenario" pertinente para esta situación.  En la siguiente imagen se muestra la cara del dado sin puntos negros:

Te sugiero seleccionar las columnas B, C y D y haz clic derecho del Mouse y del menú contextual que aparece elige la opción "Ancho de celda" y asigna el valor de 6, tal como se muestra enseguida:

y ahora, haz lo mismo con las filas 2, 3 y 4, es decir selecciónalas y haz clic derecho del Mouse y del menú contextual elige la opción "Alto de fila" y asigna el valor de 30.

y finalmente, selecciona el rango B2:D4, y elige del comando Bordes, que se encuentra en el grupo "Fuente" de la cinta "Inicio" la opción "Todos los bordes" y enseguida de la misma forma aplica "Borde de cuadro grueso", debiéndose tener lo siguiente:

Ahora, en la celda A2 teclea la fórmula:  

                                =ALEATORIO(1,6)

A manera de prueba, oprime la tecla F9 varias veces y deberás de observar los diferentes números que aparecerán (obviamente del 1 al 6) en la celda A2, tal como se muestra enseguida:

Bien, estamos en condiciones de emplear las fórmulas en Excel  que nos permitirán simular las caras del dado al ser "lanzado".

Iniciaremos con la fórmula más simple, observa bien la celda C2, para que aparezca un punto negro en ella, deberá de aparecer el numero  6 en la celda A2, teclea la fórmula siguiente en la celda C2:

                  =SI(A2=6,".","")

La interpretación de la fórmula es Si la celda A2 es igual a 6, entonces coloca el punto, de lo contrario no pongas nada.    Para comprobar, oprime la tecla F9 varias veces, y notaras que cuando "sale" el 6 aparecerá el "punto" negro, te sugiero le des mayor tamaño al contenido de la celda A2, de tal forma que el punto negro sea más notorio, como se muestra enseguida:

Observa bien, aumentamos a 48 puntos el tamaño del contenido de la celda C2 y lo centramos (flechas rojas).

Ahora colocaremos la misma fórmula que utilizamos en la celda C2, en la celda C4, oprimiendo la celda F9 varias  y al obtener de nueva cuenta el 6, se obtendrá lo siguiente:

Espero que ya hayas comprendido, porque ahora colocaremos la fórmula para la celda B2, observa bien, para que aparezca el  punto negro en esta celda, deberá de aparecer en la celda A2 el número 2, o el 3, o el 4, o el 5, o el 6 (puedes corroborarlo con la 1a. imagen que coloque en este tutorial), por lo que la fórmula a teclear es:

 =SI(A2=2,".",SI(A2=3,".",SI(A2=4,".",SI(A2=5,".",SI(A2=6,".","")))))

Esta misma fórmula podemos modificarla empleando la función "O", siendo:

                         =SI(O(A2=2,A2=3,A2=4,A2=5,A2=6),".","")

y también si deseamos optimizar esta misma fórmula, en lugar de preguntar si la celda A2 es igual a 2 o igual a 3 o igual a 4 o igual a 5 o igual a 6, pues sencillamente preguntaríamos si la celda A2 es diferente de 1:

                                         =SI(A2<>1,".","")

Cualquiera de estas 3 fórmulas nos brinda el mismo resultado:

Observa bien, la celda D4 deberá de tener la misma fórmula que la de la celda B2 (obviamente:  =SI(A2<>1,".","")) , la introducimos y obtendríamos:

Ahora colocaremos la fórmula correspondiente para la celda B4, siendo:

                          =SI(O(A2=4,A2=5,A2=6),".","")

pero aprovechamos que ésta misma fórmula también la podemos introducirla en la celda D2, y obtenemos:

y finalmente, la fórmula para la ceda C3 es:

                        =SI(O(A2=1,A2=3,A2=5),".","")

y obtendríamos:

Bien, hemos terminado, sin embargo como valor agregado cambiaremos el empleo de la opresión de la tecla F9 (para la generación de los valores aleatorios, del 1 al 6) por un botón, al cual haremos clic sobre él y será el mismo efecto que el estar oprimiendo la tecla F9, como que es más práctico y común oprimir un botón que el oprimir una tecla (según yo), ¿ok?.

Para ello habilitamos la cinta "Desarrollador" en caso de que no lo este, y para ello elige la opción "Opciones" del menú "Archivo", debiendo aparecer una ventana de diálogo y en ella elige la opción "Personalizar cinta de opciones" (en el panel de la izquierda) y entonces aparecerá un panel a la derecha donde habilitarás la cinta "Desarrollador", tal como se muestra enseguida:

y terminando con clic en el botón Aceptar, y listo.

Ahora elige el comando "Insertar" del grupo "Controles" de la cinta "Desarrollador", y del menú que aparece haz clic sobre el ícono "Botón de control (Control ActiveX)", tal como se aprecia enseguida:

Ahora traza un rectángulo con la ayuda del Mouse en la parte inferior del "dado", tal como se muestra enseguida:

ya tenemos el botón, y vamos a programarlo, para ello oprime la tecla F11 o dale doble clic al botón recién creado, lo que nos permitirá irnos al ambiente de programación como se muestra enseguida:

entre la línea "Private...." y la línea "End Sub", teclea la instrucción:

                        Application.Calculate

debiendo quedar como sigue:

Enseguida haz clic en la opción "Cerrar y volver a Microsoft Excel" del menú Archivo, y por último cambiamos el texto del botón, para ello haz clic en el comando "Propiedades" del grupo "Controles" de la cinta "Desarrollador", debiendo aparecer la siguiente ventana, en donde cambia el valor de la opción "Caption" por "Lanzar dado", BackColor por azul oscuro y ForeColor por color blanco:

ahora cierra la ventana y regresa a Microsoft Excel, para poder usar el botón de comando recién creado debemos de deshabilitar el "Modo diseño" (comando del grupo "Controles" de la cinta "Desarrollador" y liso, deberá mostrarse como sigue:

Finalmente, cambiamos el color del texto de la celda A2 a color blanco, es decir lo "ocultamos".    Lo único que hace falta es mencionar que el hecho de haber empleado programación nos obliga a guardar el archivo de forma diferente, es decir debemos de asignar la 2a. opción del "Tipo de archivo", tal como se muestra enseguida:

y como se esta mostrando, Excel le asigna la extensión a nuestro archivo: "xlsm", quedando:    "lanzarDado.xlsm".

En caso de que desees volver a editar este mismo archivo, Excel te mostrará el mensaje "Advertencia de seguridad.......", sólo da clic al botón "Habilitar contenido" y listo.   Por fin hemos terminado.

Espero te sea de utilidad, nos vemos en el próximo tutorial, saludos.

Atte. prof. Carlos Montiel Rentería

CECyT 6, I.P.N.