Ինչպե՞ս ավտոմատ կերպով թաքցնել հատուկ աշխատանքային թերթերը Excel ֆայլ բացելիս:
Եթե ինչ-որ կոնկրետ աշխատանքային թերթեր անհրաժեշտ է ինքնաբերաբար թաքցնել, երբ ինչ-որ մեկը բացում է աշխատանքային գիրքը, ինչպե՞ս կարող եք գործ ունենալ այս աշխատանքի հետ Excel- ում:
VBA կոդով աշխատանքային գիրք բացելիս ավտոմատ կերպով թաքցրեք որոշակի աշխատանքային թերթ
VBA կոդով աշխատանքային գիրք բացելիս ավտոմատ կերպով թաքցրեք որոշ հատուկ աշխատանքային թերթեր
VBA կոդով աշխատանքային գիրք բացելիս ավտոմատ կերպով թաքցրեք որոշակի աշխատանքային թերթ
Եթե աշխատանքային գիրքը բացելիս ցանկանում եք թաքցնել մեկ կոնկրետ աշխատանքային թերթ, կարող եք կիրառել հետևյալ VBA կոդը:
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2, Ձախ կողմում Projectրագիր-VBAP նախագիծ պատուհանը, կրկնակի սեղմեք Այս գործառույթը դատարկ Մոդուլ բացելու համար, ապա պատճենեք և կպցրեք հետևյալ կոդը Մոդուլում.
VBA կոդ. Աշխատանքային գիրք բացելիս թաքցրեք որոշակի թերթիկ.
Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub
ՆշումՎերոհիշյալ ծածկագրում Sheet5 այն թերթիկի անունն է, որը ցանկանում եք թաքցնել բաց: Խնդրում եմ փոխեք այն ձեր կարիքի վրա:
3, Դրանից հետո պահեք և փակեք այս ծածկագրի պատուհանը և կտտացրեք Ֆայլ > Պահել As այս աշխատանքային գիրքը պահպանելու համար, ինչպես Excel մակրոներով աշխատունակ գիրք ձևաչափը, տես նկարի նկարը.
4. Երբ հաջորդ անգամ բացեք այս աշխատանքային գիրքը, սեղմեք Միացնել բովանդակությունը նախ կոճակը, ապա ձեր նշված թերթը ինքնաբերաբար կթաքցվի:
VBA կոդով աշխատանքային գիրք բացելիս ավտոմատ կերպով թաքցրեք որոշ հատուկ աշխատանքային թերթեր
Եթե աշխատանքային գրքույկը բացելիս անհրաժեշտ է թաքցնել բազմաթիվ աշխատանքային թերթեր, ահա նաև մի կոդ, որը կարող է օգնել ձեզ:
1, Նախ, դուք պետք է նշեք թերթի անունները, որոնք ցանկանում եք բաց թաքցնել, աշխատանքային թերթիկի ցուցակում, ապա անցնել Անուն տուփ նրանց մի շարք անվանում տալ-SheetsToHide- ըեւ սեղմեք Մտնել ստեղնը, տես նկարի նկարը.
2, Ապա պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
3, Ձախ կողմում Projectրագիր-VBAP նախագիծ պատուհանը, կրկնակի սեղմեք Այս գործառույթը դատարկ Մոդուլ բացելու համար, ապա պատճենեք և կպցրեք հետևյալ կոդը Մոդուլում.
VBA կոդ. Աշխատանքագիրք բացելիս թաքցրեք որոշ հատուկ աշխատանքային թերթեր.
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
ՆշումՎերոհիշյալ ծածկագրում SheetsToHide- ը ընդգրկույթի անունն է, որը դուք ստեղծել եք 1-ին քայլում:
4, Դրանից հետո պահեք և փակեք այս ծածկագրի պատուհանը և կտտացրեք Ֆայլ > Պահել As այս աշխատանքային գիրքը պահպանելու համար, ինչպես Excel մակրոներով աշխատունակ գիրք ձևաչափ Այսուհետ, երբ հաջորդ անգամ բացեք այս աշխատանքային գիրքը, նշված աշխատանքային թերթերն ինքնաբերաբար կթաքցվեն:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: