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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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