3 semestre - 2do parcial - Practica 4 Mi primera macros

MI PRIMERA MACROS
Oscar Fabián Ramírez Martínez
5 DE OCTUBRE DE 2017
Primero abrí el software Excel
Habilite la pestaña de “desarrollador” en opciones
Después de habilitarlo aparecerá una pestaña y entraras a Visual Basic
Aparecerá esta pantalla
Pondrás clic derecho en el título de proyecto
Daras en modulo y te abrirá otra pantalla
Aquí comenzaras a poner los códigos necesarios


Sub Sumar_valores()
'DIM reserva memoria
Dim num1 As Integer
Dim num2 As Integer
Dim result As Integer
' result = num1 + num2
' Solcitando los datos
num1 = InputBox("Dame un numero")
num2 = InputBox("Dame otro numero")
' Luego haces la suma
result = num1 + num2
'Ahora mostraremos el resultado
MsgBox "El resultado de la suma es: " & " " & result
End Sub
Con suma

Sub Restar_Valores()
' DIM reserva memoria
Dim num1 As Integer
Dim num2 As Integer
Dim result As Integer
' result = num1 - num2
' Solicitando los datos
num1 = InputBox("Dame un numero")
num2 = InputBox("Dame otro numero")
'Luego haces la resta
result = num1 - num2
'Ahora mostraremos el resultado
MsgBox "El resultado de la resta es: " & " " & result
End Sub

Con resta

Sub Multiplicar_Valores()

'DIM reserva memoria

Dim num1 As Integer

Dim num2 As Integer

Dim result As Integer

' result = num1 * num2

' Solicitando los datos

num1 = InputBox("Dame un numero")

num2 = InputBox("Dame otro numero")

' Luego haces la multiplicacion

result = num1 * num2

'Ahora mostraremos el resultado

MsgBox "El resultado de la mult`plicacion es " & " " & result

End Sub

Con multiplicación

Sub porcentaje()
'DIM reserva memoria
Dim num1 As Integer
Dim num2 As Integer
Dim result As Integer
' result = num1 + num2
' Solcitando los datos
num1 = InputBox("Dame un numero")
num2 = InputBox("Dame otro numero")
' Luego haces la suma
result = num1 + num2
'Ahora mostraremos el resultado
MsgBox "El resultado del porcentaje:" & " " & result * 0.1
End Sub
Con porcentaje
Sub IVA()
'DIM reserva memoria
Dim num1 As Integer
Dim num2 As Integer
Dim result As Integer
' result = num1 + num2
' Solcitando los datos
num1 = InputBox("Dame un numero")
num2 = InputBox("Dame otro numero")
' Luego haces la suma
result = num1 + num2
'Ahora mostraremos el resultado
MsgBox "El resultado del iva es: " & " " & result * 0.16
End Sub
Con IVA 

Sub descuento()
'DIM reserva memoria
Dim num1 As Integer
Dim num2 As Integer
Dim result As Integer
' result = num1 + num2
' Solcitando los datos
num1 = InputBox("Dame un numero")
num2 = InputBox("Dame otro numero")
' Luego haces la suma
result = num1 + num2
'Ahora mostraremos el resultado
MsgBox "El resultado del descuento: " & " " & result - InputBox("Dame otro numero")
End Sub

Con descuento