Word tablosuna renkli kodlamalı bir Açılır Liste nasıl eklenir?

Word belgenizde bir tablonuz olduğunu ve bu tablonun bir sütununa, seçtiğiniz değere göre renk değiştiren kodlanmış bir Açılır Liste eklemek istediğinizi düşünün. Örneğin, açılır listeden bir seçenek seçtiğinizde hücre kırmızıya, başka bir seçenek seçtiğinizde ise yeşile dönsün. Aşağıdaki ekran görüntüsünde gösterildiği gibi:

Word belgesine VBA kodu ile renkli kodlanmış Açılır Liste ekleyin

Aşağıdaki adımlar, bir tablo hücresine Açılır Liste ekleme ve seçilen öğeye göre hücreye Arka Plan Rengi uygulama işlemlerinde size rehberlik edecektir:

1. Açılır listeyi eklemek istediğiniz tablo hücresini seçin, ardından “Geliştirici” > “Açılır Liste İçerik Denetimi” seçeneğine tıklayın.

   Not: Şeritte Geliştirici sekmesini görmüyorsanız, şu adrese gidin: Word Şeridi’nde Geliştirici sekmesini nasıl gösterirsiniz?.

   

2. Açılır liste belirtilen hücreye eklenir. Ardından “Geliştirici” > “Özellikler” seçeneğine tıklayın.



3. "İçerik Denetimi Özellikleri" iletişim kutusunda aşağıdakileri yapın:
   1. “Başlık” metin kutusuna başlık adını yazın.
   2. “Ekle” düğmesine tıklayarak “Seçenek Ekle” iletişim kutusunu açın.
   3. Açılır Liste öğesinin görünen adını metin kutusuna yazın.

      

4. Diğer açılır liste öğelerini eklemek için 3. adımı tekrarlayın.
5. İlk açılır listeyi oluşturduktan sonra, onu diğer hücrelere kopyalayıp yapıştırabilirsiniz.

   

6. "Microsoft Visual Basic for Applications" penceresini açmak için ALT + F11 tuşlarına basın.
7. Microsoft Visual Basic for Applications penceresinde, modülü açmak için "Proje" bölmesindeki "ThisDocument" öğesine çift tıklayın. Ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın:

   Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
   With ContentControl.Range
       If ContentControl.Title = "Status" Then
           Select Case .Text
               Case "Complete"
                   .Cells(1).Shading.BackgroundPatternColor = wdColorRed
               Case "In Progress"
                   .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
               Case "Not Start"
                   .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
               Case Else
                   .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
           End Select
       End If
   End With
   End Sub
   

   Not: Yukarıdaki kodda, "Status" açılır liste oluşturulurken kullanılan başlık adıdır; "Complete", "In Progress" ve "Not Start" ise öğelerdir. Bu değerleri ve ilgili renkleri ihtiyacınıza göre özelleştirebilirsiniz.

   

8. Kod penceresini kaydedip kapatın. Artık Açılır Liste’den bir öğe seçtiğinizde, hücreye karşılık gelen renk otomatik olarak doldurulacaktır.

   

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!

 

Ücretsiz İndir     Şimdi Satın Al     Daha Fazla Bilgi Edinin

 

---

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!

Ücretsiz İndir     Şimdi Satın Al     Daha Fazla Bilgi Edinin

 

---

✨ 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

⬇️ Şimdi İndir🎁 Tam Paketi Satın Al📖 Daha Fazla Bilgi Edinin

En İyi Ofis Verimlilik Araçları

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

• 🤖KUTOOLS AI Özellikleri:Yapay Zeka Asistanı/Gerçek Zamanlı Asistan/Süper Parlat/Süper Çeviri/AI Redaksiyon/Yapay Zeka Düzeltme
• 📘Belge Uzmanlığı:Sayfaları Böl/Belgeleri Birleştir/Toplu PDF Dönüştürme
• ✏İçerik Düzenleme:Toplu Bul ve Değiştir/Tüm Resimleri Yeniden Boyutlandır
• 🧹Zahmetsiz Temizlik:Fazladan Boşlukları Kaldır/Bölüm Sonu Kaldır
• ➕Yaratıcı Ekleme Araçları:Binlik Ayırıcılar Ekle/Onay Kutusu Ekle/QR Kodu Oluştur
• 🌍40+ Dil Desteği: Kutools sizin dilinizde konuşur – 40’tan fazla dil desteğiyle!

Ücretsiz İndirŞimdi Satın AlKutools Hakkında Daha Fazla Bilgi Edinin