Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս Excel- ում մի շարք բջիջներում ամփոփել / հաշվել համարձակ թվերը:

Երբ ունեք տվյալների տիրույթ, որը աշխատանքային թերթում պարունակում է համարձակ թվեր, և այժմ ցանկանում եք ամփոփել կամ հաշվել միայն համարձակ բջիջները, իհարկե, դրանք մեկ առ մեկ կարող եք ավելացնել ձեռքով, բայց դա ժամանակատար է: Ինչպե՞ս կարող եք Excel- ում պարզ և հաշվել համարձակ բջիջները հեշտ և արագ եղանակով:

Հաշվի՛ր համարձակ թվեր տիրույթում ՝ օգտագործողի կողմից սահմանված գործառույթով (VBA և բանաձև)
Օգտատիրոջ կողմից սահմանված գործառույթի (VBA և բանաձև) հետ մի շարք համարձակ թվեր:
Մի քանի կտտացրեք համարձակ բջիջները հաշվելու և գումարելու համար Excel- ի համար նախատեսված Kutools- ի հետ մի շարք


Հաշվի՛ր համարձակ թվեր տիրույթում ՝ օգտագործողի կողմից սահմանված գործառույթով

Հետեւյալ Օգտագործողի սահմանած գործառույթը կարող է օգնել ձեզ արագորեն ստանալ համարձակ բջիջների քանակը: Խնդրում եմ, արեք այսպես.

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

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) դատարկ բջիջի մեջ, տես նկարի նկարը.

դոկ-հաշվարկել-համարձակ բջիջներ 1

4, Դրանից հետո սեղմեք Մտնել ստեղնը, և դուք կհաշվեք համարձակ բջիջները A1: C9 տիրույթում:

դոկ-հաշվարկել-համարձակ բջիջներ 2

Նշում:A1: C9 բանաձևում նշվում է այն տիրույթը, որը ցանկանում եք օգտագործել գործառույթը համարձակ բջիջները հաշվելու համար, այն կարող եք փոխել որպես ձեր կարիքը:


Օգտատիրոջ կողմից սահմանված գործառույթի հետ մի շարք համարձակ թվեր

Եվ եթե տվյալների տիրույթում ցանկանում եք ամփոփել միայն համարձակ թվերը, ապա ես կարող եմ նաև ստեղծել օգտագործողի կողմից սահմանված գործառույթ, որպեսզի այն լուծվի:

1. Անջատեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

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, Ապա պահեք այս կոդը և մուտքագրեք այս բանաձևը = գումարած (A1: C9) դատարկ բջիջի մեջ, տես նկարի նկարը.

դոկ-հաշվարկել-համարձակ բջիջներ 3

4. Եվ հետո սեղմեք Մտնել բանալին, A1: C9 տիրույթի բոլոր համարձակ համարները գումարվել են: Տեսեք,

դոկ-հաշվարկել-համարձակ բջիջներ 4

Նշում:A1: C9 բանաձևում նշվում է այն տիրույթը, որը ցանկանում եք օգտագործել գործառույթը ՝ համարձակ բջիջներն ամփոփելու համար, այն կարող եք փոխել ըստ ձեր կարիքի:


Մի քանի կտտացրեք համարձակ բջիջները հաշվելու և գումարելու համար Excel- ի համար նախատեսված Kutools- ի հետ մի շարք

YԴուք կարող եք հեշտությամբ հաշվել կամ ամփոփել բոլոր համարձակ բջիջները մի շարք կտտոցներով ՝ առանց բարդ VBA կոդի հետ աշխատելու և բանաձևեր հիշելու:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Համարձակ բջիջները հաշվելու համար ընտրեք դատարկ բջիջ արդյունքը գտնելու համար, ապա կտտացրեք Կուտոլս > Kutools գործառույթները > Վիճակագրական և մաթեմատիկա > COUNTBYFONTBOLD.

Իսկ համարձակ բջիջներն ամփոփելու համար կտտացրեք Կուտոլս > Kutools գործառույթները > Վիճակագրական և մաթեմատիկա > SUMBYFONTBOLD, Տեսեք,

2. Ֆ-ումunction Փաստարկներ երկխոսության տուփ, նշեք համարձակ բջիջներով այն տիրույթը, որը դուք պետք է հաշվեք կամ գումարեք Հղման վանդակում, ապա կտտացրեք այն OK կոճակը:

Այժմ նշված տիրույթում գտնվող բոլոր համարձակ բջիջների հաշվարկը կամ ամփոփումը անմիջապես լրացվում են ընտրված խցում: Տեսեք,

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Excel- ի համար Kutools- ի հետ անընդհատ պահեք բանաձևի բջիջների տեղեկանքը


Առնչվող հոդվածներ:

Ինչպե՞ս ընտրել և ընտրել Excel- ում բոլոր համարձակ բջիջները կամ տեքստերը:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, 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