Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ստեղծել կախված բացվող ցուցակներ Word փաստաթղթում:


Ինչպես ցույց է տրված ձախ սքրինշոթը, դուք պետք է սահմանափակեք ընտրությունները երկրորդ բացվող ցուցակում` հիմնվելով առաջին բացվող տարբերակի վրա, ինչպե՞ս կարող եք անել: Այս հոդվածը ձեզ ցույց կտա Word փաստաթղթում կախված բացվող ցուցակներ ստեղծելու մեթոդ:

Word- ում ստեղծեք կախված բացվող ցուցակներ VBA կոդով

Word- ում ստեղծեք կախված բացվող ցուցակներ VBA կոդով

Ստորև բերված VBA կոդը կարող է օգնել ձեզ ստեղծել Word փաստաթղթում կախված բացվող ցուցակ: Խնդրում ենք հետևել հրահանգներին քայլ առ քայլ:

1. Նախ, ձեր Word փաստաթղթում անհրաժեշտ է տեղադրել երկու բացվող ցուցակ: Սեղմել Երեվակիչ > Legառանգության ձևեր > Drop-Down ձևի դաշտ, Տեսեք,

2. Աջ կտտացրեք առաջին բացվող ցուցակին (այս բացվող ցուցակը պետք է լինի ծնողը) և կտտացրեք Հատկություններ: Տեսեք,

3. Բացման մեջ Բացվող ձևի դաշտի ընտրանքներ երկխոսության տուփ, անհրաժեշտ է.

3.1. Կատեգորիան մուտքագրեք Բաց թողնող տարր տուփը եւ սեղմեք այն Ավելացնել կոճակը, կրկնում է գործողությունը, մինչև բոլոր կատեգորիաները ավելացվեն Բացվող ցուցակի վանդակում գտնվող Նյութերին:

3.2 Մուտքագրեք ddfood մեջ Էջանիշ տուփ:

3.3 սեղմեք OK կոճակ Տեսեք,

4. Աջ կտտացրեք երկրորդ բացվող ցուցակին, կտտացրեք Հատկություններ բացել իր Բացվող ձևի դաշտի ընտրանքներ երկխոսության տուփ, և երկխոսության մեջ մուտքագրեք dd Կատեգորիա մեջ Էջանիշ տուփը և կտտացրեք OK կոճակ Տեսեք,

5. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

6. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլ, այնուհետև VBA կոդի տակ պատճենեք Մոդուլի պատուհանում:

VBA կոդ. Word- ում ստեղծեք կախված բացվող ցուցակ

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

Նշումներ:

1. Կոդում, խնդրում ենք, փոխեք յուրաքանչյուր դեպքի տակ գտնվող կետերը, որքան ձեզ հարկավոր է:

2. ddfood և dd Կատեգորիա պետք է համապատասխանի Էջանիշի ընտրանքներին, որոնք մուտքագրեցիք վերոնշյալ երկուսում Բացվող ձևի դաշտի ընտրանքներ երկխոսության տուփեր:

7. Պահեք կոդը և վերադառնաք փաստաթղթին:

8. Աջ կտտացրեք առաջին բացվող ցուցակին և կտտացրեք Հատկություններ բացելու համար Բացվող ձևի դաշտի ընտրանքներ երկխոսության տուփ: Երկխոսության դաշտում խնդրում ենք ընտրեք վերևի մակրո անունը (ահա Popolateddfood) - ից Ելք բացվող ցուցակը, ապա կտտացրեք այն OK կոճակը:

9. Այժմ կտտացրեք Երեվակիչ > Սահմանափակել խմբագրումը ինչպես ցույց է տրված նկարում

10. Մեջ Սահմանափակել խմբագրումը պատուհան, դուք պետք է.

10.1) Ստուգեք Թույլատրել միայն այս տեսակի խմբագրումը փաստաթղթում տուփ;

10.2) Ընտրեք Ձևաթղթերի լրացում բացվող ցուցակից տարբերակ;

10.3) Կտտացրեք այն Այո, Սկսեք Պաշտպանությունը կոճակ;

10.4) Ի Սկսեք կիրառել պաշտպանությունը երկխոսություն, մուտքագրեք գաղտնաբառը և կտտացրեք այն OK կոճակ Տեսեք,

Այժմ ստեղծվում է կախված բացվող ցուցակ: Առաջին բացվող ցանկում Մրգեր ընտրելիս երկրորդում կարող են ընտրվել միայն մրգերի կատեգորիաները:

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀
 
Comments (32)
No ratings yet. Be the first to rate!
Shauna Townsend
Shauna Townsend
This comment was minimized by the moderator on the site
Hi there,

I have managed to follow the steps, thanks for your help.

I can't find my code when pressing Alt+F11 though? My drop downs are still there but I can't find the back coding?
Reply
0
0
LonelySoldier
LonelySoldier
This comment was minimized by the moderator on the site
Hi Crystal, thanks for the tutorial, it was useful and well written. Is it possible to add a third dropdown list with options that change depending on what is selected from the second dropdown list?
Reply
Report
1
0
crystal
crystal     LonelySoldier
This comment was minimized by the moderator on the site
Hi Jack,

You can add a third drop-down list with options that change depending on what is selected from the second drop-down list. But you need to insert another "Drop-Down Form Field" and a new VBA code in advance.
1. Follow the steps from 1 to 4 in the post to create the first and second drop-down list and modify the properties.
2. Insert the third Drop-Down Form Field, double click to open it's Properties dialog box, enter a name in the Bookmark textbox (the same as the operation for the first and second drop-down lists) , in this case, I made up a random name called ddTaste, and then click OK.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/word-drop-down1.png
3. Open the Microsoft Visual Basic for Applications window, enter the VBA code provided in the article into the Module1. Then insert a new Module (called Module2), copy and paste the following VBA code into this Module2.
VBA code: Use for the third dependent drop-down list

Sub PopulateddTaste()
Select Case ActiveDocument.FormFields("ddCategory").Result
Case "Apple"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "AA"
.Add "BB"
End With
Case "Banana"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "CC"
.Add "DD"
End With
Case "Peach"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "EE"
.Add "FF"
End With
Case "Lychee"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "GG"
.Add "HH"
End With
Case "Watermelon"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "II"
.Add "JJ"
End With
Case "Cabbage"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "LL"
.Add "MM"
End With
Case "Onion"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "OO"
.Add "PP"
End With
Case "Pork"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "QQ"
.Add "RR"
End With
Case "Beef"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "SS"
.Add "TT"
End With
Case "Mutton"
With ActiveDocument.FormFields("ddTaste").DropDown.ListEntries
.Clear
.Add "UU"
.Add "VV"
End With
End Select
End Sub

Note: In the code, AA, BB, CC... are the items you want to show in the third drop-down list, based on what was selected from the second drop-down list. For example, when you select "Apple" in the second drop-down, the third drop-down list will display the items AA and BB. Please modify this items to meet your needs.
4. Save the code and go back to the document. Follow the step 8 in the article to specify the macro for the first drop-down.
5. Double click the second drop-down list, choose "PopulateddTaste" in the Exist drop-down list.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/word-drop-down2.png
6. Then follow the step 8 to restrict editing in this document.
Now you have create a three level drop-down list.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/word-drop-down3.gif
Reply
Report
1
0
LonelySoldier
LonelySoldier     crystal
This comment was minimized by the moderator on the site
Thanks for getting back to me, your time and help is appreciated.
Reply
Report
0
0
Badflex
Badflex
This comment was minimized by the moderator on the site
Hallo,

ist das ganze auch unter Outlook möglich. Leider bekomme ich das so nicht hin da die Eigenschaften des Dropdown Menüs ganz anders aussehen.

Ich wollte unter Aufgaben einen Reparaturauftrag erstellen wo man Gebäude,Bereich und dan Zimmernummer oder Bezeichnung auwählen kann.

Ist das möglich in Outlook/Aufgaben?



Danke
Reply
0
0
crystal
crystal     Badflex
This comment was minimized by the moderator on the site
Hi,
You can create a drop-down list with custom field in Outlook Task window by following the steps in this article:
How To Add A Drop Down List With Custom Filed In Outlook Task Window?
https://www.extendoffice.com/documents/outlook/4453-outlook-custom-fields-tasks-drop-down.html
Or create a drop-down list in word then copy and paste it into the Task window as you need.
But if you want to create dependent drop-down lists in Outlook Task, no method has been found yet.
Sorry about that.
Reply
Report
0
0
enc
enc
This comment was minimized by the moderator on the site
Hi, many thx for the detailed tutorial, but I have a question since the word template is for others' use. You mentioned protecting mode and a password is a must, this can do if I tell them the password, then there is a conflict: there are some other blanks which are needed to be filled in, this cannot be done only if the protecting mode is off. What should I do? Is there any method to meet both 2 needs?
Reply
Report
0
0
Enc
Enc
This comment was minimized by the moderator on the site
Hi, thx for the detailed tutorial, but I have a question since the word template is for others' use, 
Reply
0
0
ray23
ray23
This comment was minimized by the moderator on the site
This was extremely helpful, thank you.
I have a question, is there a way to modify the code so that when I select a new item from the first drop-down list, the dependent one will clear up?
Reply
Report
0
0
Richard Daniels
Richard Daniels     ray23
This comment was minimized by the moderator on the site
Sorry for the late reply, only stumbled upon this page today :-)
It already does that. The first statement inside the Select case ... End select construction clears the second list. If none of the criteria are met, nothing is added.
Reply
0
0
Gmanny
Gmanny
This comment was minimized by the moderator on the site
Hello, for some reason I cannot modify anything else in the word file if the drop down list is active. Is there a way to avoid that?

Thank you
Reply
0
0
Jeremy Whiting
Jeremy Whiting     Gmanny
This comment was minimized by the moderator on the site
I have the same issue has anyone been able to help on this one
Reply
0
0
مهسا
مهسا
This comment was minimized by the moderator on the site
سلام من همه مراحل رو رفتم ولی درآخر وقتی از لیست اول یه استان رو انتخاب می کنم تویه لیست دوم فقط شهر های اون استان رو نمیاره
چیکار باید بکنم؟
Reply
0
0
Silas Pickens
Silas Pickens
This comment was minimized by the moderator on the site
I am using this same code however the text that I replacing the ddcategory with has 100 plus words. Is there anyway to wrap the text to prevent it from going off of the page and disappearing?
Reply
0
0
Tino
Tino     Silas Pickens
This comment was minimized by the moderator on the site
I have the same problem!! :0
Reply
0
0
Amy
Amy
This comment was minimized by the moderator on the site
Thank you for this very useful resource.

Is it possible to repeat the same dependent drop down multiple times within a form?

I need the form filler to assign a category to each new row (but with the same options each time).I have successfully created the drop downs but when I restrict editing to test they seem to reset themselves as I work down the rows.

Thanks
Amy
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations