Ինչպե՞ս լրացնել Combo Box- ը Excel- ում անվանված տիրույթի տվյալների հետ:
Դուք կարող եք նշել Combo տուփ (ActiveX Control) որոշակի տիրույթի տվյալներով ՝ ընդգրկույթը ավելացնելով combo վանդակի ListFillRange հատկությունների մեջ: Բայց գիտե՞ք, թե ինչպես կարելի է լրացնել Combo տուփը Excel- ում նշված տիրույթի տվյալներով: Օրինակ, դուք ձեր աշխատանքային թերթում անվանել եք մի շարք բջիջներ, և այժմ անհրաժեշտ է նշել այս տիրույթի անվանումը Combo վանդակում: Մեկ համակցված տուփի մեջ տիրույթի անուն ընտրելիս այս անվանումների բոլոր բջիջների արժեքները ավտոմատ կերպով կհամալրվեն մեկ այլ Կոմբո տուփի մեջ: Այս հոդվածը կներկայացնի VBA մեթոդը `այս խնդիրը լուծելու համար:
Բնակեցրեք Combo տուփը `անվանված տիրույթի տվյալներով, VBA կոդով
Բնակեցրեք Combo տուփը `անվանված տիրույթի տվյալներով, VBA կոդով
Excel- ում անվանված տիրույթի տվյալներով լրացնելու համար խնդրում ենք անել հետևյալը.
1. Խնդրում ենք ձեր աշխատանքային էջում ընտրել ամբողջ վերնագրերը (այս դեպքում ես ընտրում եմ A1: E1) և այնուհետև մուտքագրեք անուն Անունը Box ինչպես ցույց է տրված նկարում
2. Ընտրեք յուրաքանչյուր սյունակի տվյալներ, բացառությամբ դրա վերնագրի, և այնուհետև սյունակը անվանակոչեք առանձին Անունը Box, Տեսեք,
Այս պարագայում ես անվանել եմ A2: A8, B2: B8, C2: C8, D2: D8 և E2: E8 տեսականին որպես Ամսաթիվ, Խանութ, Նյութեր, Վաճառք և Շաբաթվա օրերը առանձին:
3. Դրանից հետո տեղադրեք Կոմբո տուփ ՝ կտտացնելով Երեվակիչ > Տեղադրել > Combo Box (ActiveX հսկողություն), Տեսեք,
4. Կրկնեք 3-րդ քայլը `մեկ այլ Combo տուփ ներդնելու համար աշխատաթերթը:
5. Աջ կտտացրեք թերթիկի ներդիրին և այնուհետև կտտացրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,
6. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք ներքևում գտնվող VBA կոդի ծածկագիր կոդի պատուհանում:
VBA կոդ. Բնակեցրեք Combo տուփը `անվանված տիրույթի տվյալներով
Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Headers")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End SubՆշումԿոդում ComboBox1-ը համակցված տուփի անունն է, որի ներսում դուք կցուցադրեք տիրույթի բոլոր անունները, իսկ ComboBox2-ը համակցված վանդակի անունն է, որի ներսում կհամալրվեն նշված անվանված տիրույթի տվյալները: «Վերնագրերը» տիրույթի անունն է, որը դուք ստեղծել եք քայլ 1-ում:
7. Անջատեք Դիզայնի ռեժիմը ՝ կտտացնելով Երեվակիչ > Դիզայնի ռեժիմ.
8. Կոդն ակտիվացնելու համար սեղմեք աշխատաթերթի ցանկացած բջիջի վրա: Սեղմեք սլաքի կոճակը առաջին համակցված վանդակում, դուք կարող եք տեսնել, որ բոլոր անվանված միջակայքերը նշված են ներսում: Տես սքրինշոթը.
Առաջին համակցված վանդակում անվանված տիրույթ ընտրելիս համապատասխան բջջային տվյալները կլրացվեն երկրորդ համակցված վանդակում, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը.
Excel- ում հեշտությամբ ստեղծեք բացվող ցուցակ վանդակում:
The Բացվող ցուցակ ՝ տուփերով օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ հեշտությամբ ստեղծել բացվող ցուցակ նշած տուփերով ՝ նշված տիրույթում, ընթացիկ աշխատաթերթում, ընթացիկ աշխատանքային գրքում կամ բացված աշխատանքային գրքույկներում ՝ ելնելով ձեր կարիքներից:
Ներբեռնեք և փորձեք հիմա: (30 օր անվճար երթուղի)
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս պատճենել Combo Box- ի արժեքը Excel- ում ակտիվ բջիջում:
- Ինչպե՞ս Excel- ում ցուցադրել ամսաթվի ձևաչափը համակցված տուփի արտադրանքի մեջ:
- Ինչպե՞ս կանխել կամ անջատել Excel- ում համակցված տուփի մուտքագրումը:
- Ինչպե՞ս լրացնել կոմբինատը բացված աշխատանքային գրքի վրա նշված տվյալներով:
- Ինչպե՞ս ինքնաբերաբար լրացնել այլ բջիջները Excel- ի բացվող ցուցակում արժեքներ ընտրելիս:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
