Jak autouzupełnianie podczas pisania w rozwijanej liście programu Excel?

Jeśli masz listę rozwijaną do sprawdzania poprawności danych z dużymi elementami, musisz przewijać listę w górę iw dół, aby znaleźć właściwą, lub wpisać całe słowo bezpośrednio w polu listy. Jeśli istnieje metoda pozwalająca na automatyczne uzupełnianie podczas wpisywania pierwszej litery z rozwijanej listy, wszystko stanie się łatwiejsze. W tym samouczku znajdziesz metodę VBA, która pomoże Ci to osiągnąć.

Autouzupełnianie podczas wpisywania listy rozwijanej z kodem VBA
Więcej samouczków dla rozwijanej listy ...

Autouzupełnianie podczas wpisywania listy rozwijanej z kodem VBA

Wykonaj następujące czynności, aby lista rozwijana była automatycznie uzupełniana po wpisaniu odpowiednich liter w komórce.

Po pierwsze, musisz wstawić pole kombi do arkusza i zmienić jego właściwości.

1. Otwórz arkusz zawierający rozwijaną listę komórek, dla których chcesz, aby były one automatycznie uzupełniane.

2. Przed wstawieniem pola kombi należy dodać kartę Deweloper do wstążki programu Excel. Jeśli karta Deweloper jest wyświetlana na wstążce, przejdź do kroku 3. W przeciwnym razie wykonaj następujące czynności: Kliknij filet > Opcje otworzyć Opcje okno. W tym Opcje programu Excel okno, kliknij Dostosuj Wstążkę w lewym okienku zaznacz plik Deweloper a następnie kliknij OK przycisk. Zobacz zrzut ekranu:

3. kliknij Deweloper > wstawka > Pole kombi (formant ActiveX).

4. Narysuj pole kombi w bieżącym arkuszu. Kliknij go prawym przyciskiem myszy, a następnie wybierz Nieruchomości z menu po kliknięciu prawym przyciskiem myszy.

5. w Nieruchomości W oknie dialogowym zamień oryginalny tekst w (Nazwa) pole z TempCombo.

6. Wyłącz Tryb projektowania klikając przycisk Deweloper > Tryb projektowania.

Następnie zastosuj poniższy kod VBA

7. Kliknij prawym przyciskiem myszy bieżącą kartę arkusza i kliknij Wyświetl kod z menu kontekstowego. Zobacz zrzut ekranu:

8. W otwarciu Microsoft Visual Basic for Applications należy skopiować i wkleić poniższy kod VBA do okna kodu arkusza roboczego.

Kod VBA: autouzupełnianie podczas pisania na rozwijanej liście

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. naciśnij inny + Q klawisze jednocześnie, aby zamknąć Aplikacje Microsoft Visual Basic okno.

Odtąd po kliknięciu komórki listy rozwijanej, lista rozwijana wyświetli się automatycznie. Możesz zacząć wpisywać literę, aby odpowiadająca jej pozycja była automatycznie uzupełniana w wybranej komórce. Zobacz zrzut ekranu:

Uwaga: Ten kod nie działa w przypadku scalonych komórek.

Podobne artykuły:

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

• Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
• Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
• Zwiększa produktywność o 50% i redukuje setki kliknięć myszą każdego dnia!

Czytaj więcej... Darmowe pobieranie... Zakup...