Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Vi ringrazio,
ma il problema continua ad essere il filtro.
Se io applico, ad esempio, un filtro al campo 1 ho bisogno di contare i valori univoci del campo 2, tenendo conto del fatto che il filtro è stato fatto.
Questa UDF fa quanto chiedi:
Public Function f(ByVal v As Variant) As Long
Dim c As Range
Dim col As Collection
Set col = New Collection
On Error Resume Next
For Each c In v
If Not c.EntireRow.Hidden Then
col.Add CStr(c.Value), CStr(c.Value)
End If
Next
f = col.Count
End Function
Da utilizzare così:
B11: =f(B2:B10)
Conterà un modo univoco quanto filtrato nell'intervallo. Si comporterà come la funzione Subtotale, modificando il totale in base al filtro.
La funzione va copia/incollata in un modulo standard. Se non hai mai utilizzato le UDF, vedi qui: