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

Pro rozevírací seznam ověření dat s mnoha položkami musíte v seznamu posouvat nahoru a dolů, abyste našli tu, kterou potřebujete, nebo správně zadat celé slovo do pole seznamu. Existuje nějaký způsob, jak nastavit automatické doplňování rozevíracího seznamu při psaní odpovídajících znaků? To by lidem pomohlo pracovat efektivněji v listech s rozevíracími seznamy v buňkách. Tento tutoriál poskytuje dvě metody, jak toho dosáhnout.

Proveďte automatické doplňování rozevíracích seznamů pomocí kódu VBA
Snadné automatické doplňování rozevíracích seznamů za 2 sekundy
Další výukové programy pro rozevírací seznam ...

Proveďte automatické doplňování rozevíracích seznamů pomocí kódu 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ňky rozevíracího seznamu, u kterých chcete provést automatické doplňování.
2. Před vložením pole Combo je třeba přidat kartu Vývojář na pás karet aplikace Excel. Pokud se na pásu karet zobrazuje karta Vývojář, přejděte ke kroku 3. V opačném případě postupujte takto, aby se karta Vývojář zobrazila na pásu karet: Klepněte 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. klikněte Vývojka > Vložit > Rozbalovací seznam (ovládací prvek ActiveX).
   
4. Nakreslete pole se seznamem v aktuálním listu. Klikněte na něj pravým tlačítkem a 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. Vypněte Režim návrhu Kliknutím Vývojka > Režim návrhu.

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

1. Klikněte pravým tlačítkem na kartu aktuálního listu a klikněte Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
   
2. 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

   
3. Stisknout 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:

Snadno proveďte automatické doplňování rozevíracího seznamu za 2 sekundy

Pro většinu uživatelů aplikace Excel je výše uvedená metoda VBA obtížné zvládnout. Ale s Prohledávatelný rozevírací seznam vlastnost Kutools pro Excel, můžete snadno povolit automatické doplňování pro rozevírací seznamy ověřování dat v zadaný rozsah za pouhé 2 sekundy. A co víc, tato funkce je dostupná pro všechny verze Excelu.

1. Chcete-li povolit automatické doplňování v rozevíracích seznamech, nejprve vyberte rozsah pomocí rozevíracích nabídek. Poté přejděte na Kutools kartu, vyberte Rozbalovací seznam > Umožněte prohledávat rozevírací seznam, automaticky vyskakovací okno.
2. v Umožněte prohledávat rozevírací seznam dialogovém okně klepněte na OK pro uložení nastavení.

Výsledek

Jakmile je konfigurace dokončena, kliknutím na buňku rozevíracího seznamu v zadaném rozsahu zobrazíte seznam. Při zadávání znaků, pokud se jedna položka přesně shoduje, se celé slovo okamžitě zvýrazní v seznamu a lze jej vyplnit do buňky rozevíracího seznamu jednoduše stisknutím klávesy Enter.

Související články: