Kuinka luoda riippuvia avattavia luetteloita Word-asiakirjassa?

Kuten kuvakaappauksessa näkyy, saatat haluta rajoittaa toisen avattavan luettelon valintoja ensimmäisessä avattavassa luettelossa tehtyjen valintojen perusteella. Tässä artikkelissa kerrotaan, kuinka voit luoda riippuvia avattavia luetteloita Word-asiakirjassa.

Luo riippuvia avattavia luetteloita Wordissa VBA-koodilla

Luo riippuvia avattavia luetteloita Wordissa VBA-koodilla

Alla oleva VBA-menetelmä auttaa luomaan riippuvaisen pudotusvalikon, jossa toinen luettelo muuttuu ensimmäisestä luettelosta valitun perusteella. Toimi seuraavasti:

1. Varmista, että "Kehittäjä"-välilehti näkyy Word-nauhassa (jos ei, katso opetusohjelma Kuinka näyttää Kehittäjä-välilehti Wordissa?). Lisää sitten kaksi avattavaa luetteloa napsauttamalla "Kehittäjä" > "Vanhat lomakkeet" > "Pudottava lomakekenttä" kahdesti.

   

2. Napsauta hiiren kakkospainikkeella ensimmäistä avattavaa valikkoa (tämä on pääluettelo) ja napsauta "Ominaisuudet".

   

3. Avattavassa lomakekentän asetukset -valintaikkunassa:
   1. Syötä luokat (esim. "Hedelmä", "Kasvis", "Liha") "pudotusvalikkoon" yksi kerrallaan ja napsauta "Lisää" kunkin jälkeen.
   2. Kirjoita "ddfood" Kirjanmerkki-ruudussa.
   3. Napsauta "OK".

      

4. Napsauta hiiren kakkospainikkeella toista avattavaa luetteloa, valitse "Ominaisuudet", kirjoita "ddCategory" Kirjanmerkki"-ruudussa ja napsauta "OK".

   

5. lehdistö Alt + F11 avataksesi Microsoft Visual Basic for Applications -ikkunan.
6. Napsauta VBA-ikkunassa "Lisää" > "Moduuli" ja liitä sitten seuraava koodi:

   Sub Populateddfood()
   'Update by Extendoffice 2018/10/25
       Dim xDirection As FormField
       Dim xState As FormField
       On Error Resume Next
       Set xDirection = ActiveDocument.FormFields("ddfood")
       Set xState = ActiveDocument.FormFields("ddCategory")
       If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
       With xState.DropDown.ListEntries
           .Clear
           Select Case xDirection.Result
               Case "Fruit"
                   .Add "Apple"
                   .Add "Banana"
                   .Add "Peach"
                   .Add "Lychee"
                   .Add "Watermelon"
               Case "Vegetable"
                   .Add "Cabbage"
                   .Add "Onion"
               Case "Meat"
                   .Add "Pork"
                   .Add "Beef"
                   .Add "Mutton"
           End Select
       End With
   End Sub

   Huomautuksia:

   • Muuta koodissa kohteita kunkin "Case"-lause sisältöösi sopivaksi.
   • "ddfood"Ja"ddCategory" on vastattava kirjanmerkkien nimiä, jotka annoit "Drop-down Form Field Options" -valintaikkunoihin.
7. Tallenna koodi ja palaa asiakirjaan.
8. Napsauta hiiren kakkospainikkeella ensimmäistä avattavaa luetteloa uudelleen ja valitse "Ominaisuudet". Valitse avautuvan lomakekentän asetukset -valintaikkunan avattavasta "Poistu"-luettelosta makron nimi "Populateddfood" ja napsauta sitten "OK".

   

9. Napsauta "Kehittäjä" > "Rajoita muokkausta".

   

10. Rajoita muokkausta -ruudussa:
    1. Valitse "Salli vain tämäntyyppinen muokkaus asiakirjassa".
    2. Valitse avattavasta luettelosta "Lomakkeiden täyttö".
    3. Napsauta "Kyllä, aloita suojauksen täytäntöönpano".
    4. Aseta salasana "Aloita suojauksen täytäntöönpano" -valintaikkunassa ja napsauta "OK".

       

Nyt riippuvainen pudotusvalikko on aktiivinen. Kun valitset "Fruit" ensimmäisestä luettelosta, vain hedelmävaihtoehdot näkyvät toisessa luettelossa.

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