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 Zirveye Taşıyın!
🤖 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 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ır ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Fazla Boşlukları / Bölüm Sonlarını / Metin Kutularını / Bağlantıları Kolayca Temizleyin. Daha fazla kaldırma aracı için Kaldır grubuna göz atın...
➕ Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu / Barkod / Birden Fazla Resim / Ekle grubunda daha fazlasını keşfedin...
🔍 Hassas Seçimler: Belirli Sayfaları / Tabloları / Şekilleri / Başlık Paragraflarını Hedefleyin; daha fazla Seç özelliğiyle gezinmeyi geliştirin...
⭐ Yıldız Geliştirmeler: Herhangi Bir Konuma Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri Arasında Geçiş Yap /11 Dönüştürme Aracı...

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 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ı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / QR Kodları Oluştur