Skip to main content

Conas cealla buailte a chomhaireamh / suim a dhéanamh in Excel?

In Excel, déanaimid formáid bhuailte i gcónaí do roinnt cealla a thugann le fios go bhfuil na luachanna cille neamhúsáidte nó neamhbhailí, ionas gur féidir linn na sonraí a anailísiú níos cruinne. San Airteagal seo, labhróidh mé faoi conas roinnt ríomhanna a dhéanamh sa raon leis na cealla buailte seo in Excel.

Líon cealla buailte in Excel

Líon gan cealla buailte in Excel

Suim eisiaigh cealla buailte in Excel


mboilgeog cheart gorm saighead Líon cealla buailte in Excel

Más mian leat a fháil amach cé mhéad cealla a bhfuil formáid bhuailte acu i raon, is féidir leat Feidhm Sainmhínithe ag Úsáideoir a chruthú, déan na céimeanna seo a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Líon cealla buailte

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. Ansin sábháil agus dún an cód seo, agus filleadh ar an mbileog oibre, agus ansin cuir isteach an fhoirmle seo = CountStrike (A2: B14) go cill bhán, féach an scáileán:

doc-comhaireamh-stailc-1

4. Ansin brúigh Iontráil eochair, agus rinneadh na cealla buailte go léir a chomhaireamh. Féach an pictiúr:

doc-comhaireamh-stailc-1


mboilgeog cheart gorm saighead Líon gan cealla buailte in Excel

Ach, uaireanta, b’fhéidir gur mhaith leat líon na ngnáthchealla a áireamh nach n-áirítear na cealla buailte. Is féidir leis an gcód seo a leanas cabhrú leat.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Líon gan cealla buailte

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. Ansin sábháil agus dún an cód seo, téigh ar ais chuig do bhileog oibre, clóscríobh an fhoirmle seo = comhaireamh (A2: B14) isteach i gcill bhán, agus brúigh Iontráil eochair, ansin gheobhaidh tú an toradh a theastaíonn uait.

doc-comhaireamh-stailc-1

nótaí: Sna foirmlí thuas, A2: B14 an raon is mian leat na foirmlí a chur i bhfeidhm.


mboilgeog cheart gorm saighead Suim eisiaigh cealla buailte in Excel

Toisc nach n-úsáidtear na cealla buailte, anseo, níor mhaith liom ach na gnáthuimhreacha a shuimiú gan na huimhreacha buailte. Chun an tasc seo a réiteach, tá Feidhm Sainmhínithe ag Úsáideoir uait freisin.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Suim eisiaigh cealla buailte

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. Ansin sábháil agus dún an cód seo, téigh ar ais chuig do bhileog oibre, clóscríobh an fhoirmle seo = excstrike (B2: B14) isteach i gcill bhán, agus brúigh Iontráil eochair, agus gheobhaidh tú suim na n-uimhreacha go léir gan na cealla buailte. Féach an pictiúr:

doc-comhaireamh-stailc-1

nótaí: Sna foirmlí thuas, B2: B14 an raon ar mhaith leat cealla a shuimiú gan formáid bhuailte ann.


Earraí gaolmhara:

Conas uimhreacha troma a shuimiú / a chomhaireamh i raon cealla in Excel?

Conas cealla a chomhaireamh agus a shuimiú bunaithe ar dhath cúlra in Excel?

Conas cealla a chomhaireamh / suim a dhéanamh bunaithe ar na dathanna clóite in Excel?

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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