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

Ինչպե՞ս լրացնել տեքստային տուփը ՝ հիմնված 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-ը:

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


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

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

🤖 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 (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
can the same be don on excel sheet? instead of userform? i am using sheet not userform
This comment was minimized by the moderator on the site
alguem poderia me ajudar estou tentando carregar a combobox e puxar informações para text box so que esta dando erro 381

Private Sub ComboNome_Emissor_Change()
TextArea.Text = ComboNome_Emissor.List(ComboNome_Emissor.ListIndex, 1)
TextTreinamento_PT.Text = ComboNome_Emissor.List(ComboNome_Emissor.ListIndex, 3)
TextTreinamento_EC.Text = ComboNome_Emissor.List(ComboNome_Emissor.ListIndex, 5)
TexStatus_Bloqueio.Text = ComboNome_Emissor.List(ComboNome_Emissor.ListIndex, 6)


End Sub
This comment was minimized by the moderator on the site
The method is very simple and populates the combo box quite efficiently. However, when I try populating the text box, I get a run-time error '1004': Unable to get the VLookup property of the WorksheetFunction class. Kindly assist with resolving this error.
This comment was minimized by the moderator on the site
I just tried this code and was running into the same issue. I realized I had the xRg variable inside the UserForm block, so it was not being accessed by my ComboBox function. Maybe others are running into the same issue
This comment was minimized by the moderator on the site
Hi,
May I have your Office version? I need the feedback to check for the error.
Thanks for your comment.
This comment was minimized by the moderator on the site
office 2010 32 bit
This comment was minimized by the moderator on the site
Good day,
I have tried the code in Office 2010 32 bit, but no errors occured.
Please make sure the sheet name and cell range in the first VBA code are the same with your actual sheet name and range.
Thanks for your comment.
This comment was minimized by the moderator on the site
Hi,
i have same issue with office 2013. Any solution please
This comment was minimized by the moderator on the site
i have the same problem....
This comment was minimized by the moderator on the site
I too have the same problem
This comment was minimized by the moderator on the site
Hi Chaylon,
Have you replaced the sheet name in the below code line with your actual used worksheet name?
Set xRg = Worksheets("Sheet5").Range("A2:B8")
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations