Ինչպե՞ս բացել հատուկ աշխատանքային թերթը Excel- ում Combo Box- ի ընտրված արժեքով:

Ենթադրելով, որ դուք ունեք Combo Box, որը պարունակում է ընթացիկ աշխատանքային գրքի բոլոր թերթիկների անունները, ինչպես ցույց է տրված նկարում: Եվ հիմա, Combo Box- ում համապատասխան թերթիկի անունը ընտրելիս ցանկանում եք բացել որոշակի աշխատանքային թերթ: Ինչպե՞ս հասնել դրան: Այս հոդվածի մեթոդը կարող է օգնել ձեզ:

VBA կոդով Combo Box- ի ընտրված արժեքով բացեք հատուկ աշխատանքային թերթ

VBA կոդով Combo Box- ի ընտրված արժեքով բացեք հատուկ աշխատանքային թերթ

Զարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel-ում, ինչպիսիք են Chrome-ը, Edge-ը, Firefox-ը և Safari-ն:
Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

Ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ գնալ որոշակի աշխատանքային թերթ, որը հիմնված է Excel- ում Combo Box- ի ընտրության վրա: Խնդրում եմ արեք հետևյալ կերպ.

ՆշումԵթե ​​Combo Box- ը չի պարունակում որևէ թերթիկի անուն ձեր աշխատաթերթում, ապա հետևեք ստորև բերված հուշմանը ՝ բոլոր թերթերի անուններն այդ Combo Box- ին արագորեն ավելացնելու համար: Եվ եթե արդեն կա Combo Box, որը պարունակում է բոլոր թերթերի անունները, խնդրում ենք անցնել դեպի քայլ 1 անմիջականորեն.

ԱկնարկՏեղադրեք հրամանի կոճակը 1 ձեր աշխատաթերթում, աջով կտտացրեք այն և ընտրեք Դիտել կոդը աջ կտտացնելու ցանկից: Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Կոդ պատուհանը և սեղմել ալտ + Q ստեղները փակելու համար Microsoft Visual Basic կիրառման համար պատուհան Կտտացրեք տեղադրված հրամանի կոճակին, ապա ընթացիկ աշխատանքային գրքի բոլոր թերթիկների անունները ավտոմատ կերպով կավելացվեն ComboBox1- ի մեջ:

VBA կոդ. Հեշտությամբ ավելացրեք բոլոր թերթիկների անունները Կոմբո տուփի մեջ

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

Եթե ​​արդեն կա Կոմբո տուփ, որը պարունակում է բոլոր թերթերի անունները, արեք հետևյալը.

1. Միացնել Դիզայնի ռեժիմ տակ Երեվակիչ էջանիշը.

2. Աջ կտտացրեք թերթիկի անուններով համակցված վանդակին, ապա կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

3. Հետո Microsoft Visual Basic հավելվածների համար պատուհանը բացվում է, խնդրում ենք փոխարինել բնօրինակ VBA կոդը Code պատուհանում `ներքևում նշված VBA կոդով:

VBA կոդ. Բացեք հատուկ աշխատաթերթը ըստ Combo Box- ի ընտրված արժեքի

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

Նշում: ծածկագրում ComboBox1- ը համակցված վանդակի անունն է, որը պարունակում է թերթի անունները:

4. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհանը և անջատել Դիզայնի ռեժիմ տակ Երեվակիչ էջանիշը.

Այժմ, Combo Box- ում ցանկացած աշխատաթերթի անուն ընտրելիս, համապատասխան աշխատանքային թերթը ավտոմատ կերպով կբացվի:

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

• Ինչպե՞ս պատճենել Combo Box- ի արժեքը Excel- ում ակտիվ բջիջում:
• Ինչպե՞ս Excel- ում ցուցադրել ամսաթվի ձևաչափը համակցված տուփի արտադրանքի մեջ:
• Ինչպե՞ս թաքցնել կամ ցուցադրել հրամանի կոճակը Excel- ում նշված բջջային արժեքի հիման վրա:
• Ինչպե՞ս կանխել կամ անջատել Excel- ում համակցված տուփի մուտքագրումը:
• Ինչպե՞ս դուրս գրվել կոճակից դուրս Excel- ում հատուկ բջիջ ընտրելու համար:

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

🤖	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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...