Wie führe ich ein Makro basierend auf dem Zellenwert in Excel aus?
Angenommen, ich habe mehrere Makrocodes in meiner Arbeitsmappe, und jetzt möchte ich diese Codes basierend auf dem Zellenwert ausführen. In diesem Artikel werde ich auf verschiedene Situationen eingehen, die bei der täglichen Arbeit mit Excel bei Ihrer täglichen Arbeit auftreten können.
Führen Sie ein Makro aus oder lösen Sie es aus, wenn der Zellenwert mit VBA-Code größer oder kleiner als ein bestimmter Wert ist
Wenn der Wert in Zelle A1 beispielsweise zwischen 10 und 50 liegt, führen Sie Makro1 aus, und wenn der Wert größer als 50 ist, führen Sie Makro2 aus. Um diesen Job in Excel zu lösen, wenden Sie bitte den folgenden VBA-Code an.
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt, auf der Sie das Makro basierend auf einem Zellenwert ausführen möchten, und wählen Sie dann aus Code anzeigen aus dem Kontextmenü und im geöffneten Microsoft Visual Basic für Anwendungen Kopieren Sie im Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Führen Sie ein Makro aus, wenn der Zellenwert größer oder kleiner als:
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: Im obigen Code:
A1 ist die Zelle, die den spezifischen Wert enthält, auf dem das Makro ausgeführt werden soll;
Fall 10 bis 50: Makro1: bedeutet, wenn der Wert zwischen 10 und 50 liegt, führen Sie Macro1 aus;
Fall ist> 50: Macro2: Wenn der Wert größer als 50 ist, führen Sie Macro2 aus.
Bitte ändern Sie diese Makronamen und -kriterien nach Ihren Wünschen. Sie können auch weitere Kriterien hinzufügen Gehäuse Skripte.
2. Speichern und schließen Sie dann dieses Codefenster. Wenn der von Ihnen in Zelle A10 eingegebene Wert zwischen 50 und 1 liegt, wird Makro1 ausgelöst. Wenn der eingegebene Wert größer als 50 ist, wird Makro2 ausgeführt.
Führen Sie ein Makro aus oder lösen Sie es aus, wenn der Zellenwert einem bestimmten Text mit VBA-Code entspricht
Wenn Sie das Makro basierend auf einem bestimmten Text in einer Zelle auslösen möchten, um beispielsweise das Makro1 auszuführen, wenn der Text "Löschen" eingegeben wird, und das Makro2 auszuführen, wenn der Text "Einfügen" eingegeben wird. Der folgende Code kann Ihnen einen Gefallen tun.
1. Klicken Sie mit der rechten Maustaste auf das Blatt, auf dem Sie das Makro basierend auf dem Zellenwert ausführen möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü und im geöffneten Microsoft Visual Basic für Anwendungen Kopieren Sie im Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Makro ausführen, wenn Zellenwert ein bestimmter Text ist
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: Im obigen Code “Löschen" und "Insert”Sind die Zellentexte, auf denen Sie Makros ausführen möchten, und Macro1 und Macro2 sind die Makros, die Sie basierend auf Text ausführen möchten. Bitte ändern Sie sie nach Ihren Wünschen.
2. Speichern Sie dann diesen Code und schließen Sie das Fenster. Wenn Sie nun den Text „Löschen“ in Zelle A1 eingeben, wird Makro1 ausgelöst. Wenn der Text „Einfügen“ eingegeben wird, wird Makro2 ausgeführt.
In Verbindung stehende Artikel:
Wie führe ich ein Makro aus, wenn sich der Zellenwert in Excel ändert?
Wie führe ich ein Makro automatisch aus, bevor ich in Excel drucke?
Wie führe ich ein Makro aus, indem ich in Excel auf Hyperlinks klicke?
Wie führe ich ein Makro aus, wenn ein Blatt aus einer Arbeitsmappe ausgewählt wird?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!