Excel / VBA - Bir sütunun renk kısmı

Belirli bir sütuna girilen öğeye dayanarak satırın bir kısmını renklendirecek kodum var, ancak bu kodu, satırın içine girilen verilere dayanarak sütunun bir kısmı renklenecek şekilde dönüştürmek istiyorum. Aşağıdaki kodda ince ayar nasıl:

 Özel Alt Çalışma Sayfası_Değiştir (Menzili Olarak ByVal Hedef) 'Çalışma sayfasında bir değişiklik yapıldığında ... Kesişmediğinde (Hedef, Aralık ("B3: B100"))) Sonra Bir Şey Yok' ... B3 ile B100 arasındaki hücrelere (Rol) ... Eğer Selection.Cells.Count> 1 Sonra Alttan Çık '(eğer bir kerede birden fazla hücrede yapılan değişiklikler olursa tekrar çalıştırmadan çıkın - çökmeyi önler) "Hedef" Vaka Durum Seçin ... kontrol edin "Manager" ... Aralığı ("A" ve Target.Row & ": AG" ve Target.Row) .Interior.ColorIndex = 36 '... içeriyorsa ve bu satırdaki hücrelerin rengini değiştirin. B - AH soluk sarıya. 'Buradaki diğer durumlar .... Sona Göre Sonu Sona Er 

Çözüm

Hadi bakalım:

 Özel Alt Çalışma Sayfası_Değiştir (Aralıklı ByVal Hedef) Eğer Kesişiyorsa (Hedef, Aralık ("A3: L3")) Hiçbir Şey Veya _ Seçim. Hücreler.Açık> 1 Sonra Çıkış Seçin Durum Hedef Vaka "Yönetici" Aralığı (Hücreler (1, Target.Column), Hücreler (30, Target.Column)) Interior.ColorIndex = 36 Son Seç Son Son 

Bu ipucu için TrowaD'a teşekkürler.