Ինչպե՞ս կողպել թերթիկի դիրքը Excel- ի աշխատանքային գրքում միշտ տեսանելի:
Եթե աշխատանքային գրքում կան բազմաթիվ թերթեր, երբ անցեք վերջին մեկ թերթին, առաջին թերթիկը կթաքցվի թերթիկի ներդիրի տողում, ինչպես ցույց է տրված ստորև: Այժմ դուք ցանկանում եք փակել հիմնական թերթիկի դիրքը միշտ տեսանելի, ինչպե՞ս կարող եք կարգավորել այն:
Կողպեք թերթիկի դիրքը VBA- ի հետ
Կողպեք թերթիկի դիրքը VBA- ի հետ
Այստեղ ես ներկայացնում եմ երկու VBA կոդ, որպեսզի այս աշխատանքը կարգավորեք:
Անցնել դեպի սավանը
1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic Windows- ի համար.
2: սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք և կպցրեք կոդը ներքևում սցենարում:
VBA. Անցեք գլխավոր թերթիկին
Sub GoToSheet()
'UpdatebyExtendoffice20180427
Sheets("Master").Activate
End Sub
Նշում: Կոդի հատվածում Թերթեր («Վարպետ»): Ակտիվացրեք, կարող եք փոխել վարպետ ցանկացած թերթիկի անունը, ինչպես ձեզ հարկավոր է:
3. Այնուհետև պահեք այս կոդը և վերադառնաք աշխատանքային գրքույկ, սեղմեք Երեվակիչ > Մակրո.
4. Մեջ Մակրո երկխոսության երկխոսություն, ընտրեք կոդը անունը, որը տեղադրեցիք հենց հիմա, սեղմեք Ընտրանքներ, ստեղծեք դյուրանցում այս կոդը գործարկելու համար:
5: սեղմեք OK և փակել Մակրո երկխոսություն:
Այս պահից սկսած, երբ դուք սեղմում եք ձեր ստեղծած դյուրանցումը, հիմնական թերթիկը ակտիվացված է, անկախ այն բանից, թե որ թերթն եք օգտագործում:
Թերթը միշտ առջևում պահեք
1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic Windows- ի համար.
2. Կրկնակի սեղմում Այս գործառույթը - ից Projectրագիր-VBAP նախագիծ պատուհանում և պատճենեք և տեղադրեք ստորև նշված կոդը սցենարին:
VBA. Թերթիկը միշտ առջևում պահեք
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
Dim xSheet As Worksheet
Application.EnableEvents = False
Set xSheet = Sheets("master")
If Sh.Name <> xSheet.Name Then
Sh.Move , xSheet
xSheet.Activate
Sh.Activate
End If
Application.EnableEvents = True
End Sub
3. Պահպանեք կոդը և փակեք VBA պատուհանը: Այսուհետ, որ թերթիկն էլ որ սեղմեք, հիմնական թերթիկը միշտ մնում է ներդիրի տողի առջևում:
Նշում: Վերը նշված ծածկագրում, «Վարպետ» թերթի անվանումն է, որը ցանկանում եք տեսանելի պահել, փոխեք այն ըստ անհրաժեշտության:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: