Jak uruchomić makro na podstawie wartości komórki w programie Excel?
Przypuśćmy, że mam w skoroszycie wiele kodów makr, a teraz chcę uruchomić te kody na podstawie wartości komórki. W tym artykule omówię kilka sytuacji, które możesz spotkać w codziennej pracy podczas korzystania z programu Excel.
Uruchom lub uruchom makro, jeśli wartość komórki jest równa określonemu tekstowi z kodem VBA
Uruchom lub uruchom makro, jeśli wartość komórki jest większa lub mniejsza niż określona wartość z kodem VBA
Na przykład, jeśli wartość w komórce A1 wynosi od 10 do 50, uruchom makro1, a jeśli wartość jest większa niż 50, uruchom makro2. Aby rozwiązać tę pracę w programie Excel, zastosuj następujący kod VBA.
1. Kliknij prawym przyciskiem myszy kartę arkusza, w którym chcesz wykonać makro na podstawie wartości komórki, 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, jeśli wartość komórki jest większa lub mniejsza niż:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Note: W powyższym kodzie:
A1 to komórka zawierająca określoną wartość, na podstawie której chcesz uruchomić makro;
Przypadek 10 do 50: Makro1: oznacza to, że jeśli wartość wynosi od 10 do 50, uruchom Makro1;
Przypadek jest> 50: Macro2: oznacza to, że jeśli wartość jest większa niż 50, uruchom Makro2.
Zmień te nazwy i kryteria makr zgodnie z potrzebami, a także możesz dodać więcej kryteriów zgodnie z Walizka skrypt.
2. Następnie zapisz i zamknij to okno kodu, teraz, gdy wprowadzona wartość jest między 10 a 50 w komórce A1, zostanie uruchomione Makro1, jeśli wprowadzona wartość jest większa niż 50, zostanie wykonane Makro2.
Uruchom lub uruchom makro, jeśli wartość komórki jest równa określonemu tekstowi z kodem VBA
Jeśli chcesz uruchomić makro na podstawie określonego tekstu w komórce, na przykład, aby uruchomić makro1, jeśli wprowadzono tekst „Usuń”, i uruchomić makro2, jeśli zostanie wpisany tekst „Wstaw”. Poniższy kod może wyświadczyć ci przysługę.
1. Kliknij prawym przyciskiem myszy arkusz, w którym chcesz wykonać makro na podstawie wartości komórki, 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, jeśli wartość komórki jest określonym tekstem
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Note: W powyższym kodzie „Usuń"I"wstawka”To teksty komórek, na podstawie których chcesz uruchamiać makra, i Macro1 i Macro2 to makra, które chcesz wykonać na podstawie tekstu. Zmień je według swoich potrzeb.
2. Następnie zapisz ten kod i zamknij okno, teraz po wpisaniu tekstu „Usuń” w komórce A1 uruchamiane jest makro1, jeśli wpisany jest tekst „Wstaw”, zostanie wykonane makro2.
Podobne artykuły:
Jak uruchomić makro, gdy zmienia się wartość komórki w programie Excel?
Jak automatycznie uruchomić makro przed drukowaniem w programie Excel?
Jak uruchomić makro na podstawie wartości wybranej z rozwijanej listy 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 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 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!