SaberExcel - O Site das Macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), soma determinados valores na própria Caixa de Texto(TextBox),
usando o Evento AfterUpdate(Ocorre depois que os dados de um controle são alterados através da interface do usuário) por ex: ao digitar 756+3837+938 = Ao teclar Enter, retornará o resultado da soma na própria caixa de texto(Textbox) = 5531
Esse exemplo de planiha faz parte dos MODULOS COMO FAZER - Programação MS Excel VBA- Saberexcel.
Private Sub TextBox1_AfterUpdate()
Dim iValor, vTabela, vNum, i
On Error Resume Next
TextBox1 = Evaluate(TextBox1.Value)
If Err.Number Then
TextBox1 = ""
Err.Clear
End If
iValor = Me.TextBox1.Value
vTabela = Split(iValor, "+")
vNum = 0
For i = 0 To UBound(vTabela)
vNum = vNum + vTabela(i)
Next
Me.TextBox1.Value = vNum
Frame1.Caption = "Total da Soma..:" & TextBox1.Value
'observe que aqui vou fazer um exemplo para voce aprender um pouco sobre a propriedade offset, que deslocará dados,
'de determinado objeto para a célula na folha de planilha - lembre-se( ....Offset(linha, Coluna).
'Não deixe de ler sobre COMO FAZER - Programação MS excel VBA -(Propriedade offset),
'de extrema importancia no aprendizado ms Excel VBA
[A65000].End(xlUp).Offset(1, 0).Value = "Total..: [ " & TextBox1.Value & " ]"
[A65000].End(xlUp).Offset(0, 2).Value = "Soma executada no próprio TextBox1."
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo o procedimento acima.
Excel planiha vba textbox soma na mesma txt (70.52 KB)
Publicidade
Compre com segurança, garantia e ótimos preços 
