Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

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

Author Xiaoyang Last modified

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
  3. İç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
  4. Diğer açılır liste öğelerini eklemek için 3. Adımı tekrarlayın.
  5. İ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
  6. ALT + F11 tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.
  7. 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
  8. 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 Verimliliği Araçları

Kutools for Word - Word deneyiminizi 100 dikkate değer özellik ile geliştirin!

🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / 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 / Aralığı PDF/TXT/DOC/HTML gibi çeşitli biçimlerde Dışa Aktar / Toplu PDF Dönüştürme...

✏ Metin Düzenleme: Birden fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Tabloyu Çevir / Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır / Metin Kutularını Kaldır / Bağlantıları Kaldır / Diğer kaldırma araçları için Kaldır grubuna göz atın...

➕ Yaratıcı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Oluştur / Barkod Oluştur / Birden fazla Resim Ekle / Daha fazlasını Ekle grubunda keşfedin...

🔍 Hassas Seçimler: Belirli Sayfa / Tabloları / Şekilleri / Başlık Paragraflarını tam olarak seçin / Daha fazla Seç özelliği ile gezinmeyi geliştirin...

⭐ Özel Geliştirmeler: Herhangi bir Aralığa Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri arasında geçiş yap /11 Dönüşüm aracı...

🌍 40+ Dil Desteği: Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil destekleniyor!

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

✨ Kutools for Office – Tek kurulumda beş güçlü araç!

Şunları içerir: Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tüm5 araca tek bir pakette sahip olun | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve anında verimliliği artır

En İyi Ofis Verimliliği Araçları

Kutools for Word - 100+ Word için araçlar

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