PRACTICA DE MACROS EN EXCEL

VAMOS A REALIZAR UNA MACRO Y VAMOS A UTILIZAR VB PARA APLICACIONES

• PRIMERO DEBES ACTIVAR EL MENÚ PROGRAMADOR.

• o DESARROLLADOR (Excel 2016)

¿Cómo activar el menú desarrollador?

Seguir las siguientes imágenes

1. Ir al menú Archivo y seleccionar opciones

2 . Presionar personalizar cinta de opciones.

3. Activar [ ] Programador (MS Excel 365) o Desarrollador (office 2016)

Construir una calculadora en Excel 

Vamos a crear un libro nuevo le llamaremos calculadora DEBE SER GUARDADO COMO UN LIBRO DE EXCEL PARA MACROS

 ¿COMO?

1. CLIC EN EL MENU ARCHIVO
2. CLIC EN LA LISTA TIPO, CAMBIARLO POR LIBRO DE EXCEL HABILITADO PARA MACROS(VER IMAGEN ANTERIOR)
3. ASIGNAR EL NOMBRE DE CALCULADORA
4. CLIC EN GUARDAR (VERIFIQUE LA RUTA DE DONDE GUARDA)

I parte construir calculadora

1. Ir a Visual Basic para aplicaciones. MENU PROGRAMADOR( Excel 2010), O DESARROLLADOR (Excel 2016)
2. ir al menu insertar y seleccionar UserForm
3. En la propiedad Name asignarle frmCalculadora

Ahora construya un formulario muy similar a la calculadora de windows

Detalles

Si alguno de los objetos como propiedades o explorador de proytectos o las herramientas desaparecen debes hacer lo siguiente.
1) ir al menú ver y activarlos

Para poder agregar una caja de texto hago lo siguiente
1) clic a la herramienta de cuadro de texto.

Para agregar un botón de comando hacer lo siguiente
1) clic en la herramienta botón de comando
2) para modificar su texto modifique la propiedad caption

II Parte  Agregarle texto y nombre  a los objetos

HAY QUE PONERLE NOMBRE A CADA OBJETO

¿CÓMO?

1. En la propiedad caption de cada objeto escribir el valor que representa. Ejemplo a 1 escriba 1en el caption (ver imagen)
   
2. En la propiedad Name de cada objeto(ver imagen)
1. Ejemplo al botón 1 CmdUno, al 2 CmdDos etc...
2. Para la caja de texto que mostrará el resultado asignarle el nombre TxtResultado en la propiedad name.
3. Asignar nombre solo a los botónes de operaciones siguiente: =,+,-,/,ce,c
1. Para el bótón de Igual asignarle el texto CmdIgual,en la propiedad name. 
2. Para el bótón de suma asignarle el texto Cmdsuma,en la propiedad name y así sucesivamente con el resto de los botones señalados.
4. Los botones como raiz, +-  y otros no mencionados no es necesario cambiarles el nombre.

Poner nombre al Formulario

1. Abre tu formulario en la vista diseño
2. Localiza la propiedad (Name) del formulario en el panel de propiedades
3. Cambia el texto por frmCalculadora (ver imagen de ayuda)
4. Guarda el formulario desde el menú Archivo / Guardar 

III Parte. Codigo para los botones(0,1..9)

• Primero debes dar doble clic en el botón, esto quiere decir que puedes empezar con el número1 y así sucesivamente (0,1..9)
• Se mostrará un código similar a este.

      Private sub CmdUno_click( )
      End Sub

• Observe que le falta una linea de código
• Escriba la línea o copie la linea que le falta hasta que quede así

Private sub CmdUno_click( )
       txtResultado.text=txtResultado.text+"1" ' cambiar el 1 x el número del botón
End Sub

Seguir la misma lógica para todos los números, pero sustituyendo el 1 por el número que estés programando.

V. Parte. declaración de variables globales

1. Entre al código(doble clic en los puntos del formulario), suba hasta la primera linea de codigo
2. Ubicar el cursor al inicio de la linea y dar enter
   
   
3. Suba a la línea vacia  y pegue las siguientes dos lineas de código, UNA SOLA VEZ.

      Dim x, y as single

      Dim operacion as string

VI. PARTE.  Para  los botones de +,-,/,* , =,CE, C

Para colocar el siguiente código valla primero al boton CE y de doble clic, luego agregue el siguiente código

Sub CmdCE
   txtResultado.text=""
End Sub

Para colocar el siguiente código valla primero al boton C y de doble clic, luego agregue el siguiente código

Sub CmdC
   txtResultado.text=""

End Sub

Boton de suma

private sub cmdsuma
  x=txtresultado.text
  operacion="suma"
  txtresultado.text="" 'doble comillas juntas
end sub


'boton de resta

private sub cmdresta
  x=txtresultado.text
  operacion="resta"
  txtresultado.text="" 'doble comillas juntas
end sub


'boton de multiplicación

private sub cmdmultiplicación
  x=txtresultado.text
  operacion="multiplicacion"
  txtresultado.text="" 'doble comillas juntas
end sub

'Botón de división

private sub cmddivision
  x=txtresultado.text
  operacion="division"
  txtresultado.text="" 'doble comillas juntas
end sub

'Botón del igual

private sub cmdIgual
 y=txtresultado.text
 if operacion="suma" then txtresultado.text=Cint(x) + Cint(y)
 if operacion="resta" then txtresultado.text=Cint(x) - Cint(y)
 if operacion="multiplicacion" then txtresultado.text=Cint(x) * Cint(y)
 if operacion="division" then txtresultado.text=Csng(x) / Csng(y)
End Sub

VII. Parte crear una macro

1. Guardar sus cambios
2. Regresar a Excel
3. Ir al menu Programador o Desarrollador
4. Insertar un botón
5. Escribir el nombre de la macro: Calculadora
6. Clic en el botón nuevo

7. Escribir el siguiente código

     sub calculadora
        frmCalculadora.show
    end sub

8.Minimice la ventana, regrese a la hoja de cálculo de Excel, modifique la etiqueta del botón recién creado por el texto  "calculadora"

9. Clic fuera del botón

10. Prueba su botón desde EXCEL