Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

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

Author Xiaoyang Last modified

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:

  1. 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.

    Drop-Down List Content Control button on the ribbon
  2. De vervolgkeuzelijst wordt ingevoegd in de specifieke cel. Klik vervolgens op "Developer" > "Properties".
    3. Drop-down inserted into a specific cell with Properties option highlighted
  3. 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".
      Content Control Properties dialog box and Add Choice dialog box
  4. Herhaal stap 3 om andere vervolgkeuzelijstitems in te voegen indien nodig.
  5. Nadat je de eerste vervolgkeuzelijst hebt gemaakt, kun je deze kopiëren en plakken in andere cellen.
    Drop-down list copied to other cells
  6. Houd ALT + F11 ingedrukt om het venster "Microsoft Visual Basic for Applications" te openen.
  7. 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
  8. Sla het codevenster op en sluit het. Nu zal, wanneer je een item uit de vervolgkeuzelijst selecteert, de overeenkomstige kleur de cel vullen.
    Demo showing a cell's color changing when an item is selected from the drop-down list

Beste Office-productiviteitstools

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

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools