Descricao: |
SaberExcel - O Site das Macros
![](/images/stories/excel/linazul.jpg) 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
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
![](/images/stories/excel/linazul.jpg) Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
![](/images/stories/jm_produtos.jpg)
Publicidade Compre com segurança, garantia e ótimos preços
![Eletrônicos - Submarino.com.br](http://i.s8.com.br/images/afiliados/banner/468x60_eletronicos.jpg)
|