JoséA, grato pela consideração, quanto as rotinas Remover e SomarItens, a principio não teem nada de outro mundo, apesar da ajuda do Excel não conter quase nada sobre ListView a propridade Remove faz parte do Objeto, geralmente o pessoal ao invez de usar Remove, costumam utilizar o Clear no Listview e buscar na Planilha somente os dados referentes aos critérios e preencher o ListView novamente, o que dependendo é mais demorado, pois processamos duas vezes a busca na planilha, então acho mais eficiente e rapido varrer os dados no próprio ListView e Remover, e SomarItens não tem muito o que explicar, faz um Loop pela coluna que queremos e efetua a Soma.
Quanto a variavel, lngRunningTotal1, de fato foi um lapso, tamebm pela hora, já eram perto das 02 da manhã, a instrução :
Dim lngRunningTotal1 As Double - que está no inicio da rotina Sub FiltroCriterio(), nada mais é do que uma variável para ir armazenando os Valores capturados na coluna do ListView, e quando construi a rotina de filtro, eu tambem fiz a de soma na mesma rotina, só depois que resolvi separa-la pelo fato da Soma do segundo criterio, e acabei deixando a instrução no lugar errado.
Então o correto é que a instrução esteja na rotina :
Sub SomarItens()
Dim lngRunningTotal1 As Double
For i = 1 To ListView1.ListItems.count
lngRunningTotal1 = lngRunningTotal1 + CDbl(ListView1.ListItems(i).ListSubItems(3))
Next
lblTotal.Caption = lngRunningTotal1
End Sub
O que faz esta Variável, quando encontra o primeiro valor ela armazena, e para a Soma utilizamos ela + ela que será o proximo valor :
Seria assim :
Primeiro Valor => 10 => armazenou em lngRunningTotal1
Segundo Valor => 20 => armazenou em lngRunningTotal1 novamente, então, como já tinhamos armazenado o Valor 10, na instrução Somamos ela com ela mesma.
lngRunningTotal1 = lngRunningTotal1 é iGual a 20 + 10
Quanto a Filtragem Instantanea do Combo, vou deixar para vocâ esta implementação, lógico, se não for lhe atrapalhar.
Não sei se fui claro, mas qq duvida reporte.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/11/2011 11:56 am