Bom dia,
poderiam me ajudar no excel 2013, aparece probabilidade 1 ao invés da msgbox, e aparece também a mensagem: erro de execução 13 tipos incompatíveis.
Sub retorno()
Dim p1 As Single
Dim p2 As Single
Dim P3 As Single
Dim R1 As Single
Dim R2 As Single
Dim R3 As Single
Dim retmd As Single
p1 = CSng(InputBox(" probabilidade 1 = "))
p2 = CSng(InputBox(" probabilidade 2 = "))
P3 = CSng(InputBox(" probabilidade 3 = "))
R1 = CSng(InputBox("retorno 1 = "))
R2 = CSng(InputBox("retorno 2 = "))
R3 = CSng(InputBox("retorno 3 = "))
retmd = R1 * p1 + R2 * p2 + R3 * P3
MsgBox ("O resultado é = " & retmd)
End Sub
