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

Ինչպե՞ս նավարկել աշխատանքային թերթերի միջև ՝ օգտագործելով բացվող ցուցակը Excel– ում:

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

Նավարկեք աշխատաթերթերի միջեւ ՝ օգտագործելով բացվող ցուցակը Excel– ում


Նավարկեք աշխատաթերթերի միջեւ ՝ օգտագործելով բացվող ցուցակը Excel– ում

Յուրաքանչյուր ընտրված թերթիկ անցնելու համար, օգտագործելով բացվող ցուցակ, կատարեք հետևյալ քայլերը.

1: Սեղմեք Երեվակիչ > Տեղադրել > Combo Box (ActiveX հսկողություն), տես նկարի նկարը.

2, Դրանից հետո մկնիկը քաշեք ՝ կոմբինացիոն տուփ նկարելու համար, այնուհետև այն աջ կտտացրեք, ընտրեք Դիտել կոդը համատեքստային ընտրացանկից տե՛ս նկարը.

3, Բացվածքում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը ՝ բնօրինակը ծածկելու համար, տե՛ս նկարը.

VBA կոդ. Նավարկեք աշխատանքային թերթերի միջև ՝ օգտագործելով բացվող ցուցակը

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4, Ապա պահեք և փակեք այս կոդի պատուհանը, ապա կտտացրեք Դիզայնի ռեժիմ դիզայնի ռեժիմն անջատելու համար, հիմա, երբ համակցված տուփից ընտրեք մեկ թերթիկի անուն, այն միանգամից կգնա այդ թերթի, տես նկարի նկարը.


Նավարկեք աշխատանքային թերթերի միջև ՝ օգտագործելով գերհղումներ կամ կոճակներ.

հետ Excel- ի համար նախատեսված գործիքներ's Ստեղծեք թերթիկների անունների ցուցակ օգտակար, դուք կարող եք արագ ցուցակագրել բոլոր աշխատաթերթերի անունները նոր թերթում `հիպերհղումներ կամ մակրո կոճակներով, այնուհետև նրանց միջև կարող եք անցնել ձեր կարիքներին:

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (12)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ ակտիվացնել թաքնված թերթիկը և թաքցնել գլխավոր էջը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ ավելացնել միայն հատուկ թերթիկներ: և ոչ ամբողջ թերթիկը աշխատանքային գրքում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ունեցե՞լ եք որևէ ուրախություն՝ գտնելով ծածկագիր՝ բացվող վանդակում միայն որոշ թերթեր ցուցադրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եք սա փոխել միայն տեսանելի աշխատաթերթերը ցուցադրելու/ընտրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Բացվող ցուցակից թաքնված թերթերն անտեսելու և միայն տեսանելի աշխատաթերթերը պահելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ.

Մասնավոր ենթահամակարգային տուփ1_Change()
― Թարմացնելով Extendoffice
Եթե ​​ComboBox1.ListIndex > -1 Ապա Sheets(ComboBox1.Text).Ընտրեք
Վերջ Sub
Մասնավոր ենթահամակարգային տուփ1_DropButtonClick()
Dim xSheet As Worksheet-ը
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count then
ComboBox1.Clear
Յուրաքանչյուր xSheet-ի համար ThisWorkbook.Sheets-ում
Եթե ​​xSheet.Visible Այնուհետեւ
ComboBox1.AddItem xSheet.Name
Վերջ: Եթե
Հաջորդ xSheet
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Մասնավոր ենթահամակարգային տուփ1_GotFocus()
Եթե ​​ComboBox1.ListCount <> 0 Ապա ComboBox1.DropDown
Վերջ Sub

Խնդրում եմ փորձեք այն, հուսով եմ, որ այն կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա աշխատեց! Շնորհակալություն! Գիտե՞ք արդյոք այս կոդը խնդիրներ կառաջացնի, եթե թերթերը վերանվանվեն, թե՞ այն ինքնաբերաբար կթարմացնի ցուցակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Վերոնշյալ կոդը լավ է աշխատում թերթի անվանումը վերանվանելիս, և բացվող ցուցակի տարրերն ինքնաբերաբար կթարմացվեն:
Դուք կարող եք փորձել այն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն ձեր կոդի համար: Այն աշխատում է բացվող ցուցակի հիման վրա տարբեր թերթեր փոխելու համար:
Բայց ես մի քանի հարց ունեմ.
1. Այն բանից հետո, երբ ես մշակում եմ համապատասխան թերթիկը և ցանկանում եմ վերադառնալ հիմնական ընտրացանկ (թերթի բացվող ցուցակով), ինչպե՞ս կարող եմ անել առանց մկնիկ օգտագործելու:
2. Երբ ես բացում եմ ֆայլը, ես կցանկանայի հիմնական ընտրացանկը (բացվող ցուցակով) որպես լռելյայն: Այսպիսով, ես կարող եմ սկսել այս մենյուից
շնորհակալություն
վարդ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն,
Շատ շնորհակալ եմ կոդի համար, որը ստեղծում է դինամիկ համակցված տուփ՝ թերթերում նավարկելու համար: Ցավոք, ես սխալ ստացա: Մի քանի թերթեր նավարկելուց հետո ֆայլն ինքնաբերաբար փակվում է: Այն նույնիսկ չի ցուցադրում սխալի հաղորդագրություն: Ես չկարողացա պարզել պատճառը: Ես գնահատում եմ օգնությունը
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նույն սխալը նույնպես, Դուք պարզե՞լ եք դա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, հնարավո՞ր է համադրել տարբեր տարբերակներ տարբեր բացվող պատուհաններից և համապատասխանաբար բաց թերթիկներից:

օրինակ՝ եթե ընտրված է Ընտրանք 1-ը բացվող 1-ից և ընտրված է Option2-ը բացվող 2-ից, ապա կբացվի միայն Sheet2-ը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բացվող ցուցակը չի բացելու թաքնված թերթերը, արդյոք այն կարող է բացել թաքնված թերթերը:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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