Μετάβαση στο κύριο περιεχόμενο

Πώς να μετρήσετε / αθροίσετε τα κελιά ανά χρώματα με μορφοποίηση υπό όρους στο Excel;

Στο Excel, μπορείτε να χρωματίσετε ορισμένα κελιά χρησιμοποιώντας μορφοποίηση υπό όρους. Τώρα αυτό το σεμινάριο θα σας πει μερικές εύχρηστες και εύκολες μεθόδους για να μετρήσετε ή να αθροίσετε γρήγορα τα κελιά με χρώμα με μορφοποίηση υπό όρους στο Excel.

Μετρήστε τα κελιά ανά χρώμα γραμματοσειράς και φόντο με VBA

Καταμέτρηση / άθροισμα κελιών ανά χρώμα γραμματοσειράς με μορφοποίηση υπό όρους από το Kutools για Excel καλή ιδέα3      παιχνίδι

Καταμέτρηση / άθροισμα κελιών ανά χρώμα φόντου με μορφοποίηση υπό όρους από το Kutools για Excel καλή ιδέα3      παιχνίδι


βέλος μπλε δεξιά φούσκα Μετρήστε τα κελιά με γραμματοσειρά και χρώμα φόντου με VBA

Στο Excel, μόνο ο κώδικας VBA μπορεί να μετρήσει γρήγορα κελιά με βάση μια συγκεκριμένη γραμματοσειρά και χρώμα φόντου.

1. Τύπος Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης και αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στο αναδυόμενο παράθυρο Μονάδα μέτρησης παράθυρο.

VBA: Καταμέτρηση κελιών βάσει γραμματοσειράς και χρώματος φόντου.

Sub DisplayFormatCount()
	'Updateby20150305
	Dim Rng As Range
	Dim CountRange As Range
	Dim ColorRange As Range
	Dim xBackColor As Long
	Dim xFontColor As Long
	On Error Resume Next
	xTitleId       = "KutoolsforExcel"
	Set CountRange = Application.Selection
	Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
	Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
	Set ColorRange = ColorRange.Range("A1")
	xReturn        = 0
	For Each Rng In CountRange
		qqq           = Rng.Value
		xxx           = Rng.DisplayFormat.Interior.Color
		If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
			xBackColor   = xBackColor + 1
		End If
		If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
			xFontColor = xFontColor + 1
		End If
	Next
	MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub

3. κλικ τρέξιμο πατήστε το κουμπί F5 για να εκτελέσετε τον κώδικα και, στη συνέχεια, επιλέξτε το εύρος που χρειάζεστε στο παράθυρο διαλόγου. Δείτε το στιγμιότυπο οθόνης:
doc-count-by-conditional-color-1

4. κλικ OKκαι, στη συνέχεια, επιλέξτε ένα κελί του οποίου η γραμματοσειρά και το χρώμα φόντου θέλετε να μετρήσετε τα κελιά με βάση. Δείτε το στιγμιότυπο οθόνης:

doc-count-by-conditional-color-2

5. κλικ OK. Στη συνέχεια, εμφανίζεται ένας διάλογος για να σας πει πόσα κελιά έχουν το ίδιο χρώμα φόντου και χρώμα γραμματοσειράς με το επιλεγμένο κελί στην περιοχή.

doc-count-by-conditional-color-3


βέλος μπλε δεξιά φούσκα Καταμέτρηση / άθροισμα κελιών ανά χρώμα γραμματοσειράς με μορφοποίηση υπό όρους από το Kutools για Excel

Στο Excel, δεν μπορείτε να μετρήσετε ή να αθροίσετε τα κελιά με χρώμα γραμματοσειράς μόνο με μορφοποίηση υπό όρους. Ωστόσο, υπάρχει ένα εύχρηστο πρόσθετο Kutools για Excel που μπορεί να σας βοηθήσει να λύσετε γρήγορα αυτό το πρόβλημα με αυτό Μετρήστε ανά χρώμα χαρακτηριστικό.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Επιλέξτε ένα εύρος που θέλετε να μετρήσετε ή αθροίστε τα κελιά με χρώμα γραμματοσειράς με μορφοποίηση υπό όρους και, στη συνέχεια, κάντε κλικ στο Kutools Plus> Μετρήστε ανά χρώμα. Δείτε το στιγμιότυπο οθόνης:

doc-count-by-conditional-color-4

2. Στη συνέχεια, στο Μετρήστε ανά χρώμα διαλόγου, επιλέξτε Μορφοποίηση υπό όρους υπό Μέθοδος χρώματος λίστα και γραμματοσειρά υπό Τύπος χρώματος λίστα. Στη συνέχεια, μπορείτε να δείτε το αποτέλεσμα της μέτρησης και της σύνοψης στο διάλογο. Δείτε το στιγμιότυπο οθόνης:

