Skip to main content

Conas cealla infheicthe nó scagtha a chomhaireamh go tapa in Excel amháin?

Go ginearálta, in Excel, déanfaidh an ghnáthfhoirmle = COUNT (B3: B16) líon na gcealla dofheicthe agus na gcealla ceilte uile a chomhaireamh. Ach sa rang teagaisc seo, tabharfaidh mé isteach roinnt bealaí gasta chun cabhrú leat na cealla infheicthe nó scagtha a chomhaireamh in Excel amháin.

comhaireamh doc infheicthe 1

Ná comhaireamh cealla infheicthe ach le Feidhm Sainmhínithe ag an Úsáideoir

Ná comhaireamh cealla infheicthe ach le Kutools le haghaidh Excel smaoineamh maith3


mboilgeog cheart gorm saighead Ná comhaireamh cealla infheicthe ach le Feidhm Sainmhínithe ag an Úsáideoir

Úsáid Feidhm Sainithe ag an Úsáideoir chun na cealla infheicthe amháin a chomhaireamh.

1. Brúigh Alt + F11 eochracha ag an am céanna, a Microsoft Visual Basic d’Fheidhmchláir pops fuinneog amach.

2. cliceáil Ionsáigh > Modúil, agus greamaigh faoi bhun chód VBA leis an popped amach Modúil fhuinneog.

VBA: Líon cealla infheicthe amháin.

Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
    Dim xCount As Long
    Dim xCell As Range
    Application.Volatile
    For Each xCell In Rg
        If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) Then
            xCount = xCount + 1
        End If
    Next
    COUNTVISIBLE = xCount
End Function

3. Ansin sábháil an cód agus dún an Modúil fuinneog, agus ansin roghnaigh cill a bhfuil toradh aschuir uirthi, agus clóscríobh an fhoirmle seo = INIÚCHTA (B3: B16), agus brúigh an Iontráil eochair chun an toradh a fháil. Féach screenshots:

comhaireamh doc infheicthe 2
saighead doc
>comhaireamh doc infheicthe 3

mboilgeog cheart gorm saighead Ná comhaireamh cealla infheicthe ach le Kutools le haghaidh Excel

Chun cealla infheicthe amháin a chomhaireamh, is féidir leat iad a úsáid freisin Kutools le haghaidh Excel'S INIÚCHTA feidhm chun é a réiteach go tapa.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. Roghnaigh cill a chuirfidh an toradh comhaireamh isteach, agus cliceáil Kutools > Feidhmeanna Kutools > Staidrimh & Mata > INIÚCHTA. Féach an pictiúr:

comhaireamh doc infheicthe 4

2. Ansin sa Argóintí Feidhm dialóg, roghnaigh na cealla scagtha is mian leat a áireamh sa Tagairt bosca téacs, agus is féidir leat réamhamharc a thaispeáint go bhfuil toradh an chomhairimh léirithe sa dialóg. Féach an pictiúr:

comhaireamh doc infheicthe 5

3. Agus ansin cliceáil OK chun toradh an chomhairimh a chur sa chill roghnaithe.

comhaireamh doc infheicthe 6

Kutools le haghaidh Excel's Feidhmeanna lena n-áirítear roinnt foirmlí úsáideacha, mar chomhaireamh / suim / meánchealla infheicthe amháin, comhaireamh / suim de réir dath na cille. comhaireamh / suim de réir dath cló agus mar sin de.Chun Triail In Aisce a Fháil Anois!

comhaireamh doc infheicthe 6


Ailt Choibhneasta:


Uirlisí Táirgiúlachta Oifige is Fearr

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 ...

cluaisín kte 201905


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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

I would suggest the add in the code if the person doesn't want to select the range, and it is fixe.

Set xCell = Range("F:F") ' range exemplo in the sheet

And (Not xCell.Value = 0)


The entire code will be like:


Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
Dim xCount As Long
Dim xCell As Range
Application.Volatile

Set xCell = Range("F:F") ' range exemplo in the sheet




For Each xCell In Rg
If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) And (Not xCell.Value = 0) Then
xCount = xCount + 1
End If
Next
COUNTVISIBLE = xCount



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