Skip i'r prif gynnwys

Sut i gyfrif celloedd gweladwy neu wedi'u hidlo yn gyflym yn Excel yn unig?

Yn gyffredinol, yn Excel, bydd y fformiwla arferol = COUNT (B3: B16) yn cyfrif nifer yr holl gelloedd anweledig a chelloedd cudd. Ond yn y tiwtorial hwn, byddaf yn cyflwyno rhai ffyrdd cyflym i'ch helpu i gyfrif y celloedd gweladwy neu wedi'u hidlo yn Excel yn unig.

cyfrif doc yn weladwy 1

Cyfrif celloedd gweladwy yn unig gyda Swyddogaeth Diffiniedig Defnyddiwr

Cyfrifwch gelloedd gweladwy yn unig gyda Kutools ar gyfer Excel syniad da3


swigen dde glas saeth Cyfrif celloedd gweladwy yn unig gyda Swyddogaeth Diffiniedig Defnyddiwr

Defnyddio Swyddogaeth Diffiniedig Defnyddiwr i gyfrif y celloedd gweladwy yn unig.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd, a Microsoft Visual Basic ar gyfer Ceisiadau ffenestr yn popio allan.

2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan god VBA i'r popped allan Modiwlau ffenestr.

VBA: Cyfrif celloedd gweladwy yn unig.

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. Yna arbedwch y cod a chau'r Modiwlau ffenestr, ac yna dewiswch gell sy'n arwain at ganlyniad, a theipiwch y fformiwla hon = GWLEDIG (B3: B16), a gwasgwch y Rhowch allwedd i gael y canlyniad. Gweler sgrinluniau:

cyfrif doc yn weladwy 2
saeth doc
>cyfrif doc yn weladwy 3

swigen dde glas saeth Cyfrifwch gelloedd gweladwy yn unig gyda Kutools ar gyfer Excel

I gyfrif celloedd gweladwy yn unig, gallwch hefyd eu defnyddio Kutools ar gyfer Excel'S GWLADOL swyddogaeth i'w ddatrys yn gyflym.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Dewiswch gell a fydd yn rhoi'r canlyniad cyfrif i mewn, a chliciwch Kutools > Swyddogaethau Kutools > Ystadegol a Mathemateg > GWLADOL. Gweler y screenshot:

cyfrif doc yn weladwy 4

2. Yna yn y Dadleuon Swyddogaeth deialog, dewiswch y celloedd wedi'u hidlo rydych chi am eu cyfrif i mewn i'r Cyfeirnod blwch testun, a gallwch gael rhagolwg o'r canlyniad cyfrif wedi'i ddangos yn y dialog. Gweler y screenshot:

cyfrif doc yn weladwy 5

3. Ac yna cliciwch OK i roi'r canlyniad cyfrif yn y gell a ddewiswyd.

cyfrif doc yn weladwy 6

Kutools ar gyfer Excel's Swyddogaethau gan gynnwys rhai fformiwlâu defnyddiol, megis cyfrif / swm / celloedd gweladwy ar gyfartaledd yn unig, cyfrif / swm yn ôl lliw celloedd. cyfrif / swm yn ôl lliw ffont ac ati.I Gael Treial Am Ddim Nawr!

cyfrif doc yn weladwy 6


Erthyglau Perthynas:


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