ListBox - Calculos Diversos - Desvio Padrao, PesoMed Min e Max, Soma Coluna, Soma Coluna com Criterios..etc..

Por sugestão do Amigo Criquio, segue pequeno exemplo de form de cadastro utilizando:

Para consulta
1 - Cálculos entre horas em consulta
2 - Cálculos de porcentagem em consulta
3 - Peso Médio em consulta


Para ListBox

1- Soma de colunas obtendo diversos resultados
1.1 - peso Medio
1.2 - Peso Medio Mim/Max
1.3 - Desvio padrão


Observem que na segunda aba.. tem dois calculos de peso medio

Peso medio = Peso médio da soma de todas as linhas da listBox
Peso mnedio frango = Peso médio da soma das linha da list obedecendo o critério "Frango"


2 - Filtros na listBox entre datas, placa, granja...
** este filtro utilizando SQL... podendo filtrar apenas por um criterio bem como por ambos.

http://dl.dropbox.com/u/26441349/CalculosListBox.rar

Enjoy!!

Post que originou a solução para soma de coluna da listBox obedecendo a um critério.

http://maximoaccess.forumeiros.com/t4444-resolvidosoma-em-coluna-de-list-box-com-criterios#37499

Código:

Function SomaColunaFiltro(Y As Integer, Optional N As Integer)
On Error Resume Next
Dim X, soma
ContadorFrango = 0
soma = 0
For X = 1 To Me.lstConsulta.ListCount - 1
If Me.lstConsulta.Column(N, X) = "Frango" Then
ContadorFrango = ContadorFrango + 1
soma = soma + Me.lstConsulta.Column(Y, X)
End If
Next
SomaColunaFiltro = soma
End Function

Observem que no código criei uma variável (ContadorFrango) a ser aplicada nas declarações do módulo
Esta variável comportará o numero que é a quantidade de registros na list com o critério "frango"

Este variável será utilizada para o preencimento da caixa texto no form para dar a média do Peso MedioFrango:

No Inicio do Módulo:

Código:

Option Compare Database
Option Explicit
Dim ContadorFrango As Integer


Ao carregar a caixa texto no form:
Perceba que há na função referencia as duas colunas que serão utilizadas no código
1 - Coluna Soma
2 - Coluna Criterio

Me.txtPesoMedioFrango = SomaColunaFiltro(12, 9) / ContadorFrango