Kako seštevati / šteti krepke številke v obsegu celic v Excelu?
Če imate na delovnem listu obseg podatkov, ki vsebuje nekaj krepkih številk, zdaj pa želite povzeti ali prešteti samo krepke celice, jih lahko seveda seštevate ročno, vendar bo to zamudno. Kako bi lahko na preprost in hiter način sešteli ali prešteli samo krepke celice v Excelu?
Štetje krepkih števil v območju z uporabniško določeno funkcijo (VBA in formula)
Povzemite krepke številke v obsegu z uporabniško določeno funkcijo (VBA in formula)
Več jih klikne za štetje in strnitev krepkih celic v obsegu s programom Kutools za Excel
Številčne krepke številke štejte v območju z uporabniško določeno funkcijo
Naslednja Uporabniško določena funkcija vam lahko pomaga hitro pridobiti število krepkih celic. Naredite to:
1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: štetje krepkih številk v območju celic
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. Nato shranite to kodo in vnesite to formulo = CountBold (A1: C9) v prazno celico si oglejte posnetek zaslona:
4. Nato pritisnite Vnesite tipko in šteli boste krepke celice v območju A1: C9.
Opomba:A1: C9 v formuli označuje obseg, za katerega želite uporabiti funkcijo za štetje krepkih celic, jo lahko spremenite po svoji potrebi.
Povzemite krepke številke v obsegu z uporabniško določeno funkcijo
In če želite v območju podatkov strniti samo krepke številke, lahko ustvarim tudi uporabniško določeno funkcijo, ki jo boste rešili.
1. Drži dol ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Povzemite krepke številke v območju celic
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. Nato shranite to kodo in vnesite to formulo = povzetek (A1: C9) v prazno celico si oglejte posnetek zaslona:
4. In nato pritisnite Vnesite tipka, so bile vse krepke številke v območju A1: C9 seštete. Oglejte si posnetek zaslona:
Opomba:A1: C9 v formuli označuje obseg, za katerega želite uporabiti funkcijo za seštevanje krepkih celic, jo lahko spremenite po potrebi.
Več jih klikne za štetje in strnitev krepkih celic v obsegu s programom Kutools za Excel
YZ lahkoto lahko štejete ali seštejete vse krepke celice v obsegu z več kliki, ne da bi obdelovali zapleteno kodo VBA in si zapomnili formule.
Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.
1. Za štetje krepkih celic izberite prazno celico za iskanje rezultata in kliknite Kutools > Kutools funkcije > Statistični in matematika > COUNTBYFONTBOLD.
Za seštevanje krepkih celic kliknite Kutools > Kutools funkcije > Statistični in matematika > SUMBYFONTBOLD. Oglejte si posnetek zaslona:
2. V Function Argumenti v pogovornem oknu določite obseg s krepkimi celicami, ki jih želite prešteti ali vsoto v referenčnem polju, nato pa kliknite OK gumb.
Zdaj se štetje ali seštevanje vseh krepkih celic v določenem obsegu takoj naseli v izbrano celico. Oglejte si posnetek zaslona:
Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
V programu Kutools za Excel naj bo referenca celice formule konstantna
Sorodni članki:
Kako prepoznati in izbrati vse krepke celice ali besedilo v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!