Hoe voeg je een kleurgecodeerde vervolgkeuzelijst in een Word-tabel in?

Author: Xiaoyang Last Modified: 2025-05-29

Stel dat je een tabel hebt in je Word-document, en nu wil je een kleurgecodeerde vervolgkeuzelijst invoegen in een kolom van de tabel. Dit betekent dat wanneer je één optie uit de vervolgkeuzelijst selecteert, de celkleur rood wordt, en wanneer je een andere selecteert, wordt de celkleur groen, zoals te zien is in de onderstaande schermafbeelding:

Demo showing a cell's color changing when an item is selected from the drop-down list

Kleurgecodeerde vervolgkeuzelijst invoegen in Word-document met VBA-code

De volgende stappen helpen je bij het invoegen van een vervolgkeuzelijst in een tabelcel en het toepassen van een achtergrondkleur op de cel op basis van het geselecteerde item:

Selecteer een cel in de tabel waar je de vervolgkeuzelijst wilt invoegen, en klik vervolgens op "Developer" > "Drop-Down List Content Control".
Opmerking: Als je het tabblad Developer niet ziet in de werkbalk, bezoek dan: Hoe het tabblad Developer in de Word-werkbalk weergeven.
De vervolgkeuzelijst wordt ingevoegd in de specifieke cel. Klik vervolgens op "Developer" > "Properties".

Drop-down inserted into a specific cell with Properties option highlighted

Voer in het dialoogvenster "Content Control Properties" het volgende uit:
1. Voer de titelnaam in het tekstvak "Title" in.
2. Klik op de knop "Toevoegen" om het dialoogvenster "Add Choice" te openen.
3. Typ het vervolgkeuzelijstitem in het tekstvak "Display Name".
Herhaal stap 3 om andere vervolgkeuzelijstitems in te voegen indien nodig.
Nadat je de eerste vervolgkeuzelijst hebt gemaakt, kun je deze kopiëren en plakken in andere cellen.
Houd ALT + F11 ingedrukt om het venster "Microsoft Visual Basic for Applications" te openen.

Dubbelklik in het venster Microsoft Visual Basic for Applications op "ThisDocument" in het deelvenster "Project" om de module te openen. Kopieer en plak vervolgens de volgende code in de lege module:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

Opmerking: In de bovenstaande code is "Status" de titelnaam die gebruikt werd bij het maken van de vervolgkeuzelijst, en "Complete", "In Progress" en "Not Start" zijn de items. Je kunt deze waarden en de bijbehorende kleuren naar behoefte wijzigen.

VBA window with ThisDocument selected, showing code pasted into the blank module

Sla het codevenster op en sluit het. Nu zal, wanneer je een item uit de vervolgkeuzelijst selecteert, de overeenkomstige kleur de cel vullen.

Beste productiviteitstools voor kantoor

Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...