Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս Excel- ում կողպել կամ սառեցնել աշխատաթերթը:

Ենթադրելով, որ ունեք աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ աշխատաթերթեր, աշխատանքային գրքում կա հիմնական թերթիկ անվանված աշխատանքային թերթ: Եվ հիմա, դուք ուզում եք փորձել կողպել կամ սառեցնել այս թերթիկի ներդիրը, որպեսզի այն միշտ տեսանելի լինի նույնիսկ մի շարք աշխատանքային թերթերում ոլորելիս: Փաստորեն, ներդիրը սառեցնելու ուղղակի միջոց չկա, բայց այս խնդրի լուծման համար կարող եք օգտագործել լուծում:

Կողպեք կամ սառեցրեք հատուկ աշխատանքային թերթիկի ներդիրը VBA կոդով


նետ կապույտ աջ պղպջակ Կողպեք կամ սառեցրեք հատուկ աշխատանքային թերթիկի ներդիրը VBA կոդով

Excel- ում մենք կարող ենք կիրառել հետևյալ VBA ծածկագիրը, որպեսզի հատուկ աշխատանքային թերթը միշտ դառնա ձեր ընթացիկ կտտացրած աշխատանքային թերթիկի առաջ, այնպես որ միշտ կարող եք տեսնել այս աշխատաթերթը, երբ ոլորեք ցանկացած այլ թերթիկի ներդիրներ: Խնդրում ենք անել հետևյալը.

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2. Այնուհետեւ ընտրեք Այս գործառույթը ձախից Project Explorer պատուհանը, կրկնակի կտտացրեք այն ՝ բացելու համար Մոդուլներև ապա պատճենեք և կպցրեք հետևյալ VBA կոդը ՝ դատարկ Մոդուլի մեջ.

VBA կոդ. Սառեցրեք կամ կողպեք որոշակի աշխատաթերթի ներդիրը

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Update by Extendoffice
Application.EnableEvents = False
Application.ScreenUpdating = False
If Application.ActiveSheet.Index <> Application.Sheets("Main-sheet").Index Then
    Application.Sheets("Main-sheet").Move Before:=Application.Sheets(Application.ActiveSheet.Index)
    Application.Sheets("Main-sheet").Activate
    Sh.Activate
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

doc-freeze-sheet-tab-1

3, Եվ այնուհետև պահեք և փակեք այս կոդը, այժմ, երբ կտտացնում եք ձեր աշխատանքային թերթի որևէ ներդիր, այս հատուկ աշխատանքային թերթը միշտ կլինի ձեր կտտացրած թերթիկի ներդիրի առջևում, տեսեք սքրինշոթերը.

doc-freeze-sheet-tab-2
-1
doc-freeze-sheet-tab-3

ՆշումՎերոհիշյալ ծածկագրում Հիմնական թերթը այն թերթիկի անունն է, որը ցանկանում եք սառեցնել, այն կարող եք փոխել ըստ ձեր կարիքի:


Առնչվող հոդվածներ քանակը:

Ինչպե՞ս սառեցնել ապակիները Excel 2010-ում:

