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