Jak se automaticky dokončuje při psaní v rozevíracím seznamu aplikace Excel?

Pokud máte rozevírací seznam pro ověření dat s velkými položkami, musíte v seznamu procházet nahoru a dolů, abyste našli ten správný, nebo přímo zadejte celé slovo do seznamu. Pokud existuje metoda umožňující automatické dokončení při psaní prvního písmene do rozevíracího seznamu, vše bude jednodušší. Tento kurz poskytne metodu VBA, která vám pomůže dosáhnout.

Automatické doplňování při psaní v rozevíracím seznamu s kódem VBA
Další výukové programy pro rozevírací seznam ...

Automatické doplňování při psaní v rozevíracím seznamu s kódem VBA

Chcete-li po zadání odpovídajících písmen do buňky provést automatické doplňování rozevíracího seznamu, postupujte následovně.

Nejprve musíte do listu vložit pole se seznamem a změnit jeho vlastnosti.

1. Otevřete list obsahující buňku rozevíracího seznamu, kterou chcete nastavit jako automatické doplňování.

2. Před vložením pole se seznamem musíte přidat kartu Vývojář na pásku aplikace Excel. Pokud se na pásu karet zobrazuje karta Vývojář, přejděte ke kroku 3. Jinak postupujte následovně: Klepněte na Soubor > možnosti k otevření možnosti okno. V tomhle Možnosti aplikace Excel okno, klepněte na tlačítko Přizpůsobit pás karet v levém podokně zkontrolujte Vývojka a poté klikněte na OK knoflík. Viz screenshot:

3. cvaknutí Vývojka > Vložit > Rozbalovací seznam (ovládací prvek ActiveX).

4. Nakreslete pole se seznamem do aktuálního listu. Klikněte na něj pravým tlačítkem a poté vyberte Nemovitosti z nabídky pravého tlačítka myši.

5. V Nemovitosti V dialogovém okně nahraďte původní text v (Jméno) pole s TempCombo.

6. Vypni Režim návrhu Kliknutím Vývojka > Režim návrhu.

Poté použijte níže uvedený kód VBA

7. Klikněte pravým tlačítkem na kartu aktuálního listu a klikněte na Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:

8. V otvoru Microsoft Visual Basic pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna Kód listu.

Kód VBA: Automatické doplňování při psaní v rozevíracím seznamu

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. lis Další + Q současně zavřete Aplikace Microsoft Visual Basic okno.

Od této chvíle se po kliknutí na buňku rozevíracího seznamu automaticky zobrazí rozevírací seznam. Můžete začít psát písmeno, aby se příslušná položka ve vybrané buňce automaticky dokončila. Viz snímek obrazovky:

Poznámka: Tento kód nefunguje pro sloučené buňky.

Související články:

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

Čtěte více... Stažení zdarma... Nákup... 

---

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!

Čtěte více... Stažení zdarma... Nákup...