Skip to main content

AccessTr.neT


Aktif Satır Sutun Renklendirme

Aktif Satır Sutun Renklendirme

Çözüldü #1
Merhaba arkadaşlar,
Yapmak istediğim olay aktif hücredeysem o satır aktif hücreye kadar ve sutunuda 4 satıra kadar renklenmesini yapmak istedim maalesef yapamadım.
.rar Satı sutun rengi.rar (Dosya Boyutu: 23,55 KB | İndirme Sayısı: 6)
Cevapla
#2
Public xEski As String

Private Sub Worksheet_Deactivate()
'sayfadan çıkınca bölgeyi temizler isterseniz bu prosedürü eklemeyin
If xEski <> "" Then ' eski aktif hucre bilgilerini alıyor
    Set Eski = Range(xEski)
    Eski.Interior.ColorIndex = 0 'rengini sıfırlıyor
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xStrStn() As String

If xEski <> "" Then ' eski aktif hucre bilgilerini alıyor
    Set Eski = Range(xEski)
    Eski.Interior.ColorIndex = 0 'rengini sıfırlıyor
End If
   
If Target.Row > 4 Then
    xStrStn = Split(Target.Address, "$") 'aktif hucrenin sütun-satır  bilgilerini alıyor
    Set Aktif = Range(xStrStn(1) & 4 & ":" & xStrStn(1) & xStrStn(2) & ", A" & xStrStn(2) & ":" & xStrStn(1) & xStrStn(2)) 'aktif alanın ardalanını değiştir
    Aktif.Interior.ColorIndex = 4
    xEski = xStrStn(1) & 4 & ":" & xStrStn(1) & xStrStn(2) & ", A" & xStrStn(2) & ":" & xStrStn(1) & xStrStn(2) 'adresini kaydediyor _
böylece başka hucreye gidince bu bilgiyi alabilecek

End If

End Sub
memurlar2 sayfası daki tüm kodları silip bunu ekleyerek dener mısınız.
Ben sadece renk işlemini yaptim
.rar Satı sutun rengi_hy.rar (Dosya Boyutu: 26,49 KB | İndirme Sayısı: 12)
Cevapla
#3
Çok teşekkür ederim berduş hocam...
rengi değişmek için hangi rakamları degiştirmem gerek, örneyin açık sarı.?
Cevapla
#4
Rengi değiştirmek için
.inferior.colourIndex =renkNo
satırı kullanılıyor ama renk kodlarını bilmiyorum internetten bulabilirsiniz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da