MACROS SEGUNDA PARTE

VAMOS A REALIZAR UNA MACRO Y VAMOS A UTILIZAR VISUAL BASIC  PARA APLICACIONES

1. PRIMERO DEBES ACTIVAR EL MENU DESARROLLADOR (Excel 2013)

Si ya tienes el menú desarrollador  activado inicia de  aqui en adelante.

 Construir una calculadora en Excel 2013 

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. Ejecutar la herramienta Visual Basic para aplicaciones. MENÚ DESARROLLADOR (Excel 2013)
   
   
2. Aparecerá la interfaz de Visual Basic
   
   
3. Ahora desde el menu insertar, selecciona la herramienta UserForm
   
   
4. En la propiedad Name asignarle frmCalculadora

Detalles

Si alguno de los objetos como propiedades o explorador de proyectos o las herramientas desaparecen debes hacer lo siguiente.

• Ir al menú ver y activarlos

Ahora construya un formulario muy similar a la calculadora de windows

PASOS:

Para poder agregar una caja de texto haga 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.

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

1. Primero debes dar doble clic en el boton, esto quiere decir que puedes empezar con el número1 y así sucesivamente (0,1..9)
2. Se mostrará un codigo similar al que aparece abajo

Private sub CmdUno_click( )
   txtResultado.text=txtResultado.text+"1" ' cambiar el 1 x el número del botón
End Sub
    3.  Observa que le falta al código
    4.  Escribele la línea que le falta.

Seguir la misma logica para todos los números, pero sustituyendo el 1 por el número que estes programando.

V. Parte. declaración de variables globales

1. Entre al código, suba hasta la primera linea de codigo y de un enter
2. 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. Modifique la etiqueta del boton por "calculadora"
9. Clic fuera del botón
10. Pruebe su botón