Sådan indsætter du en farvekodet rulleliste i Word bord?
Antag, at jeg har et bord i min Word dokument, og nu vil jeg indsætte en farvekodet rulleliste i en kolonne i tabellen. Det betyder, at når jeg vælger en mulighed fra rullemenuen, bliver cellefarven rød, og når jeg vælger en anden mulighed i rullemenuen, bliver cellefarven grøn som vist på følgende skærmbillede. Hvordan kunne du løse dette job i Word dokumentere?
Indsæt farvekodet rulleliste i Word dokument med VBA-kode
Indsæt farvekodet rulleliste i Word dokument med VBA-kode
De følgende trin kan hjælpe dig med at afslutte denne opgave efter behov, først indsæt rullelisten og derefter anvende farven til rullemenuen. Gør som dette:
1. Vælg en celle i tabellen, hvor du vil indsætte rullemenuen, og klik derefter på Udvikler > Indholdskontrol i rullelisten ikon, se skærmbillede:
2. Rullelisten indsættes i den specifikke celle, og klik derefter på Udvikler > Ejendomme, se skærmbillede:
3. I Egenskaber til indholdskontrol dialogboksen, skal du udføre følgende handlinger:
(1.) Indtast titelnavnet i Titel tekstboks;
(2.) Klik på Tilføj knappen gå til Tilføj valg dialog;
(3.) I Tilføj valg dialog, skal du skrive rullelisteelementet i Visningsnavn tekstboks.
4. Gentag trin 3 for at indsætte andre rullelisteelementer efter behov.
5. Når du har oprettet den første rulleliste, kan du kopiere og indsætte den i andre celler efter behov. Se skærmbillede:
6. Derefter skal du anvende en VBA-kode, hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
7. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Dette dokument fra Projekt-projekt rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.
VBA-kode: Indsæt farvekodet rulleliste i en tabel med en Word dokument:
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
Bemærk: I ovenstående kode, Status er titelnavnet, når du opretter rullelisten, og Komplet, I gang, Ikke start er emnerne på rullelisten, kan du ændre dem til dine egne. Og du kan også ændre farven efter dit behov.
8. Gem og luk derefter kodevinduet, nu når du vælger et element fra rullelisten, udfyldes dets relative farve med cellen, se skærmbillede:
Anbefales Word Produktivitetsværktøjer
Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid
- Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
- Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
- Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
- Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
- Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
