Jak przeprowadzić natychmiastowe wyszukiwanie filtrowane podczas pisania w komórce w programie Excel?

W tym artykule przedstawiono metodę szybkiego wyszukiwania i filtrowania podczas pisania w komórce w programie Excel.

Natychmiastowe filtrowane wyszukiwanie podczas pisania za pomocą kodu VBA

Natychmiastowe filtrowane wyszukiwanie podczas pisania za pomocą kodu VBA

Niesamowity! Korzystanie z wydajnych kart w programie Excel, takim jak Chrome, Firefox i Safari!

Zaoszczędź 50% swojego czasu i zmniejszaj tysiące kliknięć myszą każdego dnia!

Jak pokazano na poniższym zrzucie ekranu, masz listę nazw, którą chcesz przeszukać i odfiltrować natychmiast po wpisaniu określonej komórki. Aby to zrobić, wykonaj następujące czynności.

1. Po pierwsze, musisz utworzyć tabelę z danymi listy i nazwać ją „Imię i nazwisko”. Wybierz całą listę, kliknij wstawka > Stół.

2. W otwarciu Utwórz tabelę okno dialogowe, kliknij OK. Zobacz zrzut ekranu:

3. Kliknij dowolną komórkę tabeli, aby aktywować Designerski. kartę, a następnie zmień nazwę tabeli na Imię i nazwisko w Nazwa tabeli pole tekstowe. Zobacz zrzut ekranu:

4. kliknij Deweloper > wstawka > Pole tekstowe (formant ActiveX) aby wstawić pole tekstowe nad listą tabel, jak pokazano na poniższym zrzucie ekranu:

5. Kliknij prawym przyciskiem myszy pole tekstowe i kliknij Nieruchomości, W Nieruchomości wpisz odwołanie do komórki w LinkedCell pudełko.

6. Kliknij prawym przyciskiem pole tekstowe i wybierz Wyświetl kod z menu kontekstowego. Następnie zamień oryginalny kod na poniższy kod VBA w pliku Microsoft Visual Basic for Applications okno. Zobacz zrzut ekranu:

Kod VBA: Natychmiastowe filtrowane wyszukiwanie podczas pisania w programie Excel

Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Name"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
    Else
        xRg.AutoFilter field:=1, Operator:=xlFilterValues
    End If
Err01:
Application.ScreenUpdating = True
End Sub

Uwagi: W kodzie TextBox1 to nazwa wstawionego pola tekstowego, Nazwa to nazwa listy tabeli. Możesz je zmieniać w zależności od potrzeb.

7. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.

8. Wyłącz tryb projektowania, klikając Deweloper > Tryb projektowania.

Odtąd lista tabel będzie przeszukiwana i filtrowana natychmiast na podstawie wartości wprowadzonej w polu tekstowym. Zobacz zrzut ekranu:

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... Prevent Duplicate Cells; 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!