Vamos a crear un libro nuevo le llamaremos calculadora
I parte construir calculadora
- Ir a Visual Basic para aplicaciones
- ir al menu insertar y seleccionar UserForm
- En la propiedad Name asignarle frmCalculadora
Ahora construya un formulario muy similar a la calculadora de windows
II Parte - Código
HAY QUE PONERLE NOMBRE A CADA OBJETO
¿Cómo?
- En la propiedad Name de cada objeto
- ejemplo al botón 1 CmdUno, al 2 cmdDos etc...
- Para el resultado TxtResultado (caja de texto a donde se ve el resultado)
- En la propiedad caption de cada objeto escribir el valro que representa.
- Ejemplo a 1 escriba 1en el caption
- Asignarle codigo
III Parte crear una macro
- Crear nuevo macro con el nombre: "Calculadora"
- Escribir dentro del codigo lo siguiente
sub calculadora
frmCalculadora.show
end sub
3. Asignar la macro a un boton desde excel (Hay que insertar previamente un Boton de formulario)
IV Parte. Codigo para los botones(0,1..9)
Código del Botón CmdUno_click( )
Private sub CmdUno
txtResultado.text=txtResultado.text+"1"
End Sub
Seguir la misma logica para todos los números...
V. Parte. Para los botones de +,-,/,* , =,CE, C
Escribir hasta Arriba lo siguiente:
Dim x,y as single
Dim operacion as string
Sub CmdCE
txtResultado.text=""
End Sub
Sub CmdC
txtResultado.text=""
End Sub
'boton de suma , seguir misma logica para multiplicacion y resta
private sub cmdMas
x=txtresultado.text
operacion="suma"
txtresultado.text="" 'doble comillas juntas
end sub
'boton de division
private sub cmddivision
x=txtresultado.text
operacion="division"
txtresultado.text="" 'doble comillas juntas
end sub
'boton 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