Página 1 de 1

Somar TextBox

Enviado: 17 Fev 2017 às 23:58
por wesleyribeiro123
Galera
Estou com seguinte problema com o Formulário criado conforme imagem.
Ao somar os valores dos TextBox eles vem como se eu estivesse contatenando textos, ou seja:
Total1 = 2,5
Total2 = 2,5
Total3 = 2,5
...
Total Geral = 2,52,52,5
Na verdade gostaria que fosse feito o correto, ou seja, Total Geral = 7,5
Tentei usar as funções de conversão VAL (porém ela trata os números como inteiros) CDec e CDbl (porém é retornado erro de Tipos Incompatíveis, tratados como texto).

Como faço essa soma se mesmo convertendo ele retorna erro ou concatena como texto?

Imagem

Re: Somar TextBox

Enviado: 18 Fev 2017 às 08:14
por almirjorge
Wesley, vê se o arquivo anexo te ajuda.

Re: Somar TextBox

Enviado: 18 Fev 2017 às 08:19
por osvaldomp
Olá, Wesley.

A expressão abaixo deveria resolver, se não, sugiro que você disponibilize uma amostra do seu arquivo (não imagem).

CDbl(TextBox1.Value)

Re: Somar TextBox

Enviado: 18 Fev 2017 às 11:54
por wesleyribeiro123
almirjorge escreveu:Wesley, vê se o arquivo anexo te ajuda.
Almirjorge
Boa tarde,

Obrigado pela atenção. Cara seguinte, vejo 2 problemas aqui na tua solução! Primeiro você não está somando os TextBox está lançando os valores na planilha e somando as células!!! O segundo problema é que se eu digitar 2,5 e 3,5 ele retorna 5, para retornar 6 eu devo digitar 2.5 e 3.5, ou seja, o VBA não está reconhecendo nosso padrão de virgula para casas decimais.

Mais a ideia é quase esta... Continua aqui na procura de uma solução!!!

Re: Somar TextBox

Enviado: 18 Fev 2017 às 13:52
por osvaldomp
Aproveitando o exemplo do almirjorge:
Código: Selecionar todos
Private Sub CommandButton1_Click()
 TextBox6.Text = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value)
End Sub
obs. se alguma TextBox não contiver valor numérico provocará erro

Re: Somar TextBox

Enviado: 19 Fev 2017 às 13:50
por gfranco
Boa tarde.
Segue minha contribuição.

Somar TextBox

Enviado: 20 Fev 2017 às 11:28
por Feka
É só você somar com zero que ele transformará a variável em valor numérico.
Soma = (TEXT1.Value + 0) + (TEXT2.Value + 0))

Somar TextBox

Enviado: 24 Fev 2017 às 10:35
por wesleyribeiro123
Putz, uma coisa extremamente simples e resolveu perfeitamente meu problema, rsrs
Muito obrigado FEKA, vou guarda essa solução!!! :)

Obrigado a todos pelo empenho em me ajudar!!!
Grande abraço.