locked
Somar TextBox RRS feed

  • Discussão Geral

  • Tenho uma planilha e preciso de ajuda para o seguinte:

    1º) Preciso que a mesma me dê a soma das textbox números 3, 6, 9, 12 e 15 na TextBox57 (Valor Total). Agora acontece o seguinte, as textbox 3, 6, 9, 12 e 15 não são preenchidas diretamente nelas são resultados de outras textbox. Exemplo: A textbox 3 é o resultado da multiplicação da textbox 1 e 2; A textbox 6 é o resultado da multiplicação da textbox 4 e 5, e assim por diante. Daí eu preciso que quando vai inserindo valores nas textbox 2, 5, 8, 11 e 14 vai dando a auto soma na textbox57.

    2º) Não são todas as vezes que serão prenchidas "todas" as textbox, isto é, cada vez de inserir na planilha através do botão Inserir, geralmente são de 2 a 3 valores, daí preciso fazer a adaptação pra não dar erro nas textbox vazias.

    Celso
    quarta-feira, 22 de setembro de 2010 12:40

Todas as Respostas

  • Celso,

    Vo de dar o caminho, voce precisa trabalhar os detalhes depois:

    Private Sub TextBox3_Change()
    Dim c As Control
    Dim soma As Double
    For Each c In Me.Controls
      If TypeName(c) = "TextBox" Then
        If c.Name = "TextBox3" Or c.Name = "TextBox2" Then
          soma = soma + CDbl(c)
        End If
      End If
      
    Next
    TextBox50.Text = soma
    End Sub
    

    Voce vai colocar esta mesma sub no evento TextBoxN_Change, de todos os textbox que devem ser somados ao serem alterados.

    logicamente, vai implementar a sua regra.


    Caio Vitullo
    segunda-feira, 14 de fevereiro de 2011 03:25