Hoe een vervolgkeuzelijst met kleurcodering in de Word-tabel invoegen?
Stel dat ik een tabel in mijn Word-document heb en nu wil ik een kleurgecodeerde vervolgkeuzelijst invoegen in een kolom van de tabel. Dit betekent dat wanneer ik een optie uit de vervolgkeuzelijst selecteer, de celkleur rood wordt en wanneer ik een andere optie in de vervolgkeuzelijst selecteer, de celkleur groen wordt zoals in de volgende schermafbeelding. Hoe zou je deze taak in Word-document kunnen oplossen?
Voeg kleurgecodeerde vervolgkeuzelijst in Word-document in met VBA-code
Voeg kleurgecodeerde vervolgkeuzelijst in Word-document in met VBA-code
De volgende stappen kunnen u helpen om deze taak naar behoefte te voltooien. Voeg eerst de vervolgkeuzelijst in en pas vervolgens de kleur voor de vervolgkeuzelijst toe. Doe dit als volgt:
1. Selecteer een cel in de tabel waarin u de vervolgkeuzelijst wilt invoegen en klik op Ontwikkelaar > Inhoudsbeheer vervolgkeuzelijst pictogram, zie screenshot:
2. De vervolgkeuzelijst wordt in de specifieke cel ingevoegd en klikt vervolgens op Ontwikkelaar > Properties, zie screenshot:
3. In de Eigenschappen van inhoudscontrole dialoogvenster, voer dan de volgende bewerkingen uit:
(1.) Voer de titelnaam in het Titel tekstvak;
(2.) Klik Toevoegen knop ga naar de Keuze toevoegen dialoog;
(3.) In het Keuze toevoegen dialoogvenster, typ het vervolgkeuzelijstitem in het Weergavenaam tekstvak.
4. Herhaal stap 3 om naar behoefte andere items in de vervolgkeuzelijst in te voegen.
5. Nadat u de eerste vervolgkeuzelijst hebt gemaakt, kunt u deze naar behoefte kopiëren en in andere cellen plakken. Zie screenshot:
6. Dan moet u een VBA-code toepassen, houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
7. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik Dit document van het Project-Project deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.
VBA-code: voeg een kleurgecodeerde vervolgkeuzelijst in de tabel van een Word-document in:
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
Note: In de bovenstaande code, Status is de titelnaam wanneer u de vervolgkeuzelijst maakt, en Volledige, In Behandeling, Niet starten zijn de items van de vervolgkeuzelijst, u kunt ze wijzigen in uw eigen. En u kunt de kleur ook aanpassen aan uw behoefte.
8. Sla vervolgens het codevenster op en sluit het, nu, wanneer u een item uit de vervolgkeuzelijst selecteert, wordt de relatieve kleur gevuld met de cel, zie screenshot:
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...