doc-count-by-conditional-color-5

Note: Εάν θέλετε να εξάγετε το αποτέλεσμα υπολογισμού ως αναφορά, μπορείτε να κάνετε κλικ Δημιουργία αναφοράς in η Μετρήστε ανά χρώμα διαλόγου, τότε μια αναφορά θα δημιουργηθεί σε ένα νέο βιβλίο εργασίας. Δείτε το στιγμιότυπο οθόνης:

doc-count-by-conditional-color-6      doc-count-by-conditional-color-7


Καταμέτρηση / άθροισμα κελιών ανά χρώμα φόντου με μορφοποίηση υπό όρους από το Kutools για Excel

Εάν θέλετε να μετρήσετε ή να αθροίσετε κελιά με χρώμα φόντου με μορφοποίηση υπό όρους, μπορείτε επίσης να κάνετε αίτηση Μετρήστε ανά χρώμα χρησιμότητα του Kutools για Excel.

1. Επιλέξτε ένα εύρος που θέλετε να μετρήσετε ή αθροίστε τα κελιά ανά χρώμα φόντου με μορφοποίηση υπό όρους και, στη συνέχεια, κάντε κλικ στο Kutools Plus > Μετρήστε ανά χρώμα.

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

2. Στη συνέχεια, στο Μετρήστε ανά χρώμα διαλόγου, επιλέξτε Μορφοποίηση υπό όρους υπό Μέθοδος χρώματος λίστα και Ιστορικό υπό Τύπος χρώματος λίστα. Στη συνέχεια, μπορείτε να δείτε το αποτέλεσμα της μέτρησης και της σύνοψης στο διάλογο. Δείτε το στιγμιότυπο οθόνης:

doc-count-by-conditional-color-8

Note: Εάν θέλετε να εξάγετε το αποτέλεσμα υπολογισμού ως αναφορά, μπορείτε να κάνετε κλικ Δημιουργία αναφοράς στο Μετρήστε ανά χρώμα διαλόγου, τότε μια αναφορά θα δημιουργηθεί σε ένα νέο βιβλίο εργασίας. Δείτε το στιγμιότυπο οθόνης:

doc-count-by-conditional-color-9

Κάντε κλικ εδώ για περισσότερα σχετικά με το Count by Color.

Υπόδειξη.Με Μετρήστε ανά χρώμα βοηθητικό πρόγραμμα, μπορείτε επίσης να μετρήσετε/αθροίσετε/υπολογίσετε τον μέσο όρο των κελιών ανά χρώμα φόντου ή χρώματος γραμματοσειράς μόνο με τυπική μορφοποίηση ή και με τυπική και υπό όρους μορφοποίηση. Εάν θέλετε να εφαρμόσετε Count by Color χωρίς περιορισμό σε 30 ημέρες, κάντε λήψη και κάντε μια δωρεάν δοκιμή τώρα.


βέλος μπλε δεξιά φούσκα Υπολογίστε τα κελιά ανά χρώμα γραμματοσειράς ή χρώμα φόντου


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

This is a great piece of VBA and works perfectly. Are you able to modify this code to make it a function and then be used as a formula?

e.g.
=DisplayFormatCount(A14:E14,A2,False) for counting background colour (Count Range, Colour Match Cell, type)

=DisplayFormatCount(C29:D29,A2,True) for counting font colour

I would like to you something like this for an input form of many tables and validation fields that are compulsory. I would then be able to count how many fields that have not been completed correctly.


Cheers
This comment was minimized by the moderator on the site
Could you please teach me VBA codes I would like to learn VBA using excel sheet
This comment was minimized by the moderator on the site
Chào bạn.

VBA đếm ô màu rất hay, tuy nhiên bạn có thể sửa giúp mình để kết quả không hiện thành msg box mà hiện luôn trên ô excel chỉ định được không? thêm cả hàm sum, average nữa thì càng tốt :D . Mail của mình là . Mình cám ơn.
This comment was minimized by the moderator on the site
Hi,
How do I modified the code for the cell contain conditional formatting? Because it count the background as "blank".


Thanks.
This comment was minimized by the moderator on the site
Sorry I have no idea about the VBA code.
This comment was minimized by the moderator on the site
May I congratulate you on a most easily understood and well written VBA program to perform such a simple task - i.e., count the number of cells with a specific color derived from Conditional Formatting. It beats the pants of the monster program by Pearson, and his does not even work, at least in Excel 2013. Nor do other supposed counting programs work that I have tried. Yours is the only one!! This worked perfectly. Thank you, thank you, thank you. Best Holiday Wishes, Mort in Dallas
This comment was minimized by the moderator on the site
hi


kindly send the above VBA code same code is I need please help.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations