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

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

Ինքնալրացնել VBA կոդով բացվող ցուցակը մուտքագրելիս
Ավտոմատ լրացում, երբ մուտքագրում եք բացվող ցուցակում զարմանալի գործիքի միջոցով
Բացվող ցուցակի այլ ձեռնարկներ ...

Ինքնալրացնել VBA կոդով բացվող ցուցակը մուտքագրելիս

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

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

1. Բացեք աշխատաթերթը, որը պարունակում է բացվող ցուցակի բջիջը, որը ցանկանում եք այն դարձնել ինքնալրացված:

2. Նախքան Combo վանդակը տեղադրելը, անհրաժեշտ է Excel ժապավենին ավելացնել Developer ներդիրը: Եթե ​​Developer ներդիրը ցուցադրվում է ձեր ժապավենի վրա, անցնել 3-րդ քայլին, Հակառակ դեպքում կատարեք հետևյալը. Սեղմեք Ֆայլ > Ընտրանքներ բացելու համար Ընտրանքներ պատուհան Սրանում Excel ընտրանքներ պատուհանը, սեղմեք Անհատականացրեք ժապավենը ձախ պատուհանում ստուգեք Երեվակիչ տուփը, ապա կտտացրեք OK կոճակ Տեսեք,

3: սեղմեք Երեվակիչ > Տեղադրել > Combo Box (ActiveX հսկողություն).

4. Ընթացիկ աշխատաթերթում նկարեք զուգակցված տուփ: Աջ կտտացրեք այն և ընտրեք Հատկություններ աջ կտտացնելու ցանկից:

5. Մեջ Հատկություններ երկխոսության տուփ, խնդրում ենք փոխարինել բնօրինակ տեքստը (Անուն) դաշտը հետ TempCombo:

6. Անջատեք Դիզայնի ռեժիմ սեղմելով Երեվակիչ > Դիզայնի ռեժիմ:

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

7. Աջ կտտացրեք ընթացիկ թերթիկի ներդիրին և կտտացրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,

8. Բացման մեջ 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

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

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

Նշում: Այս կոդը չի աշխատում միավորված բջիջների համար:

Ավտոմատ լրացում, երբ մուտքագրում եք բացվող ցուցակում զարմանալի գործիքի միջոցով

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

ՆշումՆախքան գործառույթը կիրառելը, համոզվեք, որ աշխատաթերթում բացվող ցուցակներ եք ստեղծել: Այս դեպքում բացվող ցուցակները տեղադրվում են D3:D9-ում:

1: սեղմեք Կուտոլս > Բացվող ցուցակ > Որոնվող բացվող ցուցակ > Կարգավորումներ.

2. Պատուհանման մեջ Որոնվող բացվող ցուցակ երկխոսության տուփ, դուք պետք է կատարեք հետևյալ կարգավորումները:

3. Կարգավորումներն ավարտելուց հետո դուք պետք է միացնեք հնարավորությունը՝ սեղմելով Կուտոլս > Բացվող ցուցակ > Որոնվող բացվող ցուցակ > Միացնել որոնվող անկման ցուցակը.

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

Կտտացրեք ՝ այս գործառույթի մասին ավելին իմանալու համար:

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

---

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

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

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

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