Hoe selectievakjes aan meerdere cellen in Excel koppelen?
Het koppelen van selectievakjes aan meerdere gerelateerde cellen kan u helpen om snel en eenvoudig berekeningen uit te voeren wanneer u alleen de aangevinkte of niet-aangevinkte cellen wilt optellen, tellen of gemiddelden berekenen. Maar hebt u ooit geprobeerd om selectievakjes tegelijkertijd aan meerdere cellen in een werkblad te koppelen?
Selectievakjes één voor één aan meerdere cellen koppelen met formule
Selectievakjes in één keer aan meerdere cellen koppelen met VBA-code
Selectievakjes één voor één aan meerdere cellen koppelen met formule
Om het selectievakje aan een specifieke cel te koppelen, kunt u in feite een eenvoudige formule toepassen om ze handmatig te koppelen.
1. Nadat u de selectievakjes in uw werkblad hebt ingevoegd, houdt u de Ctrl-toets ingedrukt en klikt u op het eerste selectievakje dat u wilt koppelen aan een andere cel.
2. Typ vervolgens in de formulebalk het gelijkteken = en klik daarna op een cel waaraan u het selectievakje wilt koppelen, bijvoorbeeld B2, zie screenshot:
3. Druk vervolgens op de Enter-toets op het toetsenbord. Nu zal, wan neer u dit selectievakje aanvinkt, de gekoppelde cel WAAR weergeven; als u het uitvinkt, zal deze ONWAAR weergeven, zie screenshot:
4. Herhaal de bovenstaande stappen om andere selectievakjes één voor één te koppelen.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Selectievakjes in één keer aan meerdere cellen koppelen met VBA-code
Als er honderden of duizenden selectievakjes moeten worden gekoppeld aan andere cellen, zal de eerste methode niet effectief werken. Om ze in één keer aan meerdere cellen te koppelen, kunt u de volgende VBA-code gebruiken. Doe het volgende:
1. Ga naar uw werkblad met de lijst van selectievakjes.
2. Houd de ALT + F11-toetsen ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
3. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: selectievakjes in één keer aan meerdere cellen koppelen
Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "B"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
Cells(i, xCChar).Value = True
Else
Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub
4. Druk vervolgens op de F5-toets om deze code uit te voeren. Alle selectievakjes in het actieve werkblad zijn nu gekoppeld aan de cellen. Wanneer u een selectievakje aanvinkt, zal de bijbehorende cel WAAR weergeven; als u een selectievakje uitvinkt, zal de gekoppelde cel ONWAAR weergeven, zie screenshot:
Opmerking: In de bovenstaande code is i = 2, waarbij het getal 2 de startrij van uw selectievakje is en de letter B de kolomlocatie waar u de selectievakjes aan moet koppelen. U kunt ze naar behoefte wijzigen.
Gerelateerde artikelen:
Hoe alle selectievakjes met een enkel selectievakje in Excel selecteren?
Hoe snel meerdere selectievakjes in Excel invoegen?
Hoe snel meerdere selectievakjes in Excel verwijderen?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen