Przejdź do głównej zawartości

Jak wyczyścić zawartość pola kombi za pomocą kodu VBA w programie Excel?

Zwykle można wyczyścić zawartość pola kombi, usuwając dane listy Zakres wejściowy. Ale co z wyczyszczeniem zawartości wszystkich pól kombi w arkuszu programu Excel? W tym artykule przygotowano dwa kody VBA, które pomogą nie tylko wyczyścić zawartość pola kombi, ale także wyczyścić zawartość wszystkich pól kombi w tym samym czasie w arkuszu programu Excel.

Łatwo wyczyść zawartość pola kombi za pomocą kodu VBA


Łatwo wyczyść zawartość pola kombi za pomocą kodu VBA

Poniższe dwa kody VBA mogą pomóc w wyczyszczeniu zawartości pola kombi lub wszystkich pól kombi w aktywnym arkuszu. Wykonaj następujące czynności.

1. W arkuszu roboczym musisz wyczyścić zawartość pola kombi, naciśnij inny + F11 klawisze w tym samym czasie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna Code.

VBA 1: Wyczyść zawartość pola kombi w arkuszu

Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
    .ListFillRange = ""
End With
End Sub

Note: W kodzie „Drop Down 2” to nazwa pola kombi, z którego usuniesz zawartość. Zmień to na własne.

VBA 2: Wyczyść zawartość wszystkich pól kombi w aktywnym arkuszu

Sub ClearComboBox()
    Dim xOle As OLEObject
    Dim xDrop As DropDown
    Application.ScreenUpdating = False
    For Each xOle In ActiveSheet.OLEObjects
        If TypeName(xOle.Object) = "ComboBox" Then
            xOle.ListFillRange = ""
        End If
    Next
    For Each xDrop In ActiveSheet.DropDowns
        xDrop.ListFillRange = ""
    Next
    Application.ScreenUpdating = True
End Sub

3. wciśnij F5 lub kliknij przycisk Uruchom, aby uruchomić kod.

Następnie możesz zobaczyć, że zawartość jest wyczyszczona w określonym polu kombi lub we wszystkich polach kombi w aktywnym arkuszu, jak pokazano na poniższym zrzucie ekranu:

Note: kody VBA można zastosować zarówno do pola kombi (formant formularza), jak i pola kombi (formant ActiveX).


Podobne artykuły:

Najlepsze narzędzia biurowe

Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

karta kte 201905


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations