[Resolvido]soma de coluna em uma listbox

oi..
tenho um listbox com a coluna cliente,valores,juro,valorjuro,data emissão,datavencimento... queria criar um registro abaixo da listbox que acumulasse a soma das colunas valores... via vba.

Uma solução é usar um loop para passar por todas as linhas da caixa de listagem, como no código abaixo:

Código:

Private Sub Form_Load()
   Dim vSoma As Double
   Dim i As Integer
   
   vSoma = 0
   For i = 0 To CaixaSelecao.ListCount - 1
       vSoma = vSoma + CaixaSelecao.Column(1, i) 'Pega a segunda coluna da linha i
   Next
   txTotal.Value = vSoma
End Sub

Anexo o exemplo.

deu certo...
porem tenho 3 colunas  valor, juro, valor juro e não estou conseguindo fazer a soma individual..

Repita o processo alterando o item da coluna

No exemplo que eu coloquei antes era a segunda coluna:

Código:

CaixaSelecao.Column(1, i)

Para pegar a terceira, coloque:

Código:

CaixaSelecao.Column(2, i)

Pegar a primeira:

Código:

CaixaSelecao.Column(0, i)

O índices de colunas começam no valor 0.

Se fosse a segunda, terceira e quarta coluna, por exemplo, ficaria:

Código:

Private Sub Form_Load()
  Dim vSomaValor As Double
  Dim vSomaJuros as double
  Dim vSomaJurosValor as Double
  Dim i As Integer
 
  vSomaValor = 0
  vSomaJuros = 0
  vSomaJurosValor = 0
  For i = 0 To CaixaSelecao.ListCount - 1
      vSomaValor = vSomaValor + CaixaSelecao.Column(1, i) 'Pega a segunda coluna da linha i
      vSomaJuros = vSomaJuros + CaixaSelecao.Column(2, i)
      vSomaJurosValor = vSomaJurosValor + CaixaSelecao.Column(3, i)
  Next
  txTotalValor.Value = vSomaValor
  txTotalJuros.Value = vSomaJuros
  txTotalJurosValor.Value = vSomaJurosValor
 
End Sub

perfeito...
obrigado.