VBA Command Button Example with Excel

En este ejemplo vamos a calcular el volumen y el area de la superficie de un bloque determinado de tal manera que las longitudes de los lados estan escritos en Excel en las celdas B1:B3 como ven abajo. El codigo deberia ejecutarse al presionar el boton llamado Calcular V & A. El codigo deberia automaticamente mostrar el resultado en las celdas A5 y A6.

Lo que hacemos es escribir los valores de w, h y d en las celdas desde B1 a B3 y poner un boton de comando ActiveX (ya les explique en un ejemplo anterior como poner botones en Excel 2007), y le damos doble click, aqui nos aparecera un editor de codigo de Visual Basic.

Ventana de codigo para el CommandButton1
y escriben este codigo:

'declaramos variables tipo double
Dim w As Double, h As Double, d As Double, volume As Double, sa As Double
'capturamos los valores de las celdas B1 a B3
w = Range("B1").Value 'aqui capturamos el ancho
h = Range("B2").Value 'aqui capturamos el largo
d = Range("B3").Value 'aqui cpturamos el espesor
'calculamos el volumen
volume = w * h * d
'calculamos el area de la superficie
sa = 2 * w * h + 2 * h * d + 2 * w * d
'mostramos los resultados en las celdas A5 y A6
Range("A5").Value = "El volumen es " & volume & " cu. in"
Range("A6").Value = "La superficie es " & sa & " sq. in"
'seleccionamos

para compilar el codigo van a Depuracion - Compilar VBA Project.
cierran el editor, y al pulsar el boton les aparecera el resultado asi: