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

W przypadku rozwijanej listy sprawdzania poprawności danych zawierającej wiele elementów, musisz przewijać listę w górę iw dół, aby znaleźć tę, której potrzebujesz, lub poprawnie wpisać całe słowo w polu listy. Czy są jakieś metody tworzenia automatycznie uzupełnianej listy rozwijanej podczas wpisywania pierwszej litery lub dowolnych znaków względnych? Pomoże to ludziom wydajniej pracować w arkuszach roboczych z rozwijanymi listami w komórkach. Ten samouczek zawiera dwie metody, które pomogą Ci to osiągnąć.

Autouzupełnianie podczas wpisywania listy rozwijanej z kodem VBA
Autouzupełnianie podczas wpisywania listy rozwijanej za pomocą niesamowitego narzędzia
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 Właściwości z menu po kliknięciu prawym przyciskiem myszy.

5. w Właściwoś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.

Autouzupełnianie podczas wpisywania listy rozwijanej za pomocą niesamowitego narzędzia

Ponieważ VBA jest trudny w obsłudze dla wielu użytkowników Excela, tutaj polecamy Przeszukiwalna lista rozwijana cechą Kutools dla programu Excel aby pomóc Ci łatwo wypełnić listę rozwijaną automatycznie podczas wpisywania pierwszego znaku.

Uwagi: Przed zastosowaniem funkcji upewnij się, że w arkuszu zostały utworzone listy rozwijane. W takim przypadku listy rozwijane są umieszczane w D3:D9.

1. kliknij Kutools > Lista rozwijana > Przeszukiwalna lista rozwijana > Ustawienia.

2. W wyskakującym okienku Przeszukiwalna lista rozwijana W oknie dialogowym należy wprowadzić następujące ustawienia.

3. Po zakończeniu ustawień musisz włączyć tę funkcję, klikając Kutools > Lista rozwijana > Przeszukiwalna lista rozwijana > Włącz listę rozwijaną z możliwością wyszukiwania.

Teraz, po kliknięciu komórki listy rozwijanej, wyświetlane jest pole listy ze wszystkimi elementami. Wystarczy wpisać znak w polu tekstowym, aby wyświetlić wszystkie odpowiadające mu elementy i użyć Up or W dół strzałkę, aby wybrać żądany element lub po prostu pozwól pierwszemu pasującemu elementowi automatycznie wypełnić pole listy, a następnie naciśnij Wchodzę klawisz, aby automatycznie uzupełnić komórkę listy rozwijanej pasującym elementem. Zobacz poniższe demo.

Kliknij, aby dowiedzieć się więcej o tej funkcji.

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-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 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ęć myszką każdego dnia!

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