KutoolsforOffice — Tek çözüm, beş güçlü araç.Daha az çabayla daha fazlasını başarmak.

Word belgesinde dinamik liste nasıl oluşturulur?

YazarSiluvia Değiştirme Tarihi
İkinci açılır liste seçimlerinin, ilk açılır listede seçilen seçeneğe göre sınırlandırıldığı örnek

Ekran görüntüsünde gösterildiği gibi, ikinci Açılır Liste’deki seçenekleri, ilk Açılır Liste’de yapılan seçime göre sınırlandırmak isteyebilirsiniz. Bu makale, bir Word belgesinde dinamik liste oluşturmanın nasıl yapılacağını gösterir.

VBA koduyla Word’de Dinamik Liste oluşturun


VBA koduyla Word’de Dinamik Liste oluşturun

Aşağıdaki VBA yöntemi, ikinci listenin içeriğinin ilk listedeki seçiminize göre değiştiği bir Dinamik Liste oluşturmanıza olanak tanır. Bu adımları izleyin:

  1. Word Şeridinizde "Geliştirici" sekmesinin görünür olduğundan emin olun (değilse,)Word’de Geliştirici sekmesini nasıl gösteririm? öğreticisine göz atın). Ardından, iki adet açılır liste eklemek için "Geliştirici" > "Eski Nesil Formlar" > "Açılır Liste Form Alanı" seçeneğine iki kez tıklayın.
    Eski Formlar seçili ve Açılır Liste Form Alanı vurgulanmış Geliştirici sekmesi
  2. İlk açılır listeye (ana liste olacak) sağ tıklayıp “Özellikler” seçeneğine tıklayın.
    İlk açılır liste sağ tıklanmış ve Özellikler seçeneği seçilmiştir
  3. "Açılır Liste Form Alanı Seçenekleri" iletişim kutusunda:
    1. Kategorileri (örneğin "Meyve", "Sebze", "Et") "Açılır liste öğesi" kutusuna tek tek girin ve her birini girdikten sonra "Ekle"ye tıklayın.
    2. "Yer işareti" kutusuna "ddfood" yazın.
    3. “Tamam”a tıklayın.
      Açılır Liste Form Alanı Seçenekleri iletişim kutusu
  4. İkinci Açılır Liste öğesine sağ tıklayın, "Özellikler"i seçin, "Yer işareti" kutusuna "ddCategory" yazın ve "Tamam"a tıklayın.
    Açılır Liste Form Alanı Seçenekleri iletişim kutusu
  5. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
  6. VBA penceresinde "Ekle" > "Modül" seçeneğine tıklayın, ardından aşağıdaki kodu yapıştırı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

    Notlar:

    • Kodda, her "Case" ifadesinin altındaki öğeleri içeriğinize uygun şekilde güncelleyin.
    • "ddfood" ve "ddCategory" ifadeleri, "Açılır Liste Form Alanı Seçenekleri" iletişim kutusuna girdiğiniz Yer İmi Adı ile eşleşmelidir.
  7. Kodu kaydedin ve belgenize dönün.
  8. İlk Açılır Liste öğesine tekrar sağ tıklayın ve "Özellikler"i seçin. Açılan "Açılır Liste Form Alanı Seçenekleri" iletişim kutusunda, "Çıkış" açılır listesinden "Populateddfood" makro adını seçin ve "Tamam"a tıklayın.
    Açılır Liste Form Alanı Seçenekleri iletişim kutusu
  9. "Geliştirici" > "Düzenlemeyi Kısıtla" seçeneğine tıklayın.
    Şeritteki Geliştirici sekmesinde Düzenlemeyi Kısıtla düğmesi
  10. "Düzenlemeyi Kısıtla" bölmesinde:
    1. “Belgede yalnızca bu tür düzenlemelere izin ver” seçeneğini işaretleyin.
    2. Açılır listeden “Form Doldurma” seçeneğini seçin.
    3. “Evet, Korumayı Uygula” seçeneğine tıklayın.
    4. “Korumayı Uygula” iletişim kutusunda bir parola belirleyip “Tamam”a tıklayın.
      Düzenlemeyi Kısıtla bölmesi ve Korumayı Uygulamaya Başla iletişim kutusu

Artık Dinamik Liste etkin! İlk listeden "Meyve"yi seçtiğinizde, ikinci listede yalnızca meyve seçenekleri görünür.

İkinci açılır liste seçimlerinin, ilk açılır listede seçilen seçeneğe göre sınırlandırıldığı örnekler

En İyi Ofis Verimlilik Araçları

Kutools for Word ile Word deneyiminizi 100'den fazla göz alıcı özellikle yükseltin!

🤖KUTOOLS AI Özellikleri: Yapay Zeka Asistanı, Gerçek Zamanlı Asistan, Süper Parlat (Biçimi Koru), Süper Çeviri (Biçimi Koru), AI Redaksiyon, Yapay Zeka Düzeltme…

📘Belge Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Biçimlerde Dışa Aktar (PDF/TXT/DOC/HTML…) / Toplu PDF Dönüştürme…

✏İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Çevirerek Tabloyu Döndür / Tabloyu Metne Dönüştür…

🧹Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını ve Köprüleri kaldırmak için daha fazla araç bulmak üzere Kaldırgrubuna gidin…

➕Yaratıcı Ekleme Araçları: Binlik Ayırıcılar, Onay Kutusu, Radyo Düğmesi, QR Kodu, Barkod, Birden Çok Resim ve daha fazlasını Eklegrubunda keşfedin…

🔍Hassas Seçimler:Belirli Sayfaları/Tabloları/Şekilleri/Başlık Paragrafı/ Gezinmeyi daha fazla özelliğiyle geliştirin Seç…

⭐Yıldızlı Geliştirmeler: Herhangi Bir Konuma Git / Tekrarlanan Metni Otomatik Ekle / Belgeler Arasında Geçiş Yap Windows / 11Araçları Dönüşüm…

🌍40+ Dil Desteği: Kutools’u istediğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil dahil olmak üzere kapsamlı dil desteği sunuyor!

Kutools for Word şerit sekmeleri
 
 

Office Tab- Office’a Sekmeli Arabirim Getirir, İşlerinizi Çok Daha Kolaylaştırır

  • Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okumayı etkinleştirin.
  • Yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!

✨ Kutools for Office – Tek Kurulum, Beş Güçlü Araç!

İçerir Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint

📦 Tüm 5 araçları tek bir pakette alın | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve verimliliği hemen artırın

En İyi Ofis Verimlilik Araçları

Kutools for Word- Word için 100+ Araç