Skip to main content

Word tablosuna renk kodlu açılır liste nasıl eklenir?

Author: Xiaoyang Last Modified: 2025-08-07

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:

Demo showing a cell's color changing when an item is selected from the drop-down list

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:

  1. 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.

    Drop-Down List Content Control button on the ribbon
  2. Açılır liste, belirli hücreye eklenmiştir. Ardından "Geliştirici" > "Özellikler"'e tıklayın.
  3. Drop-down inserted into a specific cell with Properties option highlighted
  4. İçerik Denetimi Özellikleri iletişim kutusunda, aşağıdakileri yapın:
    1. Başlık metin kutusuna başlık adını girin.
    2. Açılır menü öğesi eklemek için "Ekle" düğmesine tıklayın.
    3. Açılır liste öğesini Görünen Ad metin kutusuna yazın.
      Content Control Properties dialog box and Add Choice dialog box
  5. Diğer açılır liste öğelerini eklemek için 3. Adımı tekrarlayın.
  6. İlk açılır liste oluşturulduktan sonra, onu diğer hücrelere kopyalayıp yapıştırabilirsiniz.
    Drop-down list copied to other cells
  7. ALT + F11 tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.
  8. 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.

    VBA window with ThisDocument selected, showing code pasted into the blank module
  9. 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.
    Demo showing a cell's color changing when an item is selected from the 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ç