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 clic i gyfrif a chrynhoi celloedd trwm mewn ystod gyda Kutools for 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:
4. Yna pwyswch Rhowch allwedd, a byddwch yn cyfrif y celloedd beiddgar yn yr ystod A1: C9.
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:
4. Ac yna pwyswch Rhowch yn allweddol, mae'r holl rifau beiddgar yn yr ystod A1: C9 wedi'u hadio. Gweler y screenshot:
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 clic i gyfrif a chrynhoi celloedd trwm mewn ystod gyda Kutools for 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 for 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 cell fformiwla yn gyson â Kutools for Excel
Erthyglau perthnasol:
Sut i adnabod a dewis pob cell neu destun beiddgar yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
