Ejemplos de macros modulares

Ejemplos de macros modulares básicas

Sub saludo()
MsgBox "Hola mundo"
End Sub

Sub saludo2()
MsgBox "Saludos a todos"
InputBox "Ingresa tu nombre"
InputBox "Ingresa tu edad"
End Sub

Sub suma()
MsgBox "Realizar suma"
a = InputBox("Ingresar un valor para a")
b = InputBox("Ingresar un valor para b")
c = Val(a) + Val(b)
MsgBox "la suma es :  " & c
End Sub

Sub resta()
MsgBox "Realizar resta"
a = InputBox("Ingresar un valor para a")
b = InputBox("Ingresar un valor para b")
c = a - b
MsgBox "la resta es :  " & c
End Sub

Sub porcentaje()
MsgBox "Ingrese un valor"
valor = InputBox("valor")
p = valor * 0.15
MsgBox "el 15% de " & valor & " es : " & p
End Sub

Sub ganancia()
MsgBox "ingrese un valor"
valor = InputBox("valor")
p = valor + (valor * 0.3)
g = p - valor
MsgBox "valor de compra : " & valor & vbCrLf & _
"valor de venta : " & p & vbCrLf & _
"ganancia : " & g
End Sub