#Belirtilen target(hedef) de seçili alan olan Row(satır)'da tablo boyutu kadar seçili alanı boyama ödevi:
Örnek :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 And Target.Row < 8 And Target.Column = 1 Then
Range("A1") = Target.Value @Range yardımı ile Seçilen hücreyi target A1'e gönderme
End If
End Sub
Örnek çıktı :
Boyama işleminin gerçekleşmesi için; Koşullu Biçimlendirme yöntemini kullanarak yeni kural atama işlemi yapcağız:
Giriş sekmesinden = Koşullu Biçimlendirme
Yeni Kural
Açılan pencerede Biçimlendirilecek hücrelerin seçim işlemi fare yardımıya yaptıkdan sonra
Kodumuzda bulanan işaretli yerde ki sabitleme işareti olan $ şeklini siliyoruz ki;
kodumuz aşağıya doğru seçili A1 sütünuna eşit olabilsin olması gereken son hali :
Biçimlendirme butonuna tıklayarak açılan pencerede dolgu sekmesinden rengimiz seçiyoruz
Tamam dedikkten sonra artık tablomuzda A1 sütunundan, tablo içerisinde ki seçili hücreye denk gelen satırın tablo boyunca sarıya boyandığını görmemiz mümkün.
Yorumlar
Yorum Gönder