Saberexcel - o site das macros
 Macro do Aplicativo Microsoft Excel VBA, retornam valores baseados em operadores matemáticos. Os valores retornados são baseados em valores contidos nas células [A1] e [A2]
Sub resultado_Operacoes() Dim num1 As Integer Dim num2 As Integer Dim resposta1, resposta2, resposta3, resposta4, resposta5, resposta6 As String
num1 = Range("A1").Value num2 = Range("A2").Value
limpar
resposta1 = num1 + num2 ' o resultado é soma A1+A2 resposta2 = num1 - num2 ' o resultado é subtração A2-A2 resposta3 = num1 * num2 ' o resultado é multiplicação A1*A2 resposta4 = num1 / num2 ' o resultado é divisão A1/A2 resposta5 = num1 ^ Range("a1").Value ' o resultado é raiz quadrada de A1 resposta6 = Range("A2").Value ^ num2 ' o resultado é potencia de A2
'aqui vamos retornar mensagem do resultado das operações matemática, porém, vamos concatenar valores e textos.
MsgBox "resposta da soma é : " & [A1] & " + " & [A2] & " =" & " [ " & resposta1 & " ]", vbInformation, "Saberexcel.com" Range("C1") = "resposta da soma é.....:" & resposta1
MsgBox "resposta da subtração de : " & [A1] & " - " & [A2] & " =" & " [ " & resposta2 & " ]", vbInformation, "Saberexcel.com" Range("C2") = "resposta da subtração é: " & resposta2
MsgBox "resposta da multiplicação de : " & [A1] & " x " & [A2] & " =" & " [ " & resposta3 & " ]", vbInformation, "Saberexcel.com" Range("C3") = "resposta da multiplicação é: " & resposta3
MsgBox "resposta da subtração de : " & [A1] & " : " & [A2] & " =" & " [ " & resposta4 & " ]", vbInformation, "Saberexcel.com" Range("C4") = "resposta da divisão é: " & resposta4
MsgBox "resposta do quadrado de : [" & [A1] & " " & [A2] & "]² =" & " [ " & resposta5 & " ]", vbInformation, "Saberexcel.com" Range("C5") = "resposta do quadrado é: " & resposta5
MsgBox "resposta da Potencia de : [ " & [A1] & " " & [A2] & "] =" & " [ " & resposta6 & " ]", vbInformation, "Saberexcel.com" Range("C6") = "resposta da potência de A2 é: " & resposta6
End Sub
Sub limpar() Range("C1:C10").ClearContents End Sub
 Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel

|