İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word sənədində asılı açılan siyahıları necə yaratmaq olar?


Sol ekran göründüyü kimi, ilk açılır menyuda seçim əsasında ikinci açılır siyahıdakı seçimləri məhdudlaşdırmaq lazımdır, necə edə bilərsiniz? Bu yazı Word sənədində asılı açılan siyahıları yaratmaq üçün üsul göstərəcək.

VBA koduyla Word-də siyahılardan asılı olaraq yaradın


VBA koduyla Word-də siyahılardan asılı olaraq yaradın

Aşağıdakı VBA kodu bir Word sənədində asılı açılan siyahıları yaratmağa kömək edə bilər. Təlimatı addım-addım edin.

1. Birincisi, Word sənədinizdə iki açılır siyahı əlavə etməlisiniz. Basın Developer > Eski Formalar > Drop-Down Form sahəsi. Ekran görüntüsünə baxın:

2. Sağ açılan ilk açılan siyahı (bu açılan siyahı ana bir olmalıdır) və basın Properties. Ekran baxın:

3. Açılışda Drop-Down Formu Alan Seçimləri informasiya qutusuna ehtiyacınız var:

3.1 kateqoriyaya daxil edin Drop-down item qutusu və sonra basın əlavə etmək düyməsini basıb saxlayın, bütün kateqoriyalar açılır siyahıdakı maddələrə əlavə olunana qədər əməliyyatı təkrarlayın.

3.2 daxil edin ddfood daxil Bookmark Qutu.

3.3 düyməsini basın OK düyməsini basın. Ekran görüntüsünə baxın:

4. Sağ açılan ikinci açılan siyahıdan vurun Properties açmaq üçün Drop-Down Formu Alan Seçimləri dialoq qutusunda və dialoqda daxil edin ddCategory daxil Bookmark qutusu və basın OK düyməsini basın. Ekran görüntüsünə baxın:

5. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

6. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modul, sonra VBA kodu aşağıda Module penceresine kopyalayın.

VBA kodu: Worddə asılı açılan siyahı yaradın

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

Qeydlər:

1. Kodda, hər bir halda sizə lazım olan maddələrlə dəyişin.

2. ddfoodddCategory yuxarıda göstərilən iki əlavəyə uyğun olmalıdır Drop-Down Formu Alan Seçimləri informasiya qutuları.

7. Kodu saxlaya və sənədə geri qayıdın.

8. İlk açılan siyahıdan sağ basın və vurun Properties açmaq üçün Drop-Down Formu Alan Seçimləri dialoq qutusu. Əlaqə qutusunda, yuxarıda göstərilən Makro adını (burada Popolateddfood) seçin Çıxış açılan siyahıdan və sonra basın OK düyməsini basın.

9. İndi basın Developer > Düzenlemeyi məhdudlaşdırın Aşağıdakı kimi ekran görüntüsü göstərilir.

10. İçində Düzenlemeyi məhdudlaşdırın pane, sizə lazım:

10.1), yoxlayın Yalnız bu tip redaktəyə icazə verin sənəddə Qutu;

10.2) seçin Formaları doldurmaq açılan siyahıdan seçim;

10.3) basın Bəli, qorunmanın icrasına başlayın Düyməsinə;

10.4) Müdafiəni icra etməyə başlayın parol daxil edin və basın OK düyməsini basın. Ekran görüntüsünə baxın:

İndi asılı açılan siyahılar yaradılıb. İlk açılan siyahıdan Meyvə seçərkən, yalnız ikinci meyvə meyvələri seçilə bilər.



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    mary · 1 months ago
    can this be done in older versions of Word or have to be saved as a certain doc type?
  • To post as a guest, your comment is unpublished.
    Ingrid · 2 months ago
    Can you add this to multiple areas on a single page consisting of multiple sections? I was able to successfully complete the process in one section of my document, but when I attempt to complete the same process while on the same page, but in a different section of my document and with new drop down options, only my first added boxes are working, not the ones in the second section..
    • To post as a guest, your comment is unpublished.
      crystal · 27 days ago
      Hi ingrid,
      Supposing you have three groups of dependent drop-down lists in your document. If you need all dependent drop-down lists take effect, please apply the below VBA code and do the below settings:

      In the step 4 and 5 we mentioned in the article, now you need to do the following changes:
      1. For the first group of the dependent drop-down lists, please get into each drop-down list's Properties window and specify the Bookmark as ddfood1 and ddCategory1 separately;
      2. For the second group of the dependent drop-down lists, please get into each drop-down list's Properties window and specify the Bookmark as ddfood2 and ddCategory2 separately;
      2. For the third group of the dependent drop-down lists, please get into each drop-down list's Properties window and specify the Bookmark as ddfood3 and ddCategory3 separately;

      Then go ahead exactly as we provided in the article to finish the whole settings.

      VBA code:
      Sub Populateddfood()
      'Update by Extendoffice 2019/03/18
      Dim xDirection As FormField
      Dim xState As FormField
      Dim xRng As Range
      Dim xFoodBM, xCategoryBM As String
      Set xRng = Selection.Range
      On Error Resume Next
      For i = 1 To ActiveDocument.FormFields.Count
      xFoodBM = "ddfood" & i
      xCategoryBM = "ddCategory" & i
      Set xDirection = ActiveDocument.FormFields(xFoodBM)
      Set xState = ActiveDocument.FormFields(xCategoryBM)
      If (Not (xState Is Nothing)) And (Not (xDirection Is Nothing)) Then
      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 If
      Set xDirection = Nothing
      Set xState = Nothing
      Next
      xRng.Select
      End Sub
  • To post as a guest, your comment is unpublished.
    MM · 2 months ago
    Is there a similar code to do the almost the exact same thing except have a text form field automatically populate depending upon the dropdown choice? For example, choosing a specific company in the dropdown and having a text form field automatically populate with the city where the company is located?
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Good day,
      Sorry can help you with that. Thank you for your comment.