Excel planiha vba textbox soma na mesma txt

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

Tags: