Hogyan lehet automatikusan kitölteni, amikor beírja az Excel legördülő listát?

Ha van egy adatellenőrzési legördülő listája nagy elemekkel, akkor felfelé és lefelé kell görgetnie a listában, csak a megfelelő megtalálásához, vagy be kell írnia az egész szót közvetlenül a listamezőbe. Ha van módszer az automatikus kitöltés engedélyezésére, amikor beírja az első betűt a legördülő listába, akkor minden könnyebbé válik. Ez az oktatóanyag egy VBA-módszert nyújt a megvalósításhoz.

Automatikus kiegészítés, amikor beírja a legördülő listát VBA kóddal
További útmutatók a legördülő listához ...

Automatikus kiegészítés, amikor beírja a legördülő listát VBA kóddal

Kérjük, tegye a következőket, hogy a legördülő lista automatikusan kiegészüljön, miután beírta a megfelelő betűket a cellába.

Először be kell illesztenie egy kombinációs mezőt a munkalapba, és meg kell változtatnia annak tulajdonságait.

1. Nyissa meg azt a munkalapot, amely tartalmazza az automatikus kitöltéssel rendelkező legördülő lista cellát.

2. A Combo mező behelyezése előtt hozzá kell adnia a Fejlesztő fület az Excel szalaghoz. Ha a Fejlesztő fül jelenik meg a szalagon, váltás a 3. lépésre. Ellenkező esetben tegye a következőket: Kattintson filé > Opciók megnyitni Opciók ablak. Ebben Excel beállítások ablakban kattintson Szalag szabása a bal oldali ablaktáblában ellenőrizze a Fejlesztő jelölőnégyzetet, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

3. kettyenés Fejlesztő > betétlap > Combo Box (ActiveX vezérlő).

4. Rajzoljon egy kombinációs mezőt az aktuális munkalapra. Kattintson a jobb gombbal, majd válassza a lehetőséget ingatlanok a jobb egérgombbal kattintva.

5. Ban,-ben ingatlanok párbeszédpanelt, kérjük, cserélje ki az eredeti szöveget a (Név) mezővel TempCombo.

6. Kapcsolja ki a Tervezési mód kattintson a gombra Fejlesztő > Tervezési mód.

Ezután alkalmazza az alábbi VBA kódot

7. Kattintson a jobb gombbal az aktuális lap fülre, majd kattintson a gombra Kód megtekintése a helyi menüből. Lásd a képernyőképet:

8. A nyílásban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi VBA kódot a munkalap Kód ablakába.

VBA kód: Automatikus kitöltés, amikor a legördülő listába gépel

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. nyomja meg más + Q gombok egyszerre a Microsoft Visual Basic alkalmazások ablak.

Mostantól, amikor egy legördülő lista cellára kattint, a legördülő lista automatikusan felszólítja. Elkezdheti beírni a betűt, hogy a megfelelő elem automatikusan teljes legyen a kiválasztott cellában. Lásd a képernyőképet:

Jegyzet: Ez a kód nem működik egyesített celláknál.

Kapcsolódó cikkek:

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

• újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...