Ինչպե՞ս կիրառել սառեցման / ապասառեցման ապակիները միանգամից մի քանի աշխատանքային թերթերի վրա:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (10)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես օգտագործում եմ VBA, ես չեմ կարող պատճենել տվյալները Main-Sheet-ից այլ թերթիկ: Խնդրում եմ օգնեք ինձ շտկել այս սխալը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
hahaha. այնքան ճիշտ է! Դուք գտել եք դրա լուծումը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չհաջողվեց գործարկել ձեր կոդը, բայց սա ստացվեց :) Մասնավոր ենթամաս Workbook_SheetActivate(ByVal Sh As Object) Dim sc As Long «Թերթերի քանակը Dim NewPos As Long» ինդեքսը կտրված թերթիկ Application.EnableEvents = False Application.ScreenUpdating = False Եթե ​​ActiveSheet.Index 1 Այնուհետեւ sc = Sheets.Count NewPos = ActiveSheet.Index For i = 2 To NewPos - 1 Sheets(2).Move After:=Sheets(sc) Next i Sheets(1).Activate Sheets(2): Ակտիվացրեք վերջը, եթե Application.ScreenUpdating = True Application.EnableEvents = True End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է ստեղծել մի քանի փաստարկներով: Ինչպես մեկ հիմնական թերթիկը պարզապես տեղափոխելու փոխարեն, որտեղ աշխատում եք, հնարավո՞ր է երեք ներդիր տեղափոխել այն, ինչի վրա աշխատում եք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այո, հնարավոր է, դուք պարզապես պետք է ավելի շատ արգումենտներ ավելացնեք if-ի մեջ՝ օգտագործելով «AND»-ը, ինչպես այս IF Application.ActiveSheet.Index Application.Sheets("Main-sheet").Index AND Application.ActiveSheet.Index Application: Sheets("Other-Main-sheet").Index և այլն... Այնուհետեւ Application.Sheets("Main-sheet").Move Before:=Application.Sheets(Application.Sheets("Other-Main-sheet") .Ինդեքս) Application.Sheets("Main-sheet").Activate Application.Sheets("Other-Main-sheet").Move Before:=Application.Sheets(Application.ActiveSheet.Index) Application.Sheets("Other-Main"). -sheet"): Activate Sh.Activate Սա կտեղադրի Main-Sheet-ը, ապա Other-Main-Sheet-ը ձեր ակտիվ թերթի դիմաց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
արդյո՞ք սա vba իմ excel թերթիկը չի սառեցնում, խնդրում եմ ինձ լուծում տվեք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը լավ աշխատեց: Միակ խնդիրն այն է, որ եթե մենք փակենք ֆայլը և նորից բացենք, այն անջատվում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Այս կոդը լավ է աշխատել: Միակ խնդիրն այն է, որ եթե մենք փակենք ֆայլը և նորից բացենք, այն անջատվում է:Սանգսի կողմից[/quote] Փորձեք պահպանել փաստաթուղթը որպես մակրո-միացված աշխատանքային գրքույկ: Կարծում եմ, որ այդպես պետք է լավ աշխատի։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես Թուենը նշել է 2 տարի առաջ, դուք չեք կարող պատճենել տվյալները թերթերի միջև, քանի դեռ այս կոդը ակտիվ է: Ավելին, կոդը անհարկի բարդ է: Ձեր ակտիվացրած թերթիկը փոխանցվում է ընթացակարգին որպես «Sh» պարամետր: Սա անհարկի է դարձնում «ActiveSheet» հաճախակի զանգերը և կարող է խնդիրներ առաջացնել մեկի համար, ով փորձում է փոփոխել կոդը, բայց այնքան էլ փորձառու չէ:

Ահա իմ տարբերակները, որոնք ուղղում են այդ խնդիրները և նույնիսկ ցույց են տալիս, թե ինչպես կարելի է ավելացնել 2-րդ «Հիմնական» թերթիկը (նման է Ձինգայի տեղադրածին).
-------------------------------------------------- ---------------

«Այս 2 տողերը անհրաժեշտ չեն, եթե դուք օգտագործում եք թերթերի ծածկանունները, որոնք ես խորհուրդ եմ տալիս:
Set shtMain1 = Worksheets («Main-Sheet-1»)
Set shtMain2 = Worksheets («Main-Sheet-2»)

Եթե ​​Application.CutCopyMode = False, ապա
Եթե ​​Sh.Index <> shtMain1.Index And Sh.Index <> shtMain2.Index Ապա
shtMain1.Տեղափոխել առաջ:=Շ
shtMain2.Տեղափոխել առաջ:=Շ
Շ.Ակտիվացնել
Վերջ: Եթե
Վերջ: Եթե
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
chăng đc gi cả
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից