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

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

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

Μετρήστε έντονους αριθμούς σε ένα εύρος με τη λειτουργία που καθορίζεται από τον χρήστη (VBA και τύπος)
Αθροίστε τους έντονους αριθμούς σε ένα εύρος με τη λειτουργία που καθορίζεται από το χρήστη (VBA και τύπος)
Αρκετά κλικ για να μετρήσετε και να αθροίσετε έντονα κελιά σε μια σειρά με το Kutools για Excel


Μετρήστε τους έντονους αριθμούς σε ένα εύρος με τη λειτουργία που καθορίζεται από το χρήστη

Ο ακόλουθος Λειτουργία καθορισμένη από τον χρήστη μπορεί να σας βοηθήσει να λάβετε γρήγορα τον αριθμό των τολμηρών κελιών. Κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.

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

Κωδικός VBA: Καταμέτρηση έντονων αριθμών σε μια σειρά κελιών

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Στη συνέχεια, αποθηκεύστε αυτόν τον κωδικό και πληκτρολογήστε αυτόν τον τύπο = CountBold (A1: C9) σε ένα κενό κελί, δείτε το στιγμιότυπο οθόνης:

doc-count-bold-κελιά1

4. Στη συνέχεια πατήστε εισάγετε και θα μετρήσετε τα έντονα κελιά στην περιοχή A1: C9.

doc-count-bold-κελιά2

Σημείωση:Α1: Γ9 στον τύπο δείχνει το εύρος που θέλετε να χρησιμοποιήσετε τη συνάρτηση για να μετρήσετε τα έντονα κελιά, μπορείτε να το αλλάξετε ανάλογα με τις ανάγκες σας.


Αθροίστε τους έντονους αριθμούς σε ένα εύρος με τη λειτουργία που καθορίζεται από το χρήστη

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

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.

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

Κωδικός VBA: Αθροίστε τους έντονους αριθμούς σε μια περιοχή κελιών

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Στη συνέχεια, αποθηκεύστε αυτόν τον κωδικό και πληκτρολογήστε αυτόν τον τύπο = sumbold (A1: C9) σε ένα κενό κελί, δείτε το στιγμιότυπο οθόνης:

doc-count-bold-κελιά3

4. Και στη συνέχεια πατήστε εισάγετε πλήκτρο, έχουν προστεθεί όλοι οι έντονοι αριθμοί στην περιοχή A1: C9. Δείτε το στιγμιότυπο οθόνης:

doc-count-bold-κελιά4

Σημείωση:Α1: Γ9 στον τύπο δείχνει το εύρος που θέλετε να χρησιμοποιήσετε τη συνάρτηση για να αθροίσετε τα έντονα κελιά, μπορείτε να το αλλάξετε ανάλογα με τις ανάγκες σας.


Αρκετά κλικ για να μετρήσετε και να αθροίσετε έντονα κελιά σε μια σειρά με το Kutools για Excel

YΜπορείτε εύκολα να μετρήσετε ή να αθροίσετε όλα τα έντονα κελιά σε ένα εύρος με αρκετά κλικ χωρίς να χειριστείτε περίπλοκο κώδικα VBA και να θυμάστε τους τύπους.

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

1. Για να μετρήσετε έντονα κελιά, επιλέξτε ένα κενό κελί για τον εντοπισμό του αποτελέσματος και, στη συνέχεια, κάντε κλικ στο Kutools > Λειτουργίες Kutools > Στατιστική & Μαθηματικά > COUNTBYFONTBOLD.

Και για να αθροίσετε έντονα κελιά, κάντε κλικ στο Kutools > Λειτουργίες Kutools > Στατιστική & Μαθηματικά > SUMBYFONTBOLD. Δείτε το στιγμιότυπο οθόνης:

2. Στο FΕπιχειρήματα πλαίσιο διαλόγου, καθορίστε το εύρος με έντονα κελιά που πρέπει να μετρήσετε ή να αθροίσετε στο πλαίσιο αναφοράς και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

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

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Διατηρήστε σταθερή την αναφορά κελιών τύπου με το Kutools για Excel


Σχετικά Άρθρα:

Πώς να αναγνωρίσετε και να επιλέξετε όλα τα έντονα κελιά ή κείμενο στο Excel;

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

🤖 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 (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello Anthony,
I was struggling with the same problem. For me, the solution ended up being very simple. I noticed I had 4 Modules listed. I removed all of them and then started over with the above instructions. Now it works perfectly.
This comment was minimized by the moderator on the site
I use the function and keep getting the #NAME? error. I am using Excel 365 and Windows11.
This comment was minimized by the moderator on the site
Hello, Anthony

Have you copied and pasted the code into the Module of Microsoft Visual Basic for Applications window in your worksheet? Afetr pasting the code, then, you should enter the formula as you need.

Or you can upload your file here, we can check where the problem is.

Thank you!
This comment was minimized by the moderator on the site
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
This comment was minimized by the moderator on the site
Hello Carlo,

Gald to help. After you bold new cells, the sum won't update automatically. But when you double-click the formula cell, then press Enter, the sum will update. Please have a try.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hi Mandy,
thanks for your reply,
Yes I know that after double click the sum will uograde.
Is there any way to upgrade automatically the sum ?

Regards
Carlo
This comment was minimized by the moderator on the site
Hello Carlo,

Sorry that I don't have the solution for automatically upgrading the sum. The easiest way I can think of is to press Ctrl + Alt + F9 to recalculate all worksheets in all open workbooks. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
This comment was minimized by the moderator on the site
RE: CountBold formula This formula does not appear to be dynamic. While it works at first pass, if i change the bolded cells the counters do not update unless i re-enter the formula again. Any tips?
This comment was minimized by the moderator on the site
Yea this is the same for me, otherwise it works great. But if this could be solved so it refreshes the count after each cell deselect like other basic counts it would be perfect!
This comment was minimized by the moderator on the site
Dear guys,
The formula won't update if you just change the format of the number cells.
It updates only when you change the cell content.
This comment was minimized by the moderator on the site
I'm using excel for mac 2011. How can I run the code on my system? thanks!
This comment was minimized by the moderator on the site
I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!
This comment was minimized by the moderator on the site
[quote]I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!By Maey[/quote] You have to follow the instruction. It says: "Click Insert > Module, and paste the following code in the Module Window", and you have to do exactly so. Make sure you paste the code in the Module Window, not in the Sheet code Window.
This comment was minimized by the moderator on the site
Thank you.. it's working...
This comment was minimized by the moderator on the site
This works a treat. I only have one issue...it doesn't seem to be adding anything after a decimal point. Any help would be greatly appreciated.
This comment was minimized by the moderator on the site
This works perfectly except it doesn't seem to add my decimal places, only adds the whole dollar. If you have a fix for this I would be very grateful.
This comment was minimized by the moderator on the site
Hi Katie, Use the below code, as the sum shows decimal places. Function SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 For Each rCell In rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Function
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations