Ինչպե՞ս լրացնել տեքստային տուփը ՝ հիմնված Excel- ում UserForm- ի combobox ընտրության վրա:

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

Բնակարանային տուփը լրացրեք `օգտագործողի ձևի վրա combobox ընտրության հիման վրա, VBA- ով

Բնակարանային տուփը լրացրեք `օգտագործողի ձևի վրա combobox ընտրության հիման վրա, VBA- ով

Խնդրում ենք արեք հետևյալը ՝ համապատասխան ձևով տեքստային տուփը լրացնելու համար, որը հիմնված է Userform- ում combobox ընտրության վրա:

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Օգտագործողի ձև, Տեսեք,

3. Դրանից հետո տեղադրեք Combo վանդակի հսկողություն և Տեքստային տուփի հսկիչ ստեղծված Userform- ի մեջ, ինչպես ցույց է տրված ստորև նշված նկարը

4. Օգտագործողի ձևի ցանկացած դատարկ տարածության վրա աջ սեղմեք, ապա կտտացրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,

5. Բացվող Userform (Code) պատուհանում խնդրում ենք պատճենել և կպցնել ներքևի VBA կոդը ՝ բնօրինակը փոխարինելու համար:

VBA կոդ. Բնակեցրեք տեքստային տուփը, որը հիմնված է Userform- ի combobox ընտրության վրա

Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
    Set xRg = Worksheets("Sheet5").Range("A2:B8")
    Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub

ՆշումԿոդում A2:B2-ն այն տիրույթն է, որը պարունակում է այն արժեքները, որոնք դուք առանձին կլրացնեք ինչպես Userform համակցված վանդակում, այնպես էլ տեքստային դաշտում: Իսկ Sheet5-ը աշխատանքային թերթիկի անվանումն է, որը պարունակում է տվյալների տիրույթ: Խնդրում ենք փոխել դրանք ըստ անհրաժեշտության:

6. Սեղմեք ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.

7: սեղմեք Երեվակիչ > Տեղադրել > Հրամանի կոճակ (ActiveX կառավարման) հրամանի կոճակը աշխատանքային էջում տեղադրելու համար:

8. Աջ սեղմեք թերթիկի ներդիրի վրա և ընտրեք Դիտել կոդը աջ սեղմման մենյուից: Այնուհետև պատճենեք և տեղադրեք VBA կոդը կոդի պատուհանում:

VBA կոդ. Ցույց տալ օգտվողի ձևը

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
    UserForm1.Show
End Sub

9. Աշխատանքային գրքում անջատեք Design Mode-ը:

Սեղմեք հրամանի կոճակը՝ նշված օգտվողի ձևը բացելու համար: Այնուհետև կարող եք տեսնել, որ բոլոր անունները հավաքված են համակցված վանդակում: Համակցված տուփից անուն ընտրելիս համապատասխան անձնակազմի համարը ինքնաբերաբար կլրացվի տեքստային վանդակում, ինչպես ցույց է տրված ստորև նշված սքրինշոթը:

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

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