Kuinka lisätä värikoodattu avattava luettelo Word-taulukkoon?

Oletetaan, että Word-asiakirjassasi on taulukko ja nyt haluat lisätä värikoodatun avattavan luettelon taulukon sarakkeeseen. Tämä tarkoittaa, että kun valitset yhden vaihtoehdon avattavasta valikosta, solun väri muuttuu punaiseksi ja kun valitset toisen, solun väri muuttuu vihreäksi, kuten alla olevassa kuvakaappauksessa näkyy:

Lisää värikoodattu pudotusvalikko Word-asiakirjaan VBA-koodilla

Seuraavat vaiheet opastavat sinua lisäämään avattava luettelo taulukon soluun ja käyttämään taustaväriä soluun valitun kohteen perusteella:

1. Valitse taulukosta solu, johon haluat lisätä avattavan valikon, ja napsauta sitten Kehittäjä > Avattavan luettelon sisällönhallinta.

   Huomautus: Jos et näe Kehittäjä-välilehteä nauhassa, käy osoitteessa: Kehittäjä-välilehden näyttäminen Word-nauhassa.

   

2. Pudotusvalikko lisätään tiettyyn soluun. Napsauta sitten "Kehittäjä" > "Ominaisuudet".



3. Tee "Sisällönhallinnan ominaisuudet" -valintaikkunassa seuraavat toimet:
   1. Kirjoita otsikon nimi "Title"-tekstikenttään.
   2. Napsauta "Lisää" -painiketta avataksesi "Lisää valinta" -valintaikkunan.
   3. Kirjoita avattavan luettelon kohde "Näyttönimi" -tekstiruutuun.

      

4. Toista vaihe 3 lisätäksesi muita avattavan luettelon kohteita tarpeen mukaan.
5. Kun olet luonut ensimmäisen avattavan luettelon, voit kopioida ja liittää sen muihin soluihin.

   

6. Pitää alhaalla ALT + F11 avataksesi "Microsoft Visual Basic for Applications" -ikkunan.
7. Avaa moduuli kaksoisnapsauttamalla Microsoft Visual Basic for Applications -ikkunassa "Project"-ruudussa "ThisDocument". Kopioi ja liitä seuraava koodi tyhjään moduuliin:

   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
   

   Huomautus: Yllä olevassa koodissa "Status" on otsikon nimi, jota käytetään luotaessa avattavaa luetteloa, ja "Complete", "In Progress"ja "Not Start" ovat kohteita. Voit muuttaa näitä arvoja ja vastaavia värejä tarpeen mukaan.

   

8. Tallenna ja sulje koodiikkuna. Kun nyt valitset kohteen avattavasta luettelosta, vastaava väri täyttää solun.

   

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀

Ilmainen lataus     Osta nyt     Lue lisää Kutools for Wordista

 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

• 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
• 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
• ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
• 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
• ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja

Ilmainen lataus Osta nyt Lue lisää Kutoolsista