Sut i guddio taflenni gwaith penodol yn awtomatig wrth agor ffeil Excel?
Os oes angen i chi guddio rhai taflenni gwaith penodol yn awtomatig pan fydd rhywun yn agor y llyfr gwaith, sut allech chi ddelio â'r swydd hon yn Excel?
Cuddio taflen waith benodol yn awtomatig wrth agor llyfr gwaith gyda chod VBA
Cuddiwch rai taflenni gwaith penodol yn awtomatig wrth agor llyfr gwaith gyda chod VBA
Cuddio taflen waith benodol yn awtomatig wrth agor llyfr gwaith gyda chod VBA
Os ydych chi am guddio un daflen waith benodol wrth agor y llyfr gwaith, gallwch gymhwyso'r cod VBA canlynol.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y chwith Prosiect-VBAProject cwarel, cliciwch ddwywaith ar y Llyfr Gwaith hwn i agor Modiwl gwag, ac yna copïo a gludo'r cod canlynol i'r Modiwl:
Cod VBA: Cuddio taflen benodol wrth agor llyfr gwaith:
Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub
Nodyn: Yn y cod uchod, Sheet5 yw'r enw dalen rydych chi am ei guddio ar agor. Newidiwch ef i'ch angen.
3. Yna arbedwch a chau y ffenestr god hon, a chlicio Ffeil > Save As i achub y llyfr gwaith hwn fel Llyfr Gwaith Macro-alluogedig Excel fformat, gweler y screenshot:
4. Pan fyddwch chi'n agor y llyfr gwaith hwn y tro nesaf, cliciwch Galluogi Cynnwys botwm yn gyntaf, ac yna bydd eich taflen benodol yn cael ei chuddio'n awtomatig.
Cuddiwch rai taflenni gwaith penodol yn awtomatig wrth agor llyfr gwaith gyda chod VBA
Os oes angen cuddio nifer o daflenni gwaith wrth agor y llyfr gwaith, dyma god hefyd a all eich helpu chi.
1. Yn gyntaf, dylech chi restru'r enwau dalennau rydych chi am guddio arnyn nhw ar agor mewn rhestr o daflen waith, ac yna mynd i'r Blwch enw i roi enw amrediad iddynt-TaflenniToHide, a'r wasg Rhowch allwedd, gweler y screenshot:
2. Yna dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Yn y chwith Prosiect-VBAProject cwarel, cliciwch ddwywaith ar y Llyfr Gwaith hwn i agor Modiwl gwag, ac yna copïo a gludo'r cod canlynol i'r Modiwl:
Cod VBA: Cuddio rhai taflenni gwaith penodol wrth agor llyfr gwaith:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updateby Extendoffice 20161206
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
ws.Visible = xlSheetHidden
MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
Else
ws.Visible = xlSheetVisible
End If
Next ws
Set ws = Nothing
End Sub
Nodyn: Yn y cod uchod, TaflenniToHide yw'r enw amrediad rydych chi wedi'i greu yng ngham 1.
4. Yna arbedwch a chau y ffenestr god hon, a chlicio Ffeil > Save As i achub y llyfr gwaith hwn fel Llyfr Gwaith Macro-alluogedig Excel fformat. O hyn ymlaen, pan fyddwch chi'n agor y llyfr gwaith hwn y tro nesaf, bydd y taflenni gwaith penodedig yn cael eu cuddio'n awtomatig.
Offer Cynhyrchiant Swyddfa Gorau
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...
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!