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

Sut i gyfri / cyfrif rhifau beiddgar mewn ystod o gelloedd yn Excel?

Pan fydd gennych ystod ddata sy'n cynnwys rhai rhifau beiddgar mewn taflen waith, a nawr rydych chi am grynhoi neu gyfrif y celloedd beiddgar yn unig, wrth gwrs gallwch eu hychwanegu fesul un â llaw, ond bydd yn cymryd llawer o amser. Sut allech chi grynhoi neu gyfrif y celloedd beiddgar yn Excel yn unig gyda ffordd hawdd a chyflym?

Cyfrif rhifau beiddgar mewn ystod gyda Swyddogaeth Diffiniedig Defnyddiwr (VBA a fformiwla)
Swmiwch rifau beiddgar mewn ystod gyda Swyddogaeth Diffiniedig Defnyddiwr (VBA a fformiwla)
Mae sawl un yn clicio i gyfrif a chrynhoi celloedd beiddgar mewn ystod gyda Kutools ar gyfer Excel


Cyfrif rhifau beiddgar mewn ystod gyda Swyddogaeth Diffiniedig Defnyddiwr

Mae'r canlynol Swyddogaeth Diffiniedig Defnyddiwr gall eich helpu i gael nifer y celloedd beiddgar yn gyflym. Gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Cyfrif rhifau beiddgar mewn ystod o gelloedd

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. Yna arbedwch y cod hwn, a theipiwch y fformiwla hon = CountBold (A1: C9) i mewn i gell wag, gweler y screenshot:

doc-count-bold-cealla1

4. Yna pwyswch Rhowch allwedd, a byddwch yn cyfrif y celloedd beiddgar yn yr ystod A1: C9.

doc-count-bold-cealla2

Nodyn:A1: C9 yn y fformiwla yn nodi'r ystod rydych chi am ddefnyddio'r swyddogaeth i gyfrif y celloedd beiddgar, gallwch ei newid fel eich angen.


Swmiwch rifau beiddgar mewn ystod gyda Swyddogaeth Diffiniedig Defnyddiwr

Ac os ydych chi am grynhoi'r rhifau beiddgar yn unig mewn ystod ddata, gallaf hefyd greu swyddogaeth wedi'i diffinio gan y defnyddiwr i chi ei datrys.

1. Dal i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Swm rhifau beiddgar mewn ystod o gelloedd

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. Yna arbedwch y cod hwn, a theipiwch y fformiwla hon = crynhoad (A1: C9) i mewn i gell wag, gweler y screenshot:

doc-count-bold-cealla3

4. Ac yna pwyswch Rhowch yn allweddol, mae'r holl rifau beiddgar yn yr ystod A1: C9 wedi'u hadio. Gweler y screenshot:

doc-count-bold-cealla4

Nodyn:A1: C9 yn y fformiwla yn nodi'r ystod rydych chi am ddefnyddio'r swyddogaeth i grynhoi'r celloedd beiddgar, gallwch ei newid fel eich angen.


Mae sawl un yn clicio i gyfrif a chrynhoi celloedd beiddgar mewn ystod gyda Kutools ar gyfer Excel

Ygall ou gyfrif neu grynhoi pob cell feiddgar mewn ystod gyda sawl clic heb drin cod VBA cymhleth a chofio fformiwlâu.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Ar gyfer cyfrif celloedd beiddgar, dewiswch gell wag ar gyfer lleoli'r canlyniad, ac yna cliciwch Kutools > Swyddogaethau Kutools > Ystadegol a Mathemateg > COUNTBYFONTBOLD.

Ac i grynhoi celloedd beiddgar, cliciwch Kutools > Swyddogaethau Kutools > Ystadegol a Mathemateg > SUMBYFONTBOLD. Gweler y screenshot:

2. Yn y F.dadleuon unction blwch deialog, nodwch yr ystod gyda chelloedd beiddgar y mae angen i chi eu cyfrif neu eu crynhoi yn y blwch Cyfeirio, ac yna cliciwch ar y OK botwm.

Nawr mae cyfrif neu grynhoi'r holl gelloedd beiddgar mewn ystod benodol yn cael eu poblogi mewn cell ddethol ar unwaith. Gweler y screenshot:

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Cadwch gyfeirnod celloedd fformiwla yn gyson â Kutools ar gyfer Excel


Erthyglau perthnasol:

Sut i adnabod a dewis pob cell neu destun beiddgar yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (19)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo, gan ddefnyddio excel 2013 Iseldireg gyda kutools 6.5 ond ni all sill gan ddefnyddio gosodiad darllen. gofyn cyn gweiddi ei datrys yn y fersiwn hwn???
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] helo, gan ddefnyddio Excel 2013 Iseldireg gyda kutools 6.5 ond ni all sill gan ddefnyddio cynllun darllen. gofyn cyn gweiddi ei datrys yn y fersiwn hwn???Gan kersten[/quote] Helo, cysylltwch â mi yn jaychivo#extendoffice.com. Rhowch @ yn lle #. :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i gyfrif yn seiliedig ar liw cell os yw'r testun mewn print trwm?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
MAE HYN YN ARBENNIG !!!! Gweithiodd yn berffaith!! Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n berffaith ac eithrio nid yw'n ymddangos ei fod yn ychwanegu fy lleoedd degol, dim ond yn ychwanegu'r ddoler gyfan. Os oes gennych ateb i hyn byddwn yn ddiolchgar iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Katie, Defnyddiwch y cod isod, gan fod y swm yn dangos lleoedd degol. Swyddogaeth SwmBold(rng Fel Ystod) Dim rCell Fel Ystod Cymhwysiad.Anweddol SumBold = 0 Ar gyfer Pob rCell Mewn rng Os rCell.Font.Bold Yna _ SumBold = SwmBold + rCell Swyddogaeth Diwedd Nesaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio danteithion. Dim ond un mater sydd gennyf... nid yw'n ymddangos ei fod yn ychwanegu dim ar ôl pwynt degol. Byddai unrhyw gymorth yn cael ei werthfawrogi'n fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr... mae'n gweithio...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnes i gopïo a gludo cod i excel ond cael #NAME? gwall. Gwnes yn siŵr i alluogi macros a defnyddio fersiwn excel 2010 (ddim yn gwybod a yw hynny'n newid unrhyw beth). All unrhyw un helpu os gwelwch yn dda?!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfynbris] Fe wnes i gopïo a gludo cod i excel ond cael #NAME? gwall. Gwnes yn siŵr i alluogi macros a defnyddio fersiwn excel 2010 (ddim yn gwybod a yw hynny'n newid unrhyw beth). All unrhyw un helpu os gwelwch yn dda?!Gan Maey[/quote] Mae'n rhaid i chi ddilyn y cyfarwyddyd. Mae'n dweud: "Cliciwch Mewnosod > Modiwl, a gludwch y cod canlynol yn Ffenestr y Modiwl", ac mae'n rhaid i chi wneud yn union hynny. Gwnewch yn siŵr eich bod chi'n gludo'r cod yn Ffenestr y Modiwl, nid yn y Ffenestr Cod Dalen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio excel ar gyfer mac 2011. Sut alla i redeg y cod ar fy system? diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
RE: Fformiwla CountBold Nid yw'n ymddangos bod y fformiwla hon yn ddeinamig. Er ei fod yn gweithio ar y pasiad cyntaf, os byddaf yn newid y celloedd trwm nid yw'r cownteri yn diweddaru oni bai fy mod yn ail-osod y fformiwla eto. Unrhyw awgrymiadau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydy, mae hyn yr un peth i mi, fel arall mae'n gweithio'n wych. Ond pe bai modd datrys hyn fel ei fod yn adnewyddu'r cyfrif ar ôl dad-ddewis pob cell fel cyfrifon sylfaenol eraill byddai'n berffaith!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl bois,
Ni fydd y fformiwla'n diweddaru os ydych chi'n newid fformat y celloedd rhif yn unig.
Mae'n diweddaru dim ond pan fyddwch chi'n newid cynnwys y gell.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ma se metto in grassetto nuove celle, la somma non si aggiorna!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Carlo,

Galed i helpu. Ar ôl i chi wneud celloedd newydd beiddgar, ni fydd y swm yn diweddaru'n awtomatig. Ond pan fyddwch chi'n clicio ddwywaith ar y gell fformiwla, yna pwyswch Enter, bydd y swm yn diweddaru. Rhowch gynnig arni.

Yn gywir,
Mandy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mandy,
diolch am eich ateb,
Ydw, gwn y bydd y swm yn uwchraddio ar ôl clicio ddwywaith.
A oes unrhyw ffordd i uwchraddio'r swm yn awtomatig ?

Regards
Carlo
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Carlo,

Mae'n ddrwg gennyf nad oes gennyf yr ateb ar gyfer uwchraddio'r swm yn awtomatig. Y ffordd hawsaf y gallaf feddwl yw pwyso Ctrl + Alt + F9 i ailgyfrifo'r holl daflenni gwaith ym mhob llyfr gwaith agored. Cael diwrnod braf.

Yn gywir,
Mandy
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir