Descricao: |
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
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

Publicidade Compre com segurança, garantia e ótimos preços

|