Jak vložit barevně kódovaný rozevírací seznam do tabulky Word?

Předpokládejme, že mám v dokumentu Word tabulku a teď chci do sloupce tabulky vložit barevně kódovaný rozevírací seznam. To znamená, když vyberu jednu možnost z rozevíracího seznamu, barva buňky se změní na červenou a když vyberu jinou možnost v rozevíracím seznamu, barva buňky se změní na zelenou, jak ukazuje následující snímek obrazovky. Jak byste mohli vyřešit tuto práci v dokumentu Word?

Vložte barevně kódovaný rozevírací seznam do dokumentu Word pomocí kódu VBA

Vložte barevně kódovaný rozevírací seznam do dokumentu Word pomocí kódu VBA

Následující kroky vám mohou pomoci dokončit tento úkol podle potřeby, nejprve vložit rozevírací seznam a poté použít barvu rozevíracího seznamu. Udělejte prosím toto:

1. Vyberte buňku v tabulce, do které chcete vložit rozevírací seznam, a poté klikněte Vývojka > Ovládání obsahu rozevíracího seznamu ikona, viz screenshot:

2. Rozbalovací nabídka se vloží do konkrétní buňky a poté klikne Vývojka > Nemovitosti, viz screenshot:

3. V Vlastnosti řízení obsahu V dialogovém okně proveďte následující operace:

(1.) Zadejte název titulu do Titul Textové pole;

(2.) Klikněte přidat tlačítko přejít na Přidat možnost dialog;

(3.) V Přidat možnost dialogové okno, zadejte položku rozevíracího seznamu do Display Name Textové pole.

4. Opakujte krok 3 a vložte další položky z rozevíracího seznamu podle potřeby.

5. Po vytvoření prvního rozevíracího seznamu jej můžete podle potřeby zkopírovat a vložit do dalších buněk. Viz snímek obrazovky:

6. Pak byste měli použít kód VBA, podržte prosím ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

7. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte Tento dokument z Projekt-projekt v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Vložte barevně kódovaný rozevírací seznam do tabulky dokumentu Word:

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

Poznámka: Ve výše uvedeném kódu, Status je název titulu při vytváření rozevíracího seznamu a Kompletní, Pokrok, Není spuštěno jsou položky rozevíracího seznamu, můžete je změnit na své vlastní. A můžete také změnit barvu podle svých potřeb.

8. Poté uložte a zavřete okno s kódem, nyní, když vyberete jednu položku z rozevíracího seznamu, její relativní barva se vyplní buňkou, viz screenshot:

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah  /  Přepsat text  /  Shrnout dokumenty  /  Vyžádejte si informace na základě dokumentu, vše ve Wordu

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou...

✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů  /  Změnit velikost všech obrázků  /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory  /  Sekce přestávky  /  Všechny záhlaví  /  Textová pole  /  Odkazy  / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...

➕ Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  / Objevte více v Vložit skupinu...

???? Přesné výběry: Přesně konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  / Vylepšete navigaci pomocí vice Vyberte funkce...

⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje...

???? Chcete si tyto funkce vyzkoušet? Kutools for Word nabízí a Denní zkušební doba 60, bez omezení! ????

Stažení zdarma     Více     Kup nyní