[Resolvido]Somar duas colunas na listbox

https://dl.dropbox.com/u/90217826/Kaynan-teste.rar

Amigos quero somar as duas colunas individual na caixa texto, a ValorUnitario e a SubTotal,mas ta dificil pra mim.(E agora quem vai me ajudar)rsrsrs.

Abçs.

Você quer somar as linhas? Tipo o esquema abaixo?

| V. Unitário | Subtotal |
| 10          | 15       |
| 10          | 15       |
| 10          | 15       |
 ------------- ----------
| 30          | 45       |

De qualquer forma, se procurar por somar listbox encontrarás algumas coisas já resolvidas.

O colega Criquio esta correto. Use o famoso "busca" antes de postar

Veja.

http://maximoaccess.forumeiros.com/t583-resolvidosomar-coluna-de-listbox?highlight=soma+em+listbox

Obrigado Criquio é desse geito que quero somar,ja pesquisei no forum,fiz com o código do JPaulo,mas não da certo não sei que faço de errado,por isso recorro aos amigos.

Obrigado.

A listbox tem cabeçalho das colunas, certo? Nesse caso, tem que começar a contar da linha de índice 1 ao invés da de índice 0. Algo como:

For j = 1 To Me.NomeDaList.ListCount - 1

Talvez esteja aí a questão.

Amigos fiz assim ao clicar do botão pra somar a coluna SubTotal deste bd que postei,mas da erro de compilação.



Private Sub txtSoma_Click()
Call SomaListBox
End Sub

Function SomaListBox() As Variant
'By JPaulo ® Maximo Access
Dim I As Integer, J As Integer, ctl As Control
Set ctl = Me.Lt1
J = ctl.ListCount - 1
SomaListBox = 0
For J = 1 To Me.ListaCompras.ListCount - 1
SomaListBox = SomaListBox + ctl.Column(4, I)
Next I
SomaListBox = Format(SomaListBox, "currency")
Me.txtResultado = SomaListBox
End Function

Eu fiz um teste assim no exemplo que você postou e funcionou:

Código:

Sub Somar()

    Dim SomaVU As Currency, SomaST As Currency, N As Double

    For N = 1 To Me.ListaCompras.ListCount - 1
        SomaVU = SomaVU + Me.ListaCompras.Column(3, N)
        SomaST = SomaST + Me.ListaCompras.Column(4, N)
    Next

    MsgBox SomaVU & " - " & SomaST

End Sub

Tente colocar esse sub no módulo, colocar um Call Somar no "Após atualizar" da combo, depois do código que já tem nesse evento e escolha alguem na combo.

Não deu Criquio,poste pra mim ver como fez, ai diserto me entra nas ideia, pra quando surgir outra lida parecida eu faço.

Atc.

Veja:

Muito bom Mestre,só mais duas coisas,para aparecer a soma de todas as vendas,sem escolher nenhum cliente na combo,e uma coisa que ta me encucando, neste bd eu tenho o Nºde registros,só que ele esta contando também o cabeçalho da coluna,e se eu tiro o cabeçalho conta certo, mas a soma dos produtos ficam errado como é isso.

No caso da soma de registros, você quer a lista completa menos 1, não é?
No caso de somar todas as linhas sem o filtro, você vai fazer o mesmo que fez para somar as linhas com o filtro, só mudando a chamada à sub Somar de evento.

Outra coisa: nesse exemplo que você enviou, contem linhas em branco. Isso vai dar erro. Nesse caso, altera a Sub Somar para o modelo abaixo:

Código:

Sub Somar()

    Dim SomaVU As Currency, SomaST As Currency, vSomaVU As Currency, vSomaST As Currency, N As Double

    For N = 1 To Me.ListaCompras.ListCount - 1
       
        If IsNull(Me.ListaCompras.Column(3, N)) Or Me.ListaCompras.Column(3, N) = "" Then
            vSomaVU = 0
        Else
            vSomaVU = Me.ListaCompras.Column(3, N)
        End If
       
        If IsNull(Me.ListaCompras.Column(4, N)) Or Me.ListaCompras.Column(4, N) = "" Then
            vSomaST = 0
        Else
            vSomaST = Me.ListaCompras.Column(4, N)
        End If

        SomaVU = SomaVU + vSomaVU
        SomaST = SomaST + vSomaST

    Next

    Me.txtSomaVU = SomaVU
    Me.txtSomaST = SomaST

End Sub

Mestre pra contar os registros eu uso assim,=[ListaCompras].[ListCount],para somar menos 1 como faço.

E para somar em outra caixa texto o SubTotal sem filtro,como seria.Troquei o código como falou continua igual e exclui os campos em branco.

Cumprimentos.

Olha só, como diminuímos 1 número de um outro, por exemplo, 100? Não é 100 - 1? Para diminuir uma linha na listbox é a mesma coisa.

Quanto à soma sem o filtro, já está funcionando do jeito que falei. Ou você quer ter as duas coisas ao mesmo tempo? Se for, mude a Sub para uma Private Function e utilize variáveis para representar os campos ou então crie uma cópia da Sub e chame-a no evento "Ao carregar" do formulário, quando a listbox carregar todas as linhas.

Agora sim mestre, consegui fazer como indicou,tudo funcionando perfeito,que bom cada vez aprendo mais,muito obrigado mestre Criquio todas as dicas e códigos que me passam,vou colando e copiando e guardando a sete chaves,presiso estudar o ingles para saber traduzir os códigos.

Valeu mestre tudo de bom.

Grato pelo retorno. O fórum agradece.