Word tablosuna renk kodlu açılır liste nasıl eklenir?
Diyelim ki Word belgenizde bir tablo var ve şimdi bu tablonun bir sütununa renk kodlu bir açılır liste eklemek istiyorsunuz. Bu, açılır menüden bir seçenek seçtiğinizde hücre renginin kırmızıya döndüğü, başka bir seçenek seçtiğinizde ise hücre renginin yeşile dönmesi anlamına gelir, aşağıdaki ekran görüntüsünde gösterildiği gibi:

VBA kodu ile Word belgesine renk kodlu açılır liste ekleme
Aşağıdaki adımlar, bir tablo hücresine açılır liste eklemenizi ve seçilen öğeye göre hücreye arka plan rengi uygulamanızı sağlayacak:
- Açılır menüyü eklemek istediğiniz tablodaki bir hücreyi seçin ve ardından "Geliştirici" > "Açılır Liste İçerik Denetimi"'ne tıklayın.
Not: Şeritte Geliştirici sekmesini görmüyorsanız, şu adrese gidin: Word şeridinde Geliştirici sekmesini nasıl gösteririm.
- Açılır liste, belirli hücreye eklenmiştir. Ardından "Geliştirici" > "Özellikler"'e tıklayın.
- İçerik Denetimi Özellikleri iletişim kutusunda, aşağıdakileri yapın:
- Başlık metin kutusuna başlık adını girin.
- Açılır menü öğesi eklemek için "Ekle" düğmesine tıklayın.
- Açılır liste öğesini Görünen Ad metin kutusuna yazın.
- Diğer açılır liste öğelerini eklemek için 3. Adımı tekrarlayın.
- İlk açılır liste oluşturulduktan sonra, onu diğer hücrelere kopyalayıp yapıştırabilirsiniz.
- ALT + F11 tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.
- Microsoft Visual Basic for Applications penceresinde, "Proje" bölmesinden "ThisDocument" öğesine çift tıklayarak modülü açı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 ve "Complete", "In Progress" ve "Not Start" öğelerdir. Bu değerleri ve ilgili renkleri gerektiği gibi değiştirebilirsiniz.
- Kod penceresini kaydedip kapatın. Artık açılır listeden bir öğe seçtiğinizde, karşılık gelen renk hücreyi dolduracaktır.

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!

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 Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Toplu Olarak PDF'ye Dönüştür
- ✏ İçerik Düzenleme: Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır
- 🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır
- ➕ Yaratıcı Eklemler: Binlik Ayırıcılar Ekle / Onay Kutuları Ekle / QR Kodları Oluştur
- 🌍 40+ Dili Destekler: Kutools sizin dilinizde –40'tan fazla dil desteği!