Ինչպե՞ս լրացնել 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. Կոդն ակտիվացնելու համար սեղմեք աշխատաթերթի ցանկացած բջիջի վրա: Սեղմեք սլաքի կոճակը առաջին համակցված վանդակում, դուք կարող եք տեսնել, որ բոլոր անվանված միջակայքերը նշված են ներսում: Տես սքրինշոթը.

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

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

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