Hoppa till huvudinnehåll

Utforska det nya, gratisversionen of Kutools for Outlook i dag!

Hur infogar man färgkodad rullgardinslista i Word-tabellen?

Författare: Xiaoyang Senast ändrad: 2025-04-17

Anta att du har en tabell i ditt Word-dokument och nu vill du infoga en färgkodad listruta i en kolumn i tabellen. Det betyder att när du väljer ett alternativ från rullgardinsmenyn blir cellfärgen röd, och när du väljer en annan blir cellfärgen grön, som visas i skärmdumpen nedan:

Demo som visar en cells färg som ändras när ett objekt väljs från rullgardinsmenyn

Infoga färgkodad listruta i Word-dokument med VBA-kod

Följande steg guidar dig genom att infoga en rullgardinslista i en tabellcell och tillämpa bakgrundsfärg på cellen baserat på det valda objektet:

  1. Välj en cell i tabellen där du vill infoga rullgardinsmenyn och klicka sedan på "Utvecklare" > "Innehållskontroll i rullgardinsmenyn".

    Obs: Om du inte ser fliken Utvecklare i menyfliksområdet, besök: Hur man visar fliken Utvecklare i Word-bandet.

    Innehållskontrollknapp för rullgardinsmenyn på menyfliksområdet
  2. Rullgardinsmenyn infogas i den specifika cellen. Klicka sedan på "Utvecklare" > "Egenskaper".
    3. Listrutan infogas i en specifik cell med alternativet Egenskaper markerat
  3. I dialogrutan "Content Control Properties" gör du följande:
    1. Ange titelnamnet i textrutan "Titel".
    2. Klicka på knappen "Lägg till" för att öppna dialogrutan "Lägg till val".
    3. Skriv rullgardinsmenyn i textrutan "Visningsnamn".
      Dialogrutan Egenskaper för innehållskontroll och dialogrutan Lägg till val
  4. Upprepa steg 3 för att infoga andra listobjekt efter behov.
  5. När du har skapat den första rullgardinsmenyn kan du kopiera och klistra in den i andra celler.
    Listrutan har kopierats till andra celler
  6. Håll ner ALT + F11 för att öppna fönstret "Microsoft Visual Basic for Applications".
  7. I Microsoft Visual Basic for Applications-fönstret dubbelklickar du på "ThisDocument" från rutan "Project" för att öppna modulen. Kopiera sedan och klistra in följande kod i den tomma modulen: 
    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

    Obs: I koden ovan, "Status" är titelnamnet som används när du skapar rullgardinsmenyn, och "Complete", "In Progress"och "Not Start" är föremålen. Du kan ändra dessa värden och motsvarande färger efter behov.

    VBA-fönster med ThisDocument valt, som visar kod inklistrad i den tomma modulen
  8. Spara och stäng kodfönstret. Nu, när du väljer ett objekt från rullgardinsmenyn, kommer motsvarande färg att fylla cellen.
    Demo som visar en cells färg som ändras när ett objekt väljs från rullgardinsmenyn

Bästa kontorsproduktivitetsverktyg

Kutools for Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk (bevara format) / Super Translate (Bevara format) / AI-redaktion / AI korrekturläsning...

📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF...

✏ Innehållsredigering: Batchsök och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till ta bort grupp...

➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Flera bilder / Upptäck mer i Insert grupp...

🔍 Precisionsval: Precisera Specifika sidor / Bord / Former / Rubrik stycken / Förbättra navigering med mer Välja pass...

⭐ Stjärnförbättringar: Navigera till valfri plats / Auto-infoga upprepad text / Växla mellan dokumentfönster / 11 Konvertering verktyg...

🌍 Stöder 40+ språk: Använda sig av Kutools på ditt föredragna språk – stöder engelska, spanska, tyska, franska, kinesiska och över 40 andra!

Kutools och Kutools Plusflikar i Word-menyfliksområdet
👉 Vill du prova dessa funktioner? Ladda ner Kutools for Word nu! 🚀
 

Bästa kontorsproduktivitetsverktyg

Kutools for Word - 100+ verktyg för Word

Gratis nedladdning Köp nu Lära sig mer om Kutools