Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս նավարկել աշխատանքային թերթերի միջև ՝ օգտագործելով բացվող ցուցակը 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 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The drop down list will not open hidden sheets, is it able to open hidden sheets?
This comment was minimized by the moderator on the site
hi, is it possible to combine various option from different dropdowns and open sheets accordingly.

eg: if Option1 from dropdown1 is selected and Option2 from dropdown2 is selected then only the Sheet2 will open
This comment was minimized by the moderator on the site
hi there,
Thank you very much for the code which create a dynamic combo box to navigate the sheets. Unfortunately I got an error. After navigating few sheets, the file automatically close. It doesn't even show any error message. I couldn't figure out the reason. I appreciate the help
Thanks
This comment was minimized by the moderator on the site
same error too, Did you figure it out?
This comment was minimized by the moderator on the site
thanks for your code. It works for switching different sheet based on dropdown list.
But I have several questions.
1. after I process the related sheet, and want to go back to main menu(with sheet dropdown list), how could I do without using mouse?
2. when I open the file, I would like the main menu(with dropdown list) as default . So I could start from this menu
thanks
rose
This comment was minimized by the moderator on the site
How do you change this to only show/select visible worksheets?
This comment was minimized by the moderator on the site
Hi,
To ignore the hidden sheets from the drop down list, and only keep the visible worksheets, the following VBA code may help you:

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
If xSheet.Visible Then
ComboBox1.AddItem xSheet.Name
End If
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

Please try it, hope it can help you!
This comment was minimized by the moderator on the site
It worked! Thank you! Do you know if this code will cause problems if sheets are renamed or will it update the list automatically?
This comment was minimized by the moderator on the site
Hello,
The above code works well when renaming the sheet name and the items in the drop down list will be updated automatically.
You can try it.
This comment was minimized by the moderator on the site
How can I add only specific sheets? and not all the sheet in the workbook
This comment was minimized by the moderator on the site
Did you have any joy finding code to show only certain sheets in the dropdown box?
This comment was minimized by the moderator on the site
How can I make the hidden sheet active and hide the home page?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations