MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]soma de coluna em uma listbox

    avatar
    fortulino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 07/07/2012

    [Resolvido]soma de coluna em uma listbox Empty [Resolvido]soma de coluna em uma listbox

    Mensagem  fortulino em 20/11/2018, 11:04

    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.
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 23/01/2017

    [Resolvido]soma de coluna em uma listbox Empty Re: [Resolvido]soma de coluna em uma listbox

    Mensagem  thiagomcosta em 20/11/2018, 12:06

    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.
    Anexos
    [Resolvido]soma de coluna em uma listbox AttachmentExemploCaixa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 12 vez(es)
    avatar
    fortulino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 07/07/2012

    [Resolvido]soma de coluna em uma listbox Empty Re: [Resolvido]soma de coluna em uma listbox

    Mensagem  fortulino em 20/11/2018, 16:49

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 23/01/2017

    [Resolvido]soma de coluna em uma listbox Empty Re: [Resolvido]soma de coluna em uma listbox

    Mensagem  thiagomcosta em 20/11/2018, 17:38

    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
    avatar
    fortulino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 07/07/2012

    [Resolvido]soma de coluna em uma listbox Empty Re: [Resolvido]soma de coluna em uma listbox

    Mensagem  fortulino em 20/11/2018, 17:47

    perfeito...
    obrigado.

    Conteúdo patrocinado

    [Resolvido]soma de coluna em uma listbox Empty Re: [Resolvido]soma de coluna em uma listbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/12/2019, 12:25