Word tablosuna renk kodlu açılır liste nasıl eklenir?
Diyelim ki, Word belgemde bir tablo var ve şimdi, tablonun bir sütununa renk kodlu açılır liste eklemek istiyorum. Bu, açılır menüden bir seçenek belirlediğimde, hücre renginin kırmızıya dönüştüğü ve açılır menüden başka bir seçenek belirlediğimde, aşağıdaki ekran görüntüsü gibi hücre renginin yeşil olduğu anlamına gelir. Bu işi Word belgesinde nasıl çözebilirsin?
VBA kodu ile Word belgesine renk kodlu açılır liste ekleyin
VBA kodu ile Word belgesine renk kodlu açılır liste ekleyin
Aşağıdaki adımlar, ihtiyaç duyduğunuzda bu görevi tamamlamanıza yardımcı olabilir, önce açılır listeyi ekleyin ve ardından açılır menü için rengi uygulayın. Lütfen şunu yapın:
1. Açılır listeyi eklemek istediğiniz tabloda bir hücre seçin ve ardından Geliştirici > Açılır Liste İçerik Kontrolü simgesi, ekran görüntüsüne bakın:
2. Açılır menü belirli bir hücreye eklenir ve ardından Geliştirici > Emlaklar, ekran görüntüsüne bakın:
3. In İçerik Kontrol Özellikleri iletişim kutusu, lütfen aşağıdaki işlemleri yapın:
(1.) Başlık adını Başlık Metin kutusu;
(2.) Tıklayın Ekle düğmesi şuraya git Seçenek Ekle diyalog;
(3.) Seçenek Ekle iletişim kutusunda açılır liste öğesini yazın. <span style="color:white">Görünen İsim</span> Metin kutusu.
4. İhtiyaç duyduğunuz diğer açılır liste öğelerini eklemek için 3. Adımı tekrarlayın.
5. İlk açılır listeyi oluşturduktan sonra, onu kopyalayıp ihtiyaç duyduğunuz diğer hücrelere yapıştırabilirsiniz. Ekran görüntüsüne bakın:
6. O zaman bir VBA kodu uygulamalısınız, lütfen ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
7. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu belge itibaren Proje-Proje bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.
VBA kodu: Renk kodlu açılır listeyi bir Word belgesi tablosuna ekleyin:
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, Durum açılır listeyi oluştururken başlık adıdır ve Tamamla, Devam etmekte, Başlamadı açılır listenin öğeleridir, bunları kendi başınıza değiştirebilirsiniz. Ayrıca rengini ihtiyacınıza göre değiştirebilirsiniz.
8. Ardından, kod penceresini kaydedin ve kapatın, şimdi açılır listeden bir öğe seçtiğinizde, göreceli rengi hücreyle doldurulacaktır, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!
🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur / Metni Yeniden Yaz / Belgeleri Özetleyin / Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de
📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / PDF'ye Toplu Dönüştürme / Sayfaları Görüntü Olarak Dışa Aktar / Aynı Anda Birden Çok Dosyayı Yazdırma...
✏ İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Yer Değiştirme / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar / Bölüm Sonları / Tüm Başlıklar / Metin kutuları / Köprüler / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...
➕ Yaratıcı Ekler: Ekle Bin Ayırıcı / Onay Kutuları / Radyo Düğmeleri / QR Code / Barkod / Çapraz Çizgi Tablosu / Denklem Başlığı / Görüntü Başlık / Tablo başlığı / Çoklu Resimler / Daha fazlasını şurada keşfedin: Grup Ekle...
🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar / tablolar / şekiller / başlık paragrafları / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...
⭐ Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin / tekrarlanan metni otomatik olarak ekle / belge pencereleri arasında sorunsuzca geçiş yapın / 11 Dönüşüm Aracı...