Hoe schakelt u een knop in of uit op basis van een celwaarde in Excel?
In dit artikel bespreek ik enkele methoden om een knop in of uit te schakelen, afhankelijk van de waarde van een cel in een Excel-werkblad.
Twee knoppen in- of uitschakelen op basis van gegevens in twee kolommen met VBA-code
Een knop in- of uitschakelen op basis van twee celwaarden met VBA-code
Twee knoppen in- of uitschakelen op basis van gegevens in twee kolommen met VBA-code
Stel dat u twee opdrachtknoppen hebt in een werkblad: wanneer kolom A gegevens bevat, is knop 1 ingeschakeld en knop 2 uitgeschakeld; wanneer kolom C gegevens bevat, is knop 2 ingeschakeld en knop 1 uitgeschakeld. De volgende VBA-code helpt u deze taak eenvoudig op te lossen.
1. Klik met de rechtermuisknop op het werkblad met de knoppen en kies vervolgens Code weergeven in het contextmenu, zie screenshot:
2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande code in de lege module:
VBA-code: Twee knoppen in- of uitschakelen op basis van twee kolommen:
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
Opmerking: In de bovenstaande code zijn CommandButton1 en CommandButton2 de namen van de knoppen, en A:A en C:C de twee kolommen die u gebruikt om de knoppen in of uit te schakelen. Pas deze aan naar wens.
3. Sluit het codovenster en klik op Opslaan en sluiten. U krijgt nu het gewenste resultaat:
(1.) Als u gegevens typt in kolom A, wordt knop 1 ingeschakeld en knop 2 uitgeschakeld, zie screenshot:
(2.) Als u gegevens typt in kolom C, wordt knop 2 ingeschakeld en knop 1 uitgeschakeld, zie screenshot:
(3.) Beide kolommen A en C bevatten gegevens; beide knoppen zijn ingeschakeld, zie screenshot:
(4.) Beide knoppen zijn uitgeschakeld als er geen gegevens staan in kolom A en kolom C, zie screenshot:
Een knop in- of uitschakelen op basis van twee celwaarden met VBA-code
Als u een opdrachtknop dynamisch wilt in- of uitschakelen op basis van twee celwaarden — bijvoorbeeld: de knop is ingeschakeld wanneer de waarde in A1 groter is dan die in B1, en uitgeschakeld in alle andere gevallen — dan helpt de volgende VBA-code u daarbij.
1. Klik met de rechtermuisknop op het werkblad met de knop en kies vervolgens Code weergeven in het contextmenu. Plak in het venster Microsoft Visual Basic for Applications de onderstaande code in de lege module, zie screenshot:
VBA-code: Een knop in- of uitschakelen op basis van twee celwaarden:
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
Opmerking: In de bovenstaande code zijn A1 en B1 de celwaarden die u gebruikt, en is CommandButton1 de naam van de knop. Pas deze aan naar uw eigen situatie.
2. Sluit het codovenster met Opslaan en sluiten. De knop is nu ingeschakeld als de celwaarde in A1 groter is dan die in B1; is de waarde in A1 kleiner dan in B1, dan is de knop uitgeschakeld. Zie screenshot:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins