SOMA DE COLUNA LIST...
 
Notifications
Clear all

SOMA DE COLUNA LISTVIEW

2 Posts
2 Usuários
0 Reactions
1,205 Visualizações
fabio.cmaa
(@fabio-cmaa)
Posts: 0
Estimable Member
Topic starter
 

Boa tarde galerinha,

estou com dificuldade em somar a coluna de preço do listview só tô conseguindo contar quantas células tem,

e tambem tem uma coisas pra corrigir que estou com dificuldade que seria os itens abaixo:

obs.: item a ser corrigido

TXT_PREÇO: nesse campo mesmo eu digitando não é pra desaparecer o simbolo de moeda, é pra continuar, e caso eu digite um valor acima de 1000, auto formatar para R$ 1.000,00, EX: eu digito 1500, aparecer RS: 1.500,00

código: buscar o ultimo valor cadastrado + 1, ex: o ultimo cadastrado é o 12, aparecer no campo já o numero 13

SOMAR: aparecer no Soma_Produto, toda a soma da coluna do listview, caso eu fizer uma pesquisa, continuar somando o que tem na coluna,

PREÇO: aparecer na coluna do listview na coluna preço, o formato MOEDA:

txt_busca1: funciona apenas para o busca1, queria buscar por duas condição, pelo tamanho, e pelo sexo:

agradeceria se alguém me ajudasse.

Fabio c.

 
Postado : 22/08/2017 8:54 am
NERI S
(@neri-s)
Posts: 0
Estimable Member
 

Boa tarde Fábio

Eu faço assim:
Criei um textbox chamado txttotalservico

e soma assim: ele soma a 10ª coluna, como podes ver.....

Sub Totalservico()
Dim i As Long
Dim valor As Double
For i = 1 To Me.ListView1.ListItems.Count
valor = valor + CDbl(Me.ListView1.ListItems(i).ListSubItems(9))
Next i
txttotalservico.Text = valor
txttotalservico.Value = Format(txttotalservico, "#,##0.00")
End Sub

__________________________________________________________________________________________
Sobre a formatação:
insira um evento chamado EXIT

Private Sub TXT_PREÇO_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT_PREÇO.Text = valor
TXT_PREÇO.Value = Format(TXT_PREÇO, "R$ #,##0.00")
End Sub

Faz estas duas partes e depois responde para ver o que falta;....

 
Postado : 29/08/2017 2:22 pm