Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o resultado da multiplicação entre dois objetos, duas textbox(caixa de texto), e formata os textbox como Moeda, neste caso Reais.
Espero que o exemplo lhe seja útil. Fique com Deus, Boas Pesquisas.
 
'esse procedimento retorna o resultado da multiplicação entre dois textbox,
'TextBox1 x TextBox2, retorna em :
'Retorna valor com centavos em uma Label,
'Retorna valor com centavos em um Frame,
'Retorna no caption do Userform1
'Retorna Também na Célula(B16) o valor da multiplicação
'Ao Fechar o userform (QueryClose) limpa a célula (B16)

Private Sub TextBox2_Change()
vNum1 = TextBox1.Value
vNum2 = TextBox2.Value

Label1.Caption = "Resultado da Multiplicação: [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
Frame1.Caption = "Resultado : TextBox1 x TextBox2 = [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
UserForm1.Caption = "Resultado : TextBox1 x TextBox2 = [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
[B16].Value = "Resultado : TextBox1 x TextBox2 = [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
[B16].Value = ""
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel



   Baixe o exemplo de planilha contendo os procedimentos e objetos acima
Excel palnilha vba usf textbox op_mat formata moeda (66.17 KB)

Publicidade
Compre com segurança, garantia e ótimos preços