Note: The other languages of the website are Google-translated. Back to English

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:

doc-count-bold-celice1

4. Nato pritisnite Vnesite tipko in šteli boste krepke celice v območju A1: C9.

doc-count-bold-celice2

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:

doc-count-bold-celice3

4. In nato pritisnite Vnesite tipka, so bile vse krepke številke v območju A1: C9 seštete. Oglejte si posnetek zaslona:

doc-count-bold-celice4

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.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (22)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
pozdravljeni, uporabljam excel 2013 nizozemski z kutools 6.5, vendar ne morem uporabljati razporeditve za branje. vprašaj preden se krik reši v tej različici ???
Ta komentar je moderator na spletnem mestu minimiziral
[quote]pozdravljeni, uporabljam excel 2013 nizozemski z kutools 6.5, vendar ne morem uporabljati razporeditve za branje. vprašaj preden se krik reši v tej različici ???Avtor Kersten[/quote] Pozdravljeni, kontaktirajte me na jaychivo#extendoffice.com Prosimo, zamenjajte # z @. :-)
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način za štetje na podlagi barve celice, če je besedilo krepko?
Ta komentar je moderator na spletnem mestu minimiziral
TO JE SUPER !!!! Delovalo je odlično!! Hvala vam
Ta komentar je moderator na spletnem mestu minimiziral
To deluje odlično, le da se zdi, da ne dodaja mojih decimalnih mest, ampak le cel dolar. Če imate rešitev za to, bi bil zelo hvaležen.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Katie, uporabite spodnjo kodo, saj vsota prikazuje decimalna mesta. Funkcija SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 Za vsako rCell v rng Če rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Funkcija
Ta komentar je moderator na spletnem mestu minimiziral
To deluje poslastica. Imam samo eno težavo ... zdi se, da ne dodaja ničesar po decimalni vejici. Vsaka pomoč bi bila zelo hvaležna.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala.. deluje...
Ta komentar je moderator na spletnem mestu minimiziral
Kodo sem kopiral in prilepil v excel, vendar sem dobil #NAME? napaka. Poskrbel sem, da sem omogočil makre in uporabil različico excel 2010 (ne vem, če to kaj spremeni). Ali lahko kdo prosim pomaga?!
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Kopiral sem in prilepil kodo v excel, vendar sem dobil #NAME? napaka. Poskrbel sem, da sem omogočil makre in uporabil različico excel 2010 (ne vem, če to kaj spremeni). Ali lahko kdo prosim pomaga?!Avtor Maey[/quote] Upoštevati morate navodila. Piše: "Kliknite Vstavi > Modul in prilepite naslednjo kodo v okno modula" in to morate storiti natančno. Prepričajte se, da ste kodo prilepili v okno modula, ne v okno s kodo lista.
Ta komentar je moderator na spletnem mestu minimiziral
Uporabljam excel za mac 2011. Kako lahko zaženem kodo v svojem sistemu? hvala!
Ta komentar je moderator na spletnem mestu minimiziral
RE: Formula CountBold Ta formula se ne zdi dinamična. Čeprav deluje ob prvem prehodu, če spremenim odebeljene celice, se števci ne posodobijo, razen če znova vnesem formulo. Kakšen nasvet?
Ta komentar je moderator na spletnem mestu minimiziral
Ja, pri meni je enako, drugače deluje odlično. Toda če bi to lahko rešili tako, da osveži štetje po vsaki prekinitvi izbire celice, kot druga osnovna štetja, bi bilo popolno!
Ta komentar je moderator na spletnem mestu minimiziral
Dragi fantje,
Formula se ne bo posodobila, če samo spremenite obliko številskih celic.
Posodablja se šele, ko spremenite vsebino celice.
Ta komentar je moderator na spletnem mestu minimiziral
A če v jačejkih številu in besedilu? moram prosumirati samo jačejki s številkami maščobnim fontom.
Ta komentar je moderator na spletnem mestu minimiziral
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Carlo,

Gald za pomoč. Ko krepko zapišete nove celice, se vsota ne bo samodejno posodobila. Ko pa dvokliknete celico formule in nato pritisnete Enter, se vsota posodobi. Prosim, poskusite.

S spoštovanjem,
Mandy
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Mandy,
Hvala za vaš odgovor,
Da, vem, da se bo po dvojnem kliku vsota znižala.
Ali obstaja način za samodejno nadgradnjo vsote?

S spoštovanjem
Carlo
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Carlo,

Žal nimam rešitve za samodejno nadgradnjo vsote. Najlažji način, ki si ga lahko zamislim, je, da pritisnete Ctrl + Alt + F9, da preračunate vse delovne liste v vseh odprtih delovnih zvezkih. Imej lep dan.

S spoštovanjem,
Mandy
Ta komentar je moderator na spletnem mestu minimiziral
Uporabljam funkcijo in dobivam #NAME? napaka. Uporabljam Excel 365 in Windows11.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Anthony

Ali ste kodo kopirali in prilepili v Moduli of Okno Microsoft Visual Basic for Applications v vašem delovnem listu? Ko prilepite kodo, morate vnesti formulo, kot jo potrebujete.

Lahko pa svojo datoteko naložite sem, da preverimo, kje je težava.

Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Anthony,
Jaz sem se boril z isto težavo. Zame je bila rešitev na koncu zelo preprosta. Opazil sem, da imam navedene 4 module. Vse sem odstranil in nato začel znova z zgornjimi navodili. Zdaj deluje popolnoma.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL