Somar valores de um Listbox em um Textbox

[Michelle Alves]

Bom dia, mais uma vez vou contar com ajudado fórum.

Tenho uma macro que transfere dados para um Listbox, gostaria que a medida que os dados forem transferidos, os valores da coluna 4 do Listbox fossem somados em um Textbox. Segue abaixo o código que utilizo para transferir os dados para o Listbox, podendo inclusive servir de exemplo no fórum:

'ENVIA OS DADOS DOS TEXTBOX PARA O LISTBOX 
Private Sub AdButton10_Click() 
Dim result As Double 
Dim Acum As Double 
Dim Total As Double 
Dim i 
i = 0 
Acum = 0 
result = 0 
Total = 0 

If TextBox5 = "" Then 
MsgBox "Prencha todos os campos" 
ElseIf TextBox6 = "" Then 
MsgBox "Prencha todos os campos" 
ElseIf TextBox7 = "" Then 
MsgBox "Prencha todos os campos" 
ElseIf TextBox8 = "" Then 
MsgBox "Prencha todos os campos" 
Else 

Acum = TextBox7.Text 
result = TextBox8.Text 
Total = Acum * result 

Me.ListBox1.AddItem , ListIndex 
ListBox1.List(i, 0) = TextBox5.Text 
ListBox1.List(i, 1) = TextBox6.Text 
ListBox1.List(i, 2) = TextBox7.Text 
ListBox1.List(i, 3) = Format(TextBox8.Text, "R$ 0.00") 
ListBox1.List(i, 4) = Format(Total, "R$ 0.00") 

TextBox5 = Clear 
TextBox6 = Clear 
TextBox7 = Clear 
TextBox8 = Clear 
End If 
End Sub

Editado Março 6, 2009 por kuroi
Adicionar tag CODE

[kuroi]

ue, não é so isso??

TextBox1.Text = TextBox1.Text + valor

ou ainda:

TextBox1.Text = Val(TextBox1.Text) + Val(valor)

ou então:

TextBox1.Text = CDbl(TextBox1.Text) + CDbl(valor)

[Michelle Alves]

Mas eu quero somar apenas os valores que forem sendo inseridos na quarta coluna do Listbox, entendeu ?

[kuroi]

a quarta coluna não é essa daqui??

ListBox1.List(i, 3) = Format(TextBox8.Text, "R$ 0.00")

não é o textbox8 q você ta inserindo?? então no meu codigo, troque valor por TextBox8.Text.

não é isso??

[Michelle Alves]

Então, eu não posso usar o TEXTBOX8 pois ele informa o valor do produto, mas caso eu venda 2 produto de 30, o valor dele estará errado, por isso preciso pegar o valor da coluna 4 do LIST

[kuroi]

michelle, pra acessar a coluna 4 do grid é o mesmo codigo q você usa pra preencher ne.

é so pegar aqui:

TextBox1.Text = TextBox1.Text + ListBox1.List(i, 3)

entretanto, acontece q dentro da list o valor ta formatado como string com R$ e tudo ne. ai vai dar mais trabalho, você vai ter q usar Replace() pra tirar o R$ e muito possivelmente ter q usar o Val() ou CDbl() pra converter (como no exemplo la em cima).

entretanto, seria mais facil no exemplo q eu passei, você pegaria direto o valor q ta sendo adicionado. porque se você pegar a cada vez, a soma vai ficar certa não??

[Michelle Alves]

Sim, usando VAL funcionou, mas ai quando transfere para o label ele não pega valor após a vírgula....

[kuroi]

então use CDbl()

[Michelle Alves]

Com Dbl dá erro de tipo incompatível. Vou postar o código todo para facilitar, ai você pode fazer um teste.

'ENVIA OS DADOS DOS TEXTBOX PARA O LISTBOX

Private Sub AdButton10_Click()

Dim result As Double

Dim Acum As Double

Dim Total As Double

Dim Soma As Double

Dim i

i = 0

Acum = 0

result = 0

Total = 0

Soma = 0

If TextBox5 = "" Then

MsgBox "Prencha todos os campos"

ElseIf TextBox6 = "" Then

MsgBox "Prencha todos os campos"

ElseIf TextBox7 = "" Then

MsgBox "Prencha todos os campos"

ElseIf TextBox8 = "" Then

MsgBox "Prencha todos os campos"

Else

Acum = TextBox7.Text

result = TextBox8.Text

Total = Acum * result

Me.ListBox1.AddItem , ListIndex

ListBox1.List(i, 0) = TextBox5.Text

ListBox1.List(i, 1) = TextBox6.Text

ListBox1.List(i, 2) = TextBox7.Text

ListBox1.List(i, 3) = Format(TextBox8.Text, "R$ 0.00")

ListBox1.List(i, 4) = Format(Total, "R$ 0.00")

Soma = Total + i

TextBox10.Text = Val(TextBox10.Text) + Val(Soma)

TextBox5 = Clear

TextBox6 = Clear

TextBox7 = Clear

TextBox8 = Clear

End If

End Sub

Editado Março 6, 2009 por Michelle Alves

[kuroi]

michelle, qual o formato q ta no textbox?? tipo o numero 1500,75 apareceria como?? 1.500,75?? 1500,15?? 1,500.75?? 1500.75?? tem R$ na frente??

[Michelle Alves]

no LIstbox aparece com o formato de R$ 48,32. Mas quando vai para a SOMA do TEXT ele pega apenas 48 e ignora o restante após a vírgula.

[kuroi]

michelle, então tente fazer assim direto ó:

TextBox10.Text = TextBox10.Text + Soma

to reparando q ele reconhece o R$ como sendo parte do formato, ele não vai considerar como string, então não precisa converter, tenta ai.

[Michelle Alves]

Então, esse foi o primeiro jeito que tentei, até que você me mostrou a função Val, porém sem nenhuma função também dá incompatibilidade dos tipos....

[kuroi]

hum, mas olha como to fazendo aqui:

michelle.rar

da uma olhada no codigo. se você clicar no botao vai ver q vai somar certinho.

se quiser, manda sua planilha q eu olho...

[Michelle Alves]

Combinado Kuroi.

Segue o arquivo.

http://www.4shared.com/account/file/914957...este_kuroi.html

[kuroi]

acontece esse erro da primera vez porque o textbox10 ta em branco. inicializa ele com 0, ou antes de somar, adiciona a linha:

If TextBox10.Text = "" Then TextBox10.Text = 0

e acho q o melhor é desabilitar ele pra edicao tb ne.

[Michelle Alves]

Nossa..... testei e não funcionou, veja só:

EDITADO:

IGNORA, FUNCIONOU SIM, MAS TEM QUE RETIRAR A FUNÇÃO VAL.

Mais uma vez obrigada Kuroi !!!

Só que acabou aparecendo um outro problema, se eu deletar um item no LISTBOX, o valor do TEXTBOX10 não é subtraído.

Editado Março 6, 2009 por Michelle Alves

[Michelle Alves]

Só que acabou aparecendo um outro problema, se eu deletar um item no LISTBOX, o valor do TEXTBOX10 não é subtraído.

[geraldomung]

Para somar os valores duma listbox, acho que podemos recorrer a textbox origem.

Dados introduzidos a textbox são adicionados na listbox. 

/ / / assim adicionamos os valores Listbox1.items.add(textbox1.text)

// somar valores numa label1

Label1. text =val(label1.text) + val(textbox1.text)

Com esses dois comandos ele adiciona valores na listbox1 e vai somando Na label1