KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe voegt u een kleurgecodeerde keuzelijst in een Word-tabel in?

AuteurXiaoyang Wijzigingsdatum

Stel dat u een tabel heeft in uw Word-document en nu een kleurgecodeerde keuzelijst wilt invoegen in een kolom van die tabel. Denk aan een cel die rood wordt zodra u één optie uit de vervolgkeuzelijst selecteert, en groen wanneer u een andere optie kiest — zoals te zien is in de afbeelding hieronder:

Demo waarin de kleur van een cel verandert wanneer een item wordt geselecteerd uit de vervolgkeuzelijst

Kleurgecodeerde Keuzelijst in Word-document invoegen met VBA-code

De volgende stappen helpen u bij het invoegen van een Keuzelijst in een tabelcel en het toepassen van Achtergrondkleur op de cel op basis van het geselecteerde item:

  1. Selecteer een cel in de tabel waarin u de vervolgkeuzelijst wilt invoegen en klik daarna op „Ontwikkelaar” > „Keuzelijst Content Control”.

    Opmerking: Als u het tabblad Ontwikkelaar niet ziet in het lint, gaat u naar: Het tabblad Ontwikkelaar weergeven in het Word-lint.

    Knop Vervolgkeuzelijst inhoudsbesturingselement op het lint
  2. De vervolgkeuzelijst wordt ingevoegd in de specifieke cel. Klik daarna op ‘Ontwikkelaar’ > ‘Eigenschappen’.
    3. Vervolgkeuzelijst ingevoegd in een specifieke cel met de optie Eigenschappen gemarkeerd
  3. Voer in het dialoogvenster „Eigenschappen van inhoudsbesturingselement” het volgende uit:
    1. Voer de titel in het tekstvak „Titel” in.
    2. Klik op de knop „Toevoegen” om het dialoogvenster „Keuze toevoegen” te openen.
    3. Typ het keuzelijstitem in het tekstvak ‘Weergavenaam’.
      Dialoogvenster Eigenschappen van inhoudsbesturingselement en dialoogvenster Keuze toevoegen
  4. Herhaal stap 3 om, indien gewenst, andere keuzelijstitems toe te voegen.
  5. Nadat u de eerste keuzelijst hebt gemaakt, kunt u deze eenvoudig kopiëren en in andere cellen plakken.
    Vervolgkeuzelijst gekopieerd naar andere cellen
  6. Houd ALT + F11 ingedrukt om het venster ‘Microsoft Visual Basic for Applications’ te openen.
  7. Dubbelklik in het Microsoft Visual Basic for Applications-venster op ‘ThisDocument’ in het deelvenster ‘Project’ om de module te openen. Plak daarna 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 is gebruikt bij het maken van de keuzelijst, en zijn „Complete", „In Progress" en „Not Start" de opties. U kunt deze waarden en de bijbehorende kleuren naar wens aanpassen.

    VBA-venster met DitDocument geselecteerd, waarin code is geplakt in de lege module
  8. Sluit het codevenster. Vanaf nu wordt de cel automatisch gevuld met de bijbehorende kleur zodra u een item selecteert uit de keuzelijst.
    Demo waarin de kleur van een cel verandert wanneer een item wordt geselecteerd uit de vervolgkeuzelijst

Beste kantoorproductiviteitstools

Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!

🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...

📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…

✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...

🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...

➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...

🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…

⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...

🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Kutools for Word tabbladen op het lint
 
 

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!

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

Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint

📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit

Beste kantoorproductiviteitstools

Kutools voor Word– 100+ Tools voor Word

Gratis downloadenNu kopenMeer informatie over Kutools