[Resolvido]Somar coluna de ListBox

Como somar uma coluna de uma ListBox

Uso o seguinte código para somar quando selecionados:
Dim cValue As Double
Dim vItem As Variant
For Each vItem In Me!Lt1.ItemsSelected
cValue = cValue + Me!Lt1.Column(5, vItem)
Next vItem
SelecaoListBox = cValue

Mas preciso somar a Coluna Inteira, estando com os itens selecionados ou não.

Antecipadamente agradeço por qualquer ajuda.

Ola;

Tem de chamar a função no evento ao pressionar de um botão, coloque uma caixa de texto e dê o nome de txtResultado

Private Sub SeuBotao_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 I = 1 To J
SomaListBox = SomaListBox + ctl.Column(5, I)
Next I
SomaListBox = Format(SomaListBox, "currency")
Me.txtResultado = SomaListBox
End Function

João Paulo,

Não estava somando o valor da primeira linha, então alterei:
For I = 1 To J para For I = 0 To J

Pelos testes agora está somando certo, mas isto está correto?

Exatamente, porque eu penso sempre que têm os nomes das colunas na primeira linha.

Sendo assim, se funfa está resolvido.

JPaulo,

Entendi agora a colocação da primeira linha.

Mais uma vez ti agradeço.

Abraços.

Valew.
Precisando estamos aqui.

Estou usando a função:


Private Sub CommandButton3_Click()
Call SomaListBox

End Sub
Function SomaListBox() As Variant
Set ctl = Me.tipoj1
J = ctl.ListCount - 1
SomaListBox = 0
SomaListBox = Format(SomaListBox, "hh:mm")
For i = 0 To J
SomaListBox = SomaListBox + ctl.Column(8, i)
Next i
Me.txtresultadoj1 = CStr(SomaListBox)

End Function

Mas em vez de somar as horas ele gera um texto: "00:0004:0012:0006:0010:00"
Ele relaciona as horas e não soma.

O que estou fazendo de errado?

Obrigado,

Olá! O tipo de variável que vc está usando tem que ser numérica pra que haja a soma, nesse caso vc deve estar usando uma variável do tipo string, com isso a apenas a junção dos valores e não uma soma.

Bom dia!
Mestre J Paulo seria possível colocar um filtro nessa função de forme que ele somasse apenas um um determinado item?
Exemplo: um campo num formulário receberia o código do item,
ai a função executaria a soma do item selecionado tendo como base o valor no campo citado.

Olá bom dia,

Tentei usar esta função , mas não consegui. O erro: "Era esperado variável, procedimento ou módulo". Estou chamando a função no evento ao Carregar do formulário:

Private Sub Form_Load()
  SomaListBox
End Sub

A função está num módulo com o mesmo nome da função (SomaListBox):

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

A ideia é carregar o valor em uma caixa de texto. Será que é pq tenho campos textos?

Bom dia...

Semear2 veja as mensagens anteriores 7 e 8, você está cometendo o mesmo tipo de erro.

Opa agradeço a ajuda, mas ao contrário do colega anterior o meu nem chega a fazer junção dos valores, dando a mensagem "Era esperado variável, procedimento ou módulo".

Bom, não vou ficar adivinhando...

Poste aqui as partes envolvidas para lhe ajudarmos.

Grato.

Desde já agradeço Silvio. Mandei em privado o link do projeto.

Anderson....eu tenho apenas o AC2007 aqui. Versões superiores a essa eu não abro.
Seria interessante zipar o mesmo e postar aqui no fórum para que mais e mais colegas tenham acesso e assim ajudarmos.

Beleza amigo, segue...