Σε αυτό το άρθρο, θα δημιουργήσουμε μια προσαρμοσμένη συνάρτηση για την καταμέτρηση του αριθμού των κελιών στην περιοχή που έχουν καθορισμένα χρώματα.
Για αυτό το παράδειγμα, τα δείγματα δεδομένων αποτελούνται από μια περιοχή που έχει τιμές που κυμαίνονται μεταξύ 100 και 1000. Οι τιμές στα κελιά επισημαίνονται με διαφορετικά χρώματα. Θέλουμε να βρούμε τον αριθμό κάθε χρώματος.
Για να υπολογίσουμε τον αριθμό ενός συγκεκριμένου χρώματος, έχουμε δημιουργήσει μια προσαρμοσμένη συνάρτηση "CountByColor". Αυτή η συνάρτηση λαμβάνει δύο παραμέτρους εύρους ως είσοδο. Η παράμετρος πρώτης περιοχής ορίζει το εσωτερικό χρώμα του κελιού και η παράμετρος δεύτερης περιοχής ορίζει το εύρος του δείγματος.
Επεξήγηση κώδικα
Εφαρμογή. Το πτητικό χρησιμοποιείται καθώς επανυπολογίζει κάθε φορά που αλλάζει μια τιμή κελιού στο βιβλίο εργασίας.
DefinedColorRange.Interior.ColorIndex
Ο παραπάνω κώδικας χρησιμοποιείται για να πάρει το εσωτερικό χρώμα της καθορισμένης περιοχής.
Ακολουθήστε παρακάτω για τον κωδικό
Λειτουργία CountByColor (DefinedColorRange As Range, CountRange As Range) Εφαρμογή. Μεταβλητές που δηλώνουν πτητικές ιδιότητες Dim ICol As Integer Dim GCell As Range 'Λήψη του εσωτερικού χρώματος του κελιού ICol = DefinedColorRange.Interior.ColorIndex' Looping μέσω του καθορισμένου εύρους για κάθε GCell In CountRange If ICol = GCell.Interior.ColorIndex Στη συνέχεια 'Λήψη του αριθμού των αντιστοιχισμένων χρωματισμένων κυττάρων CountByColor = CountByColor + 1 Τέλος εάν επόμενη συνάρτηση τερματισμού GCell
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email
