Salt la conținutul principal

Cum să sumați / să numărați numere aldine într-o gamă de celule din Excel?

Când aveți un interval de date care conține câteva numere îndrăznețe într-o foaie de lucru, iar acum doriți să însumați sau să numărați numai celulele aldine, desigur le puteți adăuga una câte una manual, dar va consuma mult timp. Cum ați putea însuma sau număra doar celulele îndrăznețe din Excel într-un mod ușor și rapid?

Numărați numere aldine într-un interval cu funcția definită de utilizator (VBA și formulă)
Sumați numerele aldine într-un interval cu funcția definită de utilizator (VBA și formulă)
Mai mulți fac clic pentru a număra și a suma celulelor îndrăznețe într-un interval cu Kutools pentru Excel


Numărați numerele aldine într-un interval cu funcția definită de utilizator

Următoarele Funcție definită de utilizator vă poate ajuta să obțineți rapid numărul de celule îndrăznețe. Vă rugăm să faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: Numărați numere aldine într-o gamă de celule

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. Apoi salvați acest cod și tastați această formulă = CountBold (A1: C9) într-o celulă goală, vezi captura de ecran:

doc-count-bold-celule1

4. Apoi apăsați Intrați tasta și veți număra celulele aldine din intervalul A1: C9.

doc-count-bold-celule2

Notă:A1: C9 în formulă indică intervalul pe care doriți să îl utilizați pentru a număra celulele aldine, îl puteți schimba după cum doriți.


Sumați numerele aldine într-un interval cu funcția definită de utilizator

Și dacă doriți să însumați doar numerele aldine dintr-un interval de date, pot crea, de asemenea, o funcție definită de utilizator pentru a o rezolva.

1. Țineți apăsată tasta ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: Sumați numerele aldine într-o gamă de celule

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. Apoi salvați acest cod și tastați această formulă = sumbold (A1: C9) într-o celulă goală, vezi captura de ecran:

doc-count-bold-celule3

4. Și apoi apăsați Intrați tasta, toate numerele aldine din gama A1: C9 au fost adăugate. Vedeți captura de ecran:

doc-count-bold-celule4

Notă:A1: C9 în formula indică intervalul pe care doriți să îl utilizați pentru a însuma celulele aldine, îl puteți schimba în funcție de nevoile dvs.


Mai mulți fac clic pentru a număra și a suma celulelor îndrăznețe într-un interval cu Kutools pentru Excel

YPuteți număra sau suma cu ușurință toate celulele îndrăznețe dintr-un interval cu mai multe clicuri fără a gestiona codul VBA complicat și a aminti formule.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Pentru numărarea celulelor aldine, selectați o celulă goală pentru localizarea rezultatului, apoi faceți clic pe Kutools > Funcții Kutools > Statistică și matematică > COUNTBYFONTBOLD.

Și pentru a însuma celule îndrăznețe, faceți clic pe Kutools > Funcții Kutools > Statistică și matematică > SUMBYFONTBOLD. Vedeți captura de ecran:

2. În Fargumente unction caseta de dialog, specificați intervalul cu celule aldine pe care trebuie să le numărați sau să le sumați în caseta de referință, apoi faceți clic pe OK butonul.

Acum, numărarea sau însumarea tuturor celulelor aldine din intervalul specificat sunt populate imediat în celula selectată. Vedeți captura de ecran:

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Păstrați constantă referința celulei de formulă cu Kutools pentru Excel


Articole pe aceeași temă:

Cum se identifică și se selectează toate celulele sau textele aldine din Excel?

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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