[Resolvido]Ajuda com soma de valores da coluna Valor na ListBox

Boa tarde Senhores. Mais uma vez perturbando vocês!

Estou com uma dificuldade na soma de valores na ListBox.

Pesquisei aqui no fóru e encontrei essas funções:

Function fncSomaListBox(lst As Access.ListBox, intColuna As Integer) As Double
'By JPaulo Maximo Access Outubro/2013
'Função soma listbox numa caixa de texto no seu formulário
Dim intLinha As Long
Dim intTotal As Double
'Inicia soma com valor zero
intTotal = 0
'Percorre linha a linha na sua lista
  With lst
      For intLinha = Abs(.ColumnHeads) To (.ListCount - 1)
      intTotal = intTotal + Val(.Column(intColuna, intLinha))
      Next intLinha
  End With
'Insere a soma total na função
fncSomaListBox = intTotal
End Function

Me.SuaCaixaTexto.Value = fncSomaListBox(Me.SuaListBox, 3)

'---------------------------------------------------------------------

Dim I, Soma as Double

Soma=0
For I = 0 To Lista0.ListCount - 1
If Val(Listbox.Column(13, I))>0 Then
Soma=Soma+ Val(Listbox.Column(13, I))
Next
txtSelecionados= Soma

'---------------------------------------------------------------------

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

Mas não estou conseguindo realizar a soma:

A minha ListBox está acoplada a consulta Cs_SomaLista. E puxa da consulta geral Cs_Totalizador que criei para outros relatórios...
Os campos: ID             |Data           |Ano            |Mês            |Título        |Histórico     |Tipo          |Receita       |Serviços      |Despesa       |Sangria       |Saldo          |Valor
          Cs_Totalizador  Cs_Totalizador  Cs_Totalizador  Cs_Totalizador  Cs_Totalizador Cs_Totalizador Cs_Totalizador Cs_Totalizador Cs_Totalizador Cs_Totalizador Cs_Totalizador Cs_Totalizador  Cs_Totalizador

O que estou tentando fazer, é quando eu precisar fazer a soma de alguns itens da listbox, ao selecionar os itens, me dê a soma numa caixa de texto que dei o nome de "txtSelecionados".

Mas já apanhei aqui e sem resultados...

Por favor se alguém poder me ajudar, ficarei grato...

Bom dia,

Por favor, alguém pode me ajudar com essa dúvida?

Estou usando a função do JPaulo, mesmo assim não starta...

Function SomaListBox() As Variant
'By JPaulo Maximo Access
Dim I As Integer, J As Integer, ctl As Control
Set ctl = Me.Listbox 'Alterar para o nome da sua Listbox
J = ctl.ListCount - 1
SomaListBox = 0
For I = 1 To J 'Se a list box tiver os nomes na primeira coluna alterar para For I = 1 to J
SomaListBox = SomaListBox + ctl.Column(13, I)
Next I
Me.txtSomar = SomaListBox 'Alterar para o txt que receberá o valor da soma
End Function

Private Sub cmdSomarLista_Click()
Call SomaListBox
End Sub

Não sei o que estou fazendo errado não...

A coluna que quero somar na listbox da consulta "Cs_ListBox" está na 13ª

Desde já agradeço...

Consegui resolver pessoal...

Desde já agradeço a todos...

Segue forma que deu certo. Para que outros possam utilizar em sua aplicação.

Na origem da linha da ListBox é preciso que o campo valor a ser somado esteja numerado nos eventos: Número de colunas e Lagura da coluna".

No evento "Ao Mover o mouse" da ListBox:

'Função para ao clicar sobre as linhas na ListBox já ir selecionado
Private Sub ListBox_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim varItem As Variant
For Each varItem In Me!Listbox.ItemsSelected
Next varItem
End Sub

Criei a função no VBA:

Private Sub SomarListBox()

Dim varLinha As Variant
Dim Total As Long

For Each varLinha In Listbox.ItemsSelected
Total = Total + Listbox.Column(12, varLinha) 'Número 12 referesse a coluna onde estão os valores. No caso se for na coluna 13 da consulta, coloque 12 como está!
Next

txtSomar = Total

End Sub

No meu caso, criei um botão para somar...

Private Sub cmdSomarLista_Click()
Call SomarListBox
End Sub

É isso, para quem estiver com dificuldade, basta seguir os passos que da certo...

Abraços,

Jefferson D'Assis - Proprietário da MelkCell Assistência Técnica em Celulares.
"Aprendendo a desolver em Access e outras linguagens e Plataformas"