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 
