Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planiha vba textbox soma na mesma txt

Excel planiha vba textbox soma na mesma txt

E-mail Imprimir PDF

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
Eletrônicos - Submarino.com.br

Última atualização em Ter, 23 de Agosto de 2011 09:30  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4909
mod_vvisit_counterOntem4316
mod_vvisit_counterEsta Semana19356
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33085
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10455914
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA