Ինչպե՞ս ինքնալրացնել Excel- ը բացվող ցուցակում մուտքագրելիս:

Բազմաթիվ տարրերով տվյալների վավերացման բացվող ցանկի համար դուք պետք է ոլորեք ցուցակում վերև վար՝ գտնելու ձեզ անհրաժեշտ մեկը կամ ճիշտ մուտքագրեք ամբողջ բառը ցուցակի վանդակում: Կա՞ որևէ միջոց՝ բացվող ցուցակը ավտոմատ կերպով լրացնել համապատասխան նիշերը մուտքագրելիս: Սա կօգնի մարդկանց ավելի արդյունավետ աշխատել բջիջներում բացվող ցուցակներով աշխատաթերթերում: Այս ձեռնարկը տրամադրում է երկու մեթոդ, որոնք կօգնեն ձեզ հասնել դրան:

Բացվող ցուցակները դարձրեք ինքնալրացում VBA կոդով
Հեշտությամբ բացվող ցուցակները դարձրեք ինքնալրացում 2 վայրկյանում
Բացվող ցուցակի այլ ձեռնարկներ ...

Բացվող ցուցակները դարձրեք ինքնալրացում VBA կոդով

Խցում համապատասխան տառեր մուտքագրելուց հետո բացվող ցուցակն ինքնալրացնելու համար արեք հետևյալը.

Նախևառաջ, անհրաժեշտ է կոմբինատ տուփ մտցնել աշխատաթերթի մեջ և փոխել դրա հատկությունները:

1. Բացեք աշխատաթերթը, որը պարունակում է բացվող ցանկի բջիջները, որոնք ցանկանում եք դրանք ավտոմատ կերպով լրացնել:
2. Նախքան Combo տուփը տեղադրելը, դուք պետք է ավելացնեք «Developer» ներդիրը Excel ժապավենի վրա: Եթե ​​ձեր ժապավենի վրա ցուցադրվում է «Developer» ներդիրը, անցնել 3-րդ քայլին. Հակառակ դեպքում, կատարեք հետևյալը, որպեսզի «Develper» ներդիրը հայտնվի ժապավենում. Սեղմեք Ֆայլ > Ընտրանքներ բացելու համար Ընտրանքներ պատուհան Սրանում Excel ընտրանքներ պատուհանը, սեղմեք Անհատականացրեք ժապավենը ձախ պատուհանում ստուգեք Երեվակիչ տուփը, ապա կտտացրեք OK կոճակ Տեսեք,
   
3. Սեղմել Երեվակիչ > Տեղադրել > Combo Box (ActiveX հսկողություն).
   
4. Ընթացիկ աշխատաթերթում գծեք համակցված տուփ: Աջ սեղմեք դրա վրա և ընտրեք Հատկություններ աջ կտտացնելու ցանկից:
   
5. Է Հատկություններ երկխոսության տուփ, խնդրում ենք փոխարինել բնօրինակ տեքստը (Անուն) դաշտը հետ TempCombo:
   
6. Անջատեք Դիզայնի ռեժիմ սեղմելով Երեվակիչ > Դիզայնի ռեժիմ:

Դրանից հետո կիրառեք ստորև նշված VBA կոդը

1. Աջ սեղմեք ընթացիկ թերթի ներդիրի վրա և սեղմեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,
   
2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհան, խնդրում ենք պատճենել և տեղադրեք ներքևի VBA կոդը աշխատանքային թերթի Կոդի պատուհանում:
   VBA կոդ. Ինքնալրացում ՝ բացվող ցուցակը մուտքագրելիս

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   'Update by Extendoffice: 2020/01/16
       Dim xCombox As OLEObject
       Dim xStr As String
       Dim xWs As Worksheet
       Dim xArr
       
       Set xWs = Application.ActiveSheet
       On Error Resume Next
       Set xCombox = xWs.OLEObjects("TempCombo")
       With xCombox
           .ListFillRange = ""
           .LinkedCell = ""
           .Visible = False
       End With
       If Target.Validation.Type = 3 Then
           Target.Validation.InCellDropdown = False
           Cancel = True
           xStr = Target.Validation.Formula1
           xStr = Right(xStr, Len(xStr) - 1)
           If xStr = "" Then Exit Sub
           With xCombox
               .Visible = True
               .Left = Target.Left
               .Top = Target.Top
               .Width = Target.Width + 5
               .Height = Target.Height + 5
               .ListFillRange = xStr
               If .ListFillRange = "" Then
                   xArr = Split(xStr, ",")
                   Me.TempCombo.List = xArr
               End If
               .LinkedCell = Target.Address
           End With
           xCombox.Activate
           Me.TempCombo.DropDown
       End If
   End Sub
   Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       Select Case KeyCode
           Case 9
               Application.ActiveCell.Offset(0, 1).Activate
           Case 13
               Application.ActiveCell.Offset(1, 0).Activate
       End Select
   End Sub

   
3. մամուլ ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic ծրագրեր պատուհան.

Այսուհետ, երբ կտտացրեք բացվող ցուցակի բջիջը, բացվող ցուցակը ինքնաբերաբար հուշում է: Կարող եք սկսել մուտքագրել նամակը, որպեսզի համապատասխան կետը ավտոմատ կերպով լրացվի ընտրված խցում: Տեսեք,

Հեշտությամբ 2 վայրկյանում դարձրեք բացվող ցանկի ավտոմատ լրացում

Excel-ի օգտվողների մեծամասնության համար վերը նշված VBA մեթոդը դժվար է տիրապետել: Բայց հետ Որոնվող բացվող ցուցակ առանձնահատկությունը Excel- ի համար նախատեսված գործիքներ, կարող եք հեշտությամբ միացնել տվյալների վավերացման բացվող ցուցակների ավտոմատ լրացումը նշված տիրույթ ընդամենը 2 վայրկյանում։ Ավելին, այս գործառույթը հասանելի է Excel-ի բոլոր տարբերակների համար:

ԱկնարկՆախքան այս գործիքը կիրառելը, խնդրում ենք տեղադրել Excel- ի համար նախատեսված գործիքներ առաջին հերթին: Անցեք անվճար ներբեռնմանը հիմա.

1. Ձեր բացվող ցուցակներում ինքնալրացումը միացնելու համար նախ ընտրեք ընդգրկույթը բացվող ցուցակներով: Այնուհետև անցեք դեպի Կուտոլս էջանիշ, ընտրեք Բացվող ցուցակ > Բացվող ցանկը դարձրեք որոնելի, ավտոմատ բացվող.
2. Է Բացվող ցանկը դարձրեք որոնելի երկխոսության տուփ, սեղմեք OK կոճակը փրկելու համար:

Արդյունք

Կազմաձևումն ավարտվելուց հետո, սեղմելով բացվող ցանկի բջիջը նշված տիրույթում, կհայտնվի ցուցակի տուփ: Նիշեր մուտքագրելիս, քանի դեռ մեկ տարրը ճշգրիտ համընկնում է, ամբողջ բառը անմիջապես ընդգծվում է ցուցակի վանդակում և կարող է լրացվել բացվող ցանկի բջիջում՝ պարզապես սեղմելով Enter ստեղնը:

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

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

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

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