Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-10

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

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