Hoe wijzigt u de waarde of kleur van een bepaalde cel wanneer een selectievakje is aangevinkt in Excel?
Dit artikel gaat over het wijzigen van de waarde of kleur van een opgegeven cel met behulp van een selectievakje. Bijvoorbeeld: wanneer een bepaald selectievakje is aangevinkt, wordt de waarde of Achtergrondkleur van een opgegeven cel automatisch gewijzigd. Volg de onderstaande methoden stap voor stap om dit uit te voeren.
Wijzig de waarde van een opgegeven cel wanneer het selectievakje is aangevinkt met een formule
Wijzig de waarde van een opgegeven cel wanneer het selectievakje is aangevinkt met VBA-code
Wijzig de kleur van een opgegeven cel wanneer het selectievakje is aangevinkt met VBA-code
Wijzig de waarde van een opgegeven cel wanneer het selectievakje is aangevinkt met een formule
Stel dat u wilt dat cel A1 automatisch de waarde „test” krijgt zodra Selectievakje 1 is aangevinkt, en leeg wordt zodra het selectievakje wordt uitgevinkt. Volg dan de volgende stappen.
U moet het selectievakje eerst koppelen aan een specifieke cel en vervolgens een formule toepassen om dit te realiseren.
1. Om het selectievakje te koppelen aan een bepaalde cel, selecteert u het eerst, voert u daarna =celverwijzing in op de formulebalk en drukt u op Enter. Hier koppel ik selectievakje 1 aan cel C2 door =C2 in te voeren op de formulebalk nadat ik het selectievakje heb geselecteerd.
Klik met de rechtermuisknop op een ActiveX-besturingselement Selectievakje en kies Eigenschappen in het contextmenu. Voer in het dialoogvenster Eigenschappen de gekoppelde cel in bij het veld GekoppeldeCel en sluit het dialoogvenster. Zie de schermafbeelding:
2. Selecteer de cel waarvan u de waarde wilt wijzigen (hier kies ik A1), typ vervolgens de formule =IF(C2,"Test",„") in de formulebalk en druk op de Enter-toets. Zie de schermafbeelding:
Opmerking: In de formule is C2 de gekoppelde cel van het selectievakje 1, en „Test” is de waarde die in cel A1 verschijnt wanneer het selectievakje is aangevinkt.
U ziet het resultaat, zoals weergegeven in de onderstaande schermafbeeldingen, nadat u het betreffende selectievakje hebt aangevinkt of uitgevinkt.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Wijzig de waarde van een opgegeven cel wanneer het selectievakje is aangevinkt met VBA-code
U kunt de waarde van een opgegeven cel ook aanpassen zodra het selectievakje is aangevinkt, met behulp van VBA-code. Volg hiervoor de volgende stappen.
1. Klik met de rechtermuisknop op het bladtabblad waarvan u de celwaarde wilt wijzigen op basis van een selectievakje en kies vervolgens Code weergeven in het contextmenu.
2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code in het Code-venster.
VBA-code: Wijzig de waarde van een opgegeven cel wanneer het selectievakje is aangevinkt
Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
xStr = InputBox("Please enter a value：", "Kutools for Excel")
xRng.Value = xStr
If xStr = "" Then CheckBox1.Value = False
Else
xRng.Value = ""
End If
End Sub
Opmerking: In de code is ChekBox1 de naam van het selectievakje (ActiveX-besturingselement). U kunt deze naar wens aanpassen.
3. Druk tegelijkertijd op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
4. Selecteer een lege cel (A1) waarvan u de waarde wilt wijzigen op basis van het selectievakje en vink Kutools voor Excel-selectievakje1 in uw werkblad aan. Er verschijnt nu een dialoogvenster. Voer de waarde in die u in de geselecteerde lege cel wilt plaatsen en klik op de knop OK. Zie de schermafbeelding:
De opgegeven waarde verschijnt nu direct in de geselecteerde cel. Zodra u het selectievakje uitschakelt, wordt de cel leeggemaakt.
Opmerking: Deze code vraagt u telkens opnieuw om een tekstwaarde in te voeren zodra u het selectievakje aanklikt.
Wijzig de kleur van een opgegeven cel wanneer het selectievakje is aangevinkt met VBA-code
In deze sectie leest u hoe u met VBA-code de kleur van een opgegeven cel wijzigt zodra het selectievakje is aangevinkt.
1. Klik met de rechtermuisknop op het Bladtabblad waarvan u de celkleur wilt wijzigen op basis van een selectievakje en kies vervolgens Code weergeven in het contextmenu.
2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code in het Code-venster.
VBA-code: Wijzig de kleur van een opgegeven cel wanneer het selectievakje is aangevinkt
Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
xRng.Interior.Color = vbRed
Else
xRng.Interior.Color = xlNone
End If
End Sub
Opmerking: In de code is ChekBox1de naam van het Selectievakje (ActiveX-besturingselementen). U kunt deze naar wens aanpassen.
3. Selecteer een cel waarvan u de achtergrondkleur wilt wijzigen en vink het selectievakje aan. De vulkleur van de geselecteerde cel wordt direct rood. Vinkt u het vakje weer uit, dan verdwijnt de achtergrondkleur en is de cel opnieuw ongekleurd. Zie de schermafbeeldingen:
Gerelateerde artikelen:
- Hoe markeert u een cel of rij in Excel met een selectievakje?
- Hoe voegt u een datumstempel in een cel in wanneer een selectievakje is aangevinkt in Excel?
- Hoe zorgt u ervoor dat een selectievakje in Excel automatisch wordt aangevinkt op basis van een celwaarde?
- Hoe filtert u gegevens in Excel op basis van een selectievakje?
- Hoe verbergt u een selectievakje wanneer de bijbehorende rij in Excel verborgen is?
- Hoe maakt u in Excel een vervolgkeuzelijst met meerdere selectievakjes?
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