Wie aktiviere oder deaktiviere ich die Schaltfläche basierend auf dem Zellenwert in Excel?
In diesem Artikel werde ich einige Methoden zum Aktivieren oder Deaktivieren der Schaltfläche basierend auf dem Zellenwert im Excel-Arbeitsblatt erläutern.
Aktivieren oder deaktivieren Sie zwei Schaltflächen basierend auf zwei Spaltendaten mit VBA-Code
Aktivieren oder deaktivieren Sie eine Schaltfläche basierend auf zwei Zellenwerten mit VBA-Code
Aktivieren oder deaktivieren Sie zwei Schaltflächen basierend auf zwei Spaltendaten mit VBA-Code
Zum Beispiel habe ich zwei Befehlsschaltflächen in einem Arbeitsblatt. Wenn Spalte A Daten enthält, ist die Schaltfläche 1 aktiviert und die Schaltfläche 2 deaktiviert. Wenn Spalte C Daten enthält, ist die Schaltfläche 2 aktiviert und die Schaltfläche 1 deaktiviert. Um diese Aufgabe zu lösen, kann Ihnen der folgende VBA-Code helfen.
1. Klicken Sie mit der rechten Maustaste auf das Blatt, das die Schaltflächen enthält, und wählen Sie dann Code anzeigen Siehe im Kontextmenü Screenshot:
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Aktivieren oder deaktivieren Sie zwei Schaltflächen basierend auf zwei Spalten:
Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = False
CommandButton2.Enabled = False
If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
CommandButton2.Enabled = True
End If
If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
CommandButton1.Enabled = True
End If
End Sub
Note: Im obigen Code, Befehlsschaltfläche1 und Befehlsschaltfläche2 sind die Tasten Namen, A: A und C: C. sind die beiden Spalten, die Sie zum Aktivieren oder Deaktivieren von zwei Schaltflächen verwenden. Bitte ändern Sie sie entsprechend Ihren Anforderungen.
3. Speichern Sie dann das Codefenster und schließen Sie es. Nun erhalten Sie das folgende Ergebnis, wie Sie es benötigen:
(1.) Wenn Sie Daten in Spalte A eingeben, ist die Schaltfläche 1 aktiviert und die Schaltfläche 2 deaktiviert, siehe Screenshot:
(2.) Wenn Sie Daten in Spalte C eingeben, ist die Schaltfläche 2 aktiviert und die Schaltfläche 1 deaktiviert, siehe Screenshot:
(3.) Sowohl Spalte A als auch Spalte C enthalten Daten, zwei Schaltflächen sind alle aktiviert, siehe Screenshot:
(4.) Zwei Schaltflächen sind alle deaktiviert, wenn in Spalte A und Spalte C keine Daten vorhanden sind, siehe Screenshot:
Aktivieren oder deaktivieren Sie eine Schaltfläche basierend auf zwei Zellenwerten mit VBA-Code
Wenn Sie eine Befehlsschaltfläche basierend auf zwei Zellenwerten aktivieren oder deaktivieren möchten, z. B. wenn der Wert in A1 größer als der Wert in B1 ist, ist die Schaltfläche aktiviert, andernfalls ist die Schaltfläche deaktiviert. Der folgende VBA-Code kann Ihnen ebenfalls einen Gefallen tun.
1. Klicken Sie mit der rechten Maustaste auf das Blatt, das die Schaltfläche enthält, und wählen Sie dann aus Code anzeigen aus dem Kontextmenü in der Microsoft Visual Basic für Applikationen Fenster, kopieren Sie bitte den folgenden Code und fügen Sie ihn in das leere Modul ein, siehe Screenshot:
VBA-Code: Aktivieren oder deaktivieren Sie eine Schaltfläche basierend auf zwei Zellenwerten:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetAdd As String
Dim xTemp As Double
On Error GoTo ExitSub
TargetAdd = Target.Address
CommandButton1.Enabled = False
If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
If Range("A1") > Range("B1") Then
CommandButton1.Enabled = True
End If
End If
ExitSub:
End Sub
Note: Im obigen Code, A1 und B1 sind die Zellwerte, die Sie verwenden, CommandButton1 ist der Name der Schaltfläche, ändern Sie ihn in Ihren eigenen.
2. Speichern Sie dann und schließen Sie das Codefenster. Wenn nun der Zellenwert in A1 größer als B1 ist, ist die Schaltfläche aktiviert. Andernfalls ist die Schaltfläche deaktiviert, wenn der Zellenwert in A1 kleiner als B1 ist, siehe Screenshot:
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!