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čen preizkus (30-dan) 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 orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
