Note: The other languages of the website are Google-translated. Back to English

Πώς να αθροίσετε / μετρήσετε έντονους αριθμούς σε μια σειρά κελιών στο 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;


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (22)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, χρησιμοποιώντας το excel 2013 Ολλανδικά με το kutools 6.5 αλλά δεν μπορώ να σιωπήσω χρησιμοποιώντας τη διάταξη ανάγνωσης. ρωτήστε πριν φωνάξετε να λυθεί σε αυτή την έκδοση ???
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]γεια σας, χρησιμοποιώ το excel 2013 Dutch with kutools 6.5 αλλά δεν μπορώ να σιωπήσω χρησιμοποιώντας τη διάταξη ανάγνωσης. ρωτήστε πριν φωνάξετε να λυθεί σε αυτή την έκδοση ???Από kersten[/quote] Γεια, παρακαλώ επικοινωνήστε μαζί μου στο jaychivo#extendoffice.com. Αντικαταστήστε το # με @. :-)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος μέτρησης με βάση το χρώμα του κελιού εάν το κείμενο είναι έντονο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΑΥΤΟ ΕΙΝΑΙ ΦΟΒΕΡΟ !!!! Δούλεψε τέλεια!! Σας ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτουργεί τέλεια εκτός από το ότι δεν φαίνεται να προσθέτει τα δεκαδικά ψηφία μου, προσθέτει μόνο ολόκληρο το δολάριο. Αν έχετε μια λύση για αυτό θα σας ήμουν πολύ ευγνώμων.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Katie, Χρησιμοποιήστε τον παρακάτω κωδικό, καθώς το άθροισμα δείχνει δεκαδικά ψηφία. Συνάρτηση SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 Για κάθε rCell In rng Αν rCell.Font.Bold Τότε _ SumBold = SumBold + rCell Επόμενο Τέλος Συνάρτηση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτουργεί μια απόλαυση. Έχω μόνο ένα θέμα...δεν φαίνεται να προσθέτει τίποτα μετά από υποδιαστολή. Οποιαδήποτε βοήθεια θα εκτιμηθεί ιδιαίτερα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ... δουλεύει...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αντέγραψα και επικόλλησα κώδικα στο excel αλλά έλαβα το #NAME; λάθος. Φρόντισα να ενεργοποιήσω τις μακροεντολές και να χρησιμοποιήσω την έκδοση excel 2010 (δεν ξέρω αν αυτό αλλάζει κάτι). Μπορεί κάποιος να βοηθήσει;!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Αντέγραψα και επικόλλησα κώδικα στο excel αλλά έλαβα το #NAME; λάθος. Φρόντισα να ενεργοποιήσω τις μακροεντολές και να χρησιμοποιήσω την έκδοση excel 2010 (δεν ξέρω αν αυτό αλλάζει κάτι). Μπορεί κάποιος να βοηθήσει;!Από τον Maey[/quote] Πρέπει να ακολουθήσετε τις οδηγίες. Λέει: "Κάντε κλικ στο Insert > Module, και επικολλήστε τον ακόλουθο κώδικα στο παράθυρο Module", και πρέπει να κάνετε ακριβώς αυτό. Βεβαιωθείτε ότι έχετε επικολλήσει τον κωδικό στο παράθυρο της μονάδας και όχι στο παράθυρο του κώδικα φύλλου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ το excel για mac 2011. Πώς μπορώ να εκτελέσω τον κώδικα στο σύστημά μου; ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
RE: Τύπος CountBold Αυτός ο τύπος δεν φαίνεται να είναι δυναμικός. Ενώ λειτουργεί στο πρώτο πέρασμα, αν αλλάξω τα έντονα κελιά, οι μετρητές δεν ενημερώνονται εκτός και αν εισαγάγω ξανά τον τύπο. Κάποιες συμβουλές;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ναι, αυτό είναι το ίδιο για μένα, διαφορετικά λειτουργεί τέλεια. Αλλά αν αυτό μπορούσε να λυθεί έτσι ώστε να ανανεώνεται η μέτρηση μετά την αποεπιλογή κάθε κελιού όπως άλλες βασικές μετρήσεις, θα ήταν τέλειο!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητοί τύποι,
Ο τύπος δεν θα ενημερωθεί εάν απλώς αλλάξετε τη μορφή των αριθμητικών κελιών.
Ενημερώνεται μόνο όταν αλλάζετε το περιεχόμενο του κελιού.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
А если в ячейках числа и κείμενο; надо просуммировать только ячейки со числами жирным шрифтом.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Κάρλο,

Gald να βοηθήσει. Αφού προσθέσετε έντονα νέα κελιά, το άθροισμα δεν θα ενημερώνεται αυτόματα. Αλλά όταν κάνετε διπλό κλικ στο κελί του τύπου και, στη συνέχεια, πατήσετε Enter, το άθροισμα θα ενημερωθεί. Δοκιμάστε.

Με αγάπη,
Mandy
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Mandy,
Ευχαριστώ για την απάντησή σας,
Ναι, ξέρω ότι μετά από διπλό κλικ το άθροισμα θα μειωθεί.
Υπάρχει κάποιος τρόπος αυτόματης αναβάθμισης του αθροίσματος;

Χαιρετισμούς
Carlo
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Κάρλο,

Λυπούμαστε που δεν έχω τη λύση για την αυτόματη αναβάθμιση του ποσού. Ο ευκολότερος τρόπος που μπορώ να σκεφτώ είναι να πατήσω Ctrl + Alt + F9 για να υπολογίσω ξανά όλα τα φύλλα εργασίας σε όλα τα ανοιχτά βιβλία εργασίας. Να εχεις μια ωραια μερα.

Με αγάπη,
Mandy
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ τη συνάρτηση και συνεχίζω να λαμβάνω το #NAME; λάθος. Χρησιμοποιώ Excel 365 και Windows11.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Αντώνη

Έχετε αντιγράψει και επικολλήσει τον κώδικα στο Μονάδα μέτρησης of Παράθυρο Microsoft Visual Basic for Applications στο φύλλο εργασίας σας; Μετά την επικόλληση του κώδικα, λοιπόν, θα πρέπει να εισαγάγετε τον τύπο όπως χρειάζεστε.

Ή μπορείτε να ανεβάσετε το αρχείο σας εδώ, μπορούμε να ελέγξουμε πού είναι το πρόβλημα.

Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Άντονι,
Αντιμετώπιζα το ίδιο πρόβλημα. Για μένα, η λύση κατέληξε να είναι πολύ απλή. Παρατήρησα ότι είχα 4 ενότητες στη λίστα. Τα αφαίρεσα όλα και μετά ξεκίνησα από την αρχή με τις παραπάνω οδηγίες. Τώρα λειτουργεί τέλεια.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL