Skip i'r prif gynnwys

Sut i gyfrif / symio celloedd trawiadol yn Excel?

Yn Excel, rydym bob amser yn fformatio streic ar gyfer rhai celloedd sy'n nodi bod gwerthoedd y celloedd yn ddiwerth neu'n annilys, fel y gallwn ddadansoddi'r data yn fwy cywir. Yn yr erthygl hon, byddaf yn siarad am sut i wneud rhai cyfrifiadau yn yr ystod gyda'r celloedd trawiadol hyn yn Excel.

Cyfrif celloedd trawiadol yn Excel

Cyfrif heb gelloedd trawiadol yn Excel

Swm ac eithrio celloedd trawiadol yn Excel


swigen dde glas saeth Cyfrif celloedd trawiadol yn Excel

Os ydych chi eisiau gwybod faint o gelloedd sydd â fformat trawiadol mewn ystod, gallwch greu Swyddogaeth Diffiniedig Defnyddiwr, gwnewch y camau canlynol:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

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

Cod VBA: Cyfrif celloedd trawiadol

Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountStrike = xOut
End Function

3. Yna arbed a chau'r cod hwn, a'i ddychwelyd i'r daflen waith, ac yna nodi'r fformiwla hon = CountStrike (A2: B14) i gell wag, gweler y screenshot:

doc-cyfrif-streic-1

4. Yna pwyswch Rhowch allwedd, ac mae'r holl gelloedd trawiadol wedi'u cyfrif. Gweler y screenshot:

doc-cyfrif-streic-1


swigen dde glas saeth Cyfrif heb gelloedd trawiadol yn Excel

Ond, weithiau, efallai yr hoffech chi gyfrif nifer y celloedd arferol yn unig sy'n eithrio'r celloedd trawiadol. Gall y cod canlynol eich helpu chi.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

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

Cod VBA: Cyfrif heb gelloedd trawiadol

Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountNoStrike = xOut
End Function

3. Yna arbed a chau'r cod hwn, ewch yn ôl i'ch taflen waith, teipiwch y fformiwla hon = countnostrike (A2: B14) i mewn i gell wag, a gwasgwch Rhowch allwedd, yna byddwch yn cael y canlyniad sydd ei angen arnoch.

doc-cyfrif-streic-1

Nodyn: Yn y fformwlâu uchod, A2: B14 yw'r ystod rydych chi am gymhwyso'r fformwlâu.


swigen dde glas saeth Swm ac eithrio celloedd trawiadol yn Excel

Oherwydd nad yw'r celloedd streic yn cael eu defnyddio, yma, rwyf am grynhoi'r rhifau arferol yn unig heb y rhifau trawiadol. I ddatrys y dasg hon, mae angen Swyddogaeth Diffiniedig Defnyddiwr arnoch hefyd.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

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

Cod VBA: Swm ac eithrio celloedd trawiadol

Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + pRng.Value
    End If
Next
ExcStrike = xOut
End Function

3. Yna arbed a chau'r cod hwn, ewch yn ôl i'ch taflen waith, teipiwch y fformiwla hon = excstrike (B2: B14) i mewn i gell wag, a gwasgwch Rhowch allwedd, a byddwch yn cael crynhoad yr holl rifau heb y celloedd trawiadol. Gweler y screenshot:

doc-cyfrif-streic-1

Nodyn: Yn y fformwlâu uchod, B2: B14 yw'r ystod rydych chi am grynhoi celloedd heb fformat trawiadol ynddo.


Erthyglau cysylltiedig:

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

Sut i gyfrif a symio celloedd yn seiliedig ar liw cefndir yn Excel?

Sut i gyfrif / symio celloedd yn seiliedig ar y lliwiau ffont yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...

Disgrifiad


Mae 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!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I want to ignore the cell from count where both type of text strike and non strike available by VBA
This comment was minimized by the moderator on the site
Great! I found a little bug here. The result doesn't actualize by itself. When I do changes on the sheet, the number doesn't changes. How can I fix it? Thanks
This comment was minimized by the moderator on the site
Hi. Great code for ignoring strikethrough text whilst summing. But, is it possible to filter the data and get a subtotal which still sums without the strike through text? Thanks
This comment was minimized by the moderator on the site
This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?
This comment was minimized by the moderator on the site
[quote]This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?By Ari[/quote] ARI, just change the two words "Long" to "Double" in the formula. Here is the same formula above, with the correct Data Types to allow for values with decimal points: Public Function ExcStrike(pWorkRng As Range) As Double 'Update 20161107_IITCSglobal.com Application.Volatile Dim pRng As Range Dim xOut As Double xOut = 0 For Each pRng In pWorkRng If Not pRng.Font.Strikethrough Then xOut = xOut + pRng.Value End If Next ExcStrike = xOut End Function
This comment was minimized by the moderator on the site
Thank you very much for this information, it's extremely helpful, However, I'm having an issue using the VBA code: Sum exclude strikethrough cells.

It does not exclude the strikethrough cells in my table unless I manually perform a strikethrough then double click the cell for the code to work.

I'm using a table with a conditional format to shade and strikethrough the entire row when (Table Header called Sold) Column "W" cell contains a "Yes", then that row will have a strikethrough and grey color. The worksheet table is "InventoryItems" and is configured to calculated automatically, but the code is not being triggered to exclude the dollar amount when the cell contains the strikethrough. Could you advise what I might be doing wrong?
Thank you for your time and help.

There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations