Σε αυτό το άρθρο, θα δημιουργήσουμε μια προσαρμοσμένη συνάρτηση για την καταμέτρηση των μοναδικών τιμών στο καθορισμένο εύρος.
Τα ακατέργαστα δεδομένα για αυτό το παράδειγμα αποτελούνται από τυχαίους αριθμούς στις γραμμές. Σε αυτό το παράδειγμα, θέλουμε να μετρήσουμε τον αριθμό των μοναδικών αριθμών σε κάθε σειρά.
Δημιουργήσαμε την προσαρμοσμένη συνάρτηση "CountUniqueValues" για να βρούμε τον αριθμό των μοναδικών αριθμών στη σειρά. Αυτή η συνάρτηση παίρνει εύρος ως είσοδο και επιστρέφει το μοναδικό πλήθος αριθμών.
Λογική εξήγηση
Δημιουργήσαμε μια προσαρμοσμένη συνάρτηση "CountUniqueValues" για να λάβουμε τον αριθμό των μοναδικών αριθμών. Σε αυτήν την προσαρμοσμένη συνάρτηση, έχουμε δημιουργήσει αντικείμενο του αντικειμένου συλλογής. Αυτό το αντικείμενο συλλογής χρησιμοποιείται για τη δημιουργία της λίστας μοναδικών αριθμών. Μόλις έχουμε τη λίστα με τους μοναδικούς αριθμούς, παίρνουμε τον αριθμό των στοιχείων στη συλλογή.
Επεξήγηση κώδικα
Εφαρμογή. Το πτητικό χρησιμοποιείται επειδή επανυπολογίζει κάθε φορά που αλλάζει μια τιμή κελιού στο βιβλίο εργασίας.
On Error Resume Next χρησιμοποιείται για τον χειρισμό σφαλμάτων.
Ακολουθήστε παρακάτω για τον κωδικό
Επιλογή ρητή λειτουργία , CStr (CellValue) 'add the unique item Next' Επιστρέφοντας τον αριθμό των μοναδικών τιμών CountUniqueValues = UniqueValues.Count End Function
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email