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:

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.

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:

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:

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.

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:

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?