Se è un database di access
crea una query della tabella con conta record
vai in modifica query e aggiungi
Where TuoCampoNumerico <> 0;
Se invece parli "impropriamente" di db in excel puoi risolvere con una macro
Con il codice
- Codice: Seleziona tutto
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Conti le righe piene della colonna A (cambia sia nomefoglio e colonna adattandola alla tua esigenza)
Poi aggiungi
Conta = 0
For RR = 1 to UR
If Worksheets("Foglio1").Range("A" & RR).value <> 0 then Conta = Conta+1
next RR
Msgbox Conta
End Sub
Oppure con una formula
- Codice: Seleziona tutto
=CONTA.SE(A1:A100;"<>0")
Il range A1:A100 adattalo alla tua colonna con i numeri