Jak uruchomić makro na podstawie wartości wybranej z rozwijanej listy w programie Excel?
Uruchamianie makr przez kliknięcie przycisku polecenia jest typowym zadaniem w programie Excel, ale czy kiedykolwiek próbowałeś wykonać kody makr na podstawie wartości wybranej z rozwijanej listy? Oznacza to, że gdy wybierzesz jedną pozycję z rozwijanej listy, określone makro zostanie uruchomione od razu. Ten artykuł wprowadzi przydatny kod do rozwiązania tego zadania.
Uruchom makro na podstawie wartości wybranej z rozwijanej listy z kodem VBA
Uruchom makro na podstawie wartości wybranej z rozwijanej listy z kodem VBA
Nie ma bezpośredniego sposobu na zakończenie tego zadania, ale poniższy kod VBA może ci pomóc, wykonaj następujące czynności:
1. Najpierw utwórz listę rozwijaną, jak potrzebujesz, patrz zrzut ekranu:
2. Następnie kliknij prawym przyciskiem myszy kartę arkusza zawierającą listę rozwijaną, której chcesz użyć, a następnie wybierz Wyświetl kod z menu kontekstowego oraz w otwartym Microsoft Visual Basic dla aplikacji w oknie, skopiuj i wklej następujący kod do pustego modułu:
Kod VBA: Uruchom makro na podstawie wartości wybranej z rozwijanej listy:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1")) Is Nothing Then
Select Case Range("E1")
Case "Insert Blank rows": Macro1
Case "Hide All Sheets": Macro2
Case "Convert to Date": Macro3
End Select
End If
End Sub
Uwagi: W powyższym kodzie, E1 to komórka zawiera listę rozwijaną, zmień nazwy makr i wartości listy rozwijanej na potrzebne.
3. A następnie zapisz i zamknij to okno kodu, teraz, gdy wybierzesz element Wstaw puste wiersze z rozwijanej listy, zostanie wyzwolone Makro1 i tak dalej…
Podobne artykuły:
Jak uruchomić makro, gdy zmienia się wartość komórki w programie Excel?
Jak uruchomić makro na podstawie wartości komórki w programie Excel?
Jak automatycznie uruchomić makro przed drukowaniem w programie Excel?
Jak uruchomić makro, klikając hiperłącza w programie Excel?
Jak uruchomić makro, gdy arkusz jest wybrany ze skoroszytu?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami 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!







