Ugrás a tartalomra

Hogyan lehet összegezni / számolni a félkövér számokat az Excel cellatartományában?

Ha van olyan adattartománya, amely néhány vastag számot tartalmaz egy munkalapon, és most csak a félkövér cellákat akarja összegezni vagy megszámolni, természetesen manuálisan egyesével is felveheti őket, de ez időigényes lesz. Hogyan lehet egyszerűen és gyorsan összefoglalni vagy megszámolni az Excel félkövér celláit?

Számoljon félkövér számokat egy tartományban a felhasználó által definiált funkcióval (VBA és képlet)
Félkövér számok összegzése egy tartományban a felhasználó által definiált funkcióval (VBA és képlet)
Több kattintással megszámolhatja és összegezheti a félkövér cellákat egy tartományban a Kutools for Excel segítségével


Számoljon félkövér számokat egy tartományban a Felhasználó által definiált funkcióval

A következő Felhasználó által definiált funkció segíthet a félkövér cellák számának gyors megszerzésében. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Számoljon félkövér számokat egy cellatartományban

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. Ezután mentse el ezt a kódot, és írja be ezt a képletet = CountBold (A1: C9) egy üres cellába, lásd a képernyőképet:

doc-count-bold-cellák1

4. Ezután nyomja meg a gombot belép gombot, és meg fogja számolni a félkövér cellákat az A1: C9 tartományban.

doc-count-bold-cellák2

Jegyzet:A1: C9 a képletben jelzi azt a tartományt, amelyet a függvény segítségével használni szeretne a félkövér cellák megszámolásához, igény szerint módosíthatja.


Összegezze a félkövér számokat egy tartományban a Felhasználó által definiált funkcióval

És ha csak az adattartomány félkövér számait akarja összegezni, akkor létrehozhatok egy felhasználó által definiált függvényt is annak megoldására.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Összegezze a félkövér számokat egy cellatartományban

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. Ezután mentse el ezt a kódot, és írja be ezt a képletet = összevont (A1: C9) egy üres cellába, lásd a képernyőképet:

doc-count-bold-cellák3

4. Ezután nyomja meg a gombot belép gombot, az A1: C9 tartomány összes félkövér számát összeadtuk. Lásd a képernyőképet:

doc-count-bold-cellák4

Jegyzet:A1: C9 a képletben jelzi azt a tartományt, amelyet a függvény használatával a félkövér cellák összegzéséhez használni kíván, igény szerint módosíthatja.


Több kattintással megszámolhatja és összegezheti a félkövér cellákat egy tartományban a Kutools for Excel segítségével

YA bonyolult VBA-kód kezelése és a képletek megjegyzése nélkül könnyedén megszámolhatja vagy összesítheti az összes félkövér cellát egy tartományban, több kattintással.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. A félkövér cellák számlálásához válasszon egy üres cellát az eredmény megtalálásához, majd kattintson a gombra Kutools > Kutools funkciók > Statisztikai és matematika > COUNTBYFONTBOLD.

A félkövér cellák összegzéséhez kattintson a gombra Kutools > Kutools funkciók > Statisztikai és matematika > SUMBYFONTBOLD. Lásd a képernyőképet:

2. Az F-benunction Érvek párbeszédpanelen adja meg a referencia mezőben azt a tartományt félkövér cellákkal, amelyeket meg kell számlálnia vagy összegeznie, majd kattintson a gombra OK gombot.

Most a megadott tartomány összes félkövér cellájának számlálása vagy összegzése azonnal be lesz töltve a kiválasztott cellába. Lásd a képernyőképet:

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Tartsa állandóan a képletcella hivatkozását a Kutools for Excel segítségével


Kapcsolódó cikkek:

Hogyan lehet azonosítani és kiválasztani az összes félkövér cellát vagy szöveget az Excelben?

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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