Conte utilizzare in modo esclusivo VBA in Microsoft Excel 2010
In questo articolo, creeremo una funzione personalizzata per contare i valori univoci nell’intervallo definito.
I dati grezzi per questo esempio sono costituiti da numeri casuali nelle righe. In questo esempio, vogliamo contare il numero di numeri univoci in ogni riga.
Abbiamo creato la funzione personalizzata “CountUniqueValues” per trovare il conteggio dei numeri univoci nella riga. Questa funzione accetta l’intervallo come input e restituisce il conteggio univoco dei numeri.
Spiegazione logica
Abbiamo creato la funzione personalizzata “CountUniqueValues” per ottenere il conteggio di numeri univoci. In questa funzione personalizzata, abbiamo creato l’oggetto della raccolta oggetto. Questo oggetto di raccolta viene utilizzato per creare l’elenco di numeri univoci. Una volta ottenuto l’elenco dei numeri univoci, otteniamo il conteggio degli elementi nella raccolta.
Spiegazione del codice
Viene utilizzato Application.Volatile perché verrà ricalcolato ogni volta che il valore di una cella viene modificato nella cartella di lavoro.
On Error Resume Next viene utilizzato per gestire gli errori.
Segui sotto per il codice
Option Explicit Function CountUniqueValues(InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues As New Collection Application.Volatile 'For error Handling On Error Resume Next 'Looping through all the cell in the defined range For Each CellValue In InputRange UniqueValues.Add CellValue, CStr(CellValue) ' add the unique item Next 'Returning the count of number of unique values CountUniqueValues = UniqueValues.Count End Function
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.
Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]