Πώς να μετρήσετε ή να αθροίσετε κελιά με συγκεκριμένο χρώμα στο Excel

Λήψη παραδείγματος βιβλίου εργασίας

Κάντε λήψη του παραδείγματος βιβλίου εργασίας

Αυτό το σεμινάριο θα σας δείξει πώς να μετράτε ή να αθροίζετε κελιά συγκεκριμένου χρώματος φόντου χρησιμοποιώντας VBA.

Εξετάστε το ακόλουθο εύρος στο Excel.

Δεν υπάρχει ενσωματωμένη συνάρτηση Excel για την καταμέτρηση χρωματισμένων κελιών. Αντ 'αυτού, πρέπει να δημιουργήσουμε μια συνάρτηση καθορισμένη από το χρήστη χρησιμοποιώντας VBA.

Καταμέτρηση κελιών - Δημιουργήστε μια προσαρμοσμένη συνάρτηση VBA

Η καταμέτρηση του αριθμού των κελιών ενός συγκεκριμένου χρώματος με τη χρήση VBA είναι θέμα δημιουργίας μιας συνάρτησης που καθορίζεται από το χρήστη (UDF) που θα περνάει σε όλα τα κελιά της περιοχής και θα καθορίζει εάν το χρώμα φόντου κάθε κελιού ταιριάζει με το χρώμα φόντου που εσείς δοκιμάζουν και στη συνέχεια χρησιμοποιούν αυτήν τη συνάρτηση στο φύλλο εργασίας του Excel.

Στο VBA, δημιουργούμε μια συνάρτηση για την καταμέτρηση επιλεγμένων κελιών.

12345678910111213141516

Λειτουργία CountCellsByColor (rng ως εύρος, ColorCell ως εύρος) ως διπλόDim dblCount As DoubleDim rngCell As Range'Βρόχος μέσα από κάθε κελί της περιοχήςΓια κάθε rngCell Σε rng«ελέγξτε αν το εσωτερικό χρώμα είναι το ίδιο χρώμα με το κελί που έχετε επιλέξειΕάν rngCell.Interior.Color = ColorCell.Interior.Color ΤότεΕάν IsNumeric (rngCell.Value) = True Τότε"αυξήστε τον αριθμό κατά 1 εάν το χρώμα είναι σωστό.dblCount = dblCount + 1Τέλος εανΤέλος εανΕπόμενο"Επιστρέψτε την τιμή στο ExcelCountCellsByColor = dblCountΛειτουργία Τέλους

Στη συνέχεια, χρησιμοποιήστε αυτήν τη συνάρτηση στο φύλλο εργασίας για να επιστρέψετε την τιμή.

1	= CountCellsByColor (B2: E10, G4)

1. Κάντε κλικ στο πορτοκαλί κελί στο G4 και κάντε κλικ στην επιλογή Εισαγωγή συνάρτησης.

2. Επιλέγω Ορισμένο από τον χρήστη ως κατηγορία και, στη συνέχεια, επιλέξτε CountCellsByColor ως συνάρτηση προς χρήση.

3. Κάντε κλικ Εντάξει.

4. Επισημάνετε το εύρος που περιέχει όλα τα έγχρωμα κελιά.

5. Επίλεξε το ColorCellκαι, στη συνέχεια, κάντε κλικ στο κουμπί Εντάξει.
   

Επαναλάβετε τη διαδικασία για να μετρήσετε τα κελιά με χρώμα πράσινου φόντου.

1	= CountCellsByColor (B2: E10, G5)

Sum Cells - Δημιουργήστε μια προσαρμοσμένη συνάρτηση VBA

Δημιουργούμε μια παρόμοια προσαρμοσμένη συνάρτηση στο VBA για να αθροίσουμε τις τιμές των κελιών ενός συγκεκριμένου χρώματος.

12345678910111213141516

Λειτουργία SumCellsByColor (rng ως εύρος, ColorCell ως εύρος) ως διπλόDim dblSum As DoubleDim rngCell As Range'Βρόχος μέσα από κάθε κελί της περιοχήςΓια κάθε rngCell Σε rng«ελέγξτε αν το εσωτερικό χρώμα είναι το ίδιο χρώμα με το κελί που έχετε επιλέξειΕάν rngCell.Interior.Color = ColorCell.Interior.Color ΤότεΕάν IsNumeric (rngCell.Value) = True Τότε"προσθέστε την τιμή στη μεταβλητή σας εάν το χρώμα είναι σωστόdblSum = dblSum + rngCell.ValueΤέλος εανΤέλος εανΕπόμενο"Επιστρέψτε την τιμή στο ExcelSumCellsByColor = dblSumΛειτουργία Τέλους

Στη συνέχεια, θα χρησιμοποιήσουμε για άλλη μια φορά αυτήν τη συνάρτηση στο φύλλο εργασίας για να συνοψίσουμε τα απαιτούμενα κελιά.

1	= SumCellsByColor (B2: E10, G7)