Skip i'r prif gynnwys

Sut i toglo rhwng dalennau cudd a gweladwy yn Excel?

Gan dybio bod gennych chi rai taflenni gyda data pwysig nad ydych chi am i eraill eu gweld, gall cuddio taflenni gwaith fod yn ffordd syml o amddiffyn data yn Excel. Ond weithiau, mae angen i chi ddangos y cynfasau cudd ac yna eu cuddio eto, fel arfer mae angen i chi eu dad-agor fesul un, os byddwch chi'n defnyddio'r llawdriniaeth hon fel arfer, bydd yn drafferthus ac yn cymryd llawer o amser. Yn yr erthygl hon, byddaf yn cyflwyno rhai ffyrdd cyflym ichi i toglo'r taflenni gwaith rhwng cudd a chudd.

Toglo'r dalennau rhwng cudd a heb eu cuddio â chod VBA

Toggle'r taflenni rhwng cudd a heb eu cuddio gyda Kutools ar gyfer Excel


swigen dde glas saeth Toglo'r dalennau rhwng cudd a heb eu cuddio â chod VBA

Gan dybio bod gennych lyfr gwaith gyda Sheet1, Sheet2 a Sheet3 wedi'u cuddio, gall y cod VBA canlynol eich helpu i'w harddangos yn gyflym a bydd yr ail glic yn eu cuddio eto. Gwnewch fel a ganlyn:

1. Cliciwch Datblygwr > Visual Basic, Ac mae newydd Microsoft Visual Basic ar gyfer cymwysiadau ffenestr yn arddangos, cliciwch Mewnosod > Modiwlau, ac yna mewnbynnu'r cod canlynol yn y modiwl.

Sub ToggleHideUnhideDataSheets()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ShtNames() As Variant
Set wb = ActiveWorkbook
ShtNames = Array("Sheet1", "Sheet2", "Sheet3")
For i = 0 To UBound(ShtNames)
wb.Sheets(ShtNames(i)).Visible = Not wb.Sheets(ShtNames(i)).Visible
Next i
Application.ScreenUpdating = True
End Sub

Yn y cod uchod, mae'r ShtNames = Array ("Sheet1", "Sheet2", "Sheet3") yn newidyn, gallwch newid enwau'r daflen waith gudd yn ôl yr angen.

2. Yna pwyswch F5 allwedd i redeg y cod, ac mae'r taflenni cudd wedi'u harddangos, os ydych chi am eu cuddio eto, pwyswch F5 allwedd unwaith eto.


swigen dde glas saeth Toggle'r taflenni rhwng cudd a heb eu cuddio gyda Kutools ar gyfer Excel

Gyda Toglo Gwelededd Gwaith Cudd Gwelededd swyddogaeth Kutools ar gyfer Excel, gallwch chi toglo dalennau rhwng cudd a chudd yn hawdd trwy glicio gorchymyn Taflenni Gwaith.

Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.

Pan fyddwch wedi gosod Kutools ar gyfer Excel, gallwch chi wneud y camau canlynol:

1. Agorwch y llyfr gwaith y mae'n rhaid iddo gynnwys rhai taflenni gwaith cudd.

2. Cliciwch Kutools > Taflenni gwaith, gweler y screenshot:

taflenni doc-toggle-hidden1

Pan gliciwch ar y Taflenni gwaith gorchymyn unwaith, mae'r holl daflenni cudd wedi'u harddangos, os ydych chi am eu cuddio eto, cliciwch y Taflenni gwaith gorchymyn gyda'r eildro. Gweler sgrinluniau:

taflenni doc-toggle-hidden2
-1
taflenni doc-toggle-hidden3
-1
taflenni doc-toggle-hidden2

Nodyn: Mae'r swyddogaeth hon hefyd yn berthnasol i daflenni cudd nad ydynt yn barhaus.

Os ydych chi eisiau gwybod mwy am y swyddogaeth hon, cliciwch Toglo Gwelededd Gwaith Cudd Gwelededd.


Erthygl gysylltiedig:

Toglo rhwng colofnau cudd a gweladwy 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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Works great, but how would you modify this to use the sheet's CodeNames instead of "Sheet" names?

That way user can still change the Tab name and Tab order as needed.

Thanks!
This comment was minimized by the moderator on the site
At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)
This comment was minimized by the moderator on the site
[quote]At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)By Greg[/quote] Thanks for your feedback. We will change it soon. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations