Skip to main content

Bir Word belgesinde bağımlı açılır listeler nasıl oluşturulur?

Author: Siluvia Last Modified: 2025-08-07
Example showing limiting the choices in the second drop-down list based on the selected option in the first drop-down list

Ekran görüntüsünde gösterildiği gibi, ikinci açılır listedeki seçenekleri ilk açılır listede yapılan seçimlere göre sınırlamak isteyebilirsiniz. Bu makale, bir Word belgesinde bağımlı açılır listeler oluşturmanın nasıl yapılacağını size gösterir.

VBA kodu ile Word'de bağımlı açılır listeler oluşturun


VBA kodu ile Word'de bağımlı açılır listeler oluşturun

Aşağıdaki VBA yöntemi, ikinci listenin ilk listede seçilen öğeye göre değiştiği bağımlı bir açılır liste oluşturmanıza yardımcı olur. Bu adımları izleyin:

  1. Word şeridinde "Geliştirici" sekmesinin görünür olduğundan emin olun (değilse, Word'de Geliştirici sekmesini nasıl gösterirsiniz? başlıklı öğreticiye bakın). Ardından "Geliştirici" > "Eski Formlar" > "Açılır Liste Form Alanı" seçeneğine iki kez tıklayarak iki açılır liste ekleyin.
    Developer tab with Legacy Forms selected and Drop-Down Form Field highlighted
  2. İlk açılır listeye (bu ana liste olacak) sağ tıklayın ve "Özellikler" seçeneğine tıklayın.
    First drop-down list right-clicked with Properties option selected
  3. "Açılır Liste Form Alanı Seçenekleri" iletişim kutusunda:
    1. Kategorileri (örneğin, "Meyve", "Sebze", "Et") tek tek "Açılır liste öğesi" kutusuna girin ve her birinden sonra "Ekle"ye tıklayın.
    2. "Yer İmi" kutusuna "ddfood" yazın.
    3. "Tamam" düğmesine tıklayın.
      Drop-down Form Field Options dialog box
  4. İkinci açılır listeye sağ tıklayın, "Özellikler" seçeneğini seçin, "Yer İmi" kutusuna "ddCategory" yazın ve "Tamam" düğmesine tıklayın.
    Drop-down Form Field Options dialog box
  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 ve 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 bir "Durum" ifadesi altındaki öğeleri içeriğinize uygun şekilde değiştirin.
    • "ddfood" ve "ddCategory", "Açılır Liste Form Alanı Seçenekleri" iletişim kutularına girdiğiniz Yer İmi adlarıyla eşleşmelidir.
  7. Kodu kaydedin ve belgenize geri dönün.
  8. İlk açılır listeye tekrar sağ tıklayın ve "Özellikler" seçeneğini 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" düğmesine tıklayın.
    Drop-down Form Field Options dialog box
  9. "Geliştirici" > "Düzenlemeyi Kısıtla" seçeneğine tıklayın.
    Restrict Editing button on the Developer tab on the ribbon
  10. "Düzenlemeyi Kısıtla" panelinde:
    1. "Belgede yalnızca bu tür düzenleme yapılmasına izin ver" seçeneğini işaretleyin.
    2. Açılır listeden "Formları doldurma" seçeneğini seçin.
    3. "Evet, Koruma Uygulamaya Başla" düğmesine tıklayın.
    4. "Korumayı Uygula" iletişim kutusunda bir şifre belirleyin ve "Tamam" düğmesine tıklayın.
      Restrict Editing pane and Start Enforcing Protection dialog

Şimdi bağımlı açılır liste aktiftir. İlk listeden "Meyve" seçtiğinizde, ikinci listede yalnızca meyve seçenekleri görünecektir.

Examples showing limiting the choices in the second drop-down list based on the selected option in the first drop-down list

En İyi Ofis Verimlilik Araçları

Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile 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 Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu Olarak PDF'ye Dönüştür...

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

🧹 Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını, Bağlantıları Temizleyin / Daha fazla kaldırma aracı için Kaldır grubunu keşfedin...

Yaratıcı Eklemler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Ekle / Barkod Ekle / Birden Fazla Resim Ekle / Ekle grubunda daha fazlasını keşfedin...

🔍 Hassas Seçimler: Belirli Sayfaları, Tabloları, Şekilleri, Başlık Paragraflarını Nokta Atışıyla Seçin / Daha fazla Seç özelliğiyle gezinmeyi kolaylaştırın...

Yıldız İyileştirmeler: İstediğiniz Konuma Hızla Gidin / Yinelenen Metni Otomatik Olarak Ekleyin / Belge Pencereleri Arasında Hızla Geçiş Yapın /11 Dönüştürme Aracı...

🌍 40+ Dili Destekler: Kutools'u tercih ettiğiniz dilde kullanabilirsiniz – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil desteği!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Bu özellikleri denemek ister misiniz? Kutools for Word'u şimdi indirin! 🚀
 

En İyi Ofis Verimlilik Araçları

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