

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" 'seleccionamospara compilar el codigo van a Depuracion - Compilar VBA Project.
cierran el editor, y al pulsar el boton les aparecera el resultado asi:

0 comentarios:
Publicar un comentario