+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Aktif Satır Sutun Renklendirme (/konu-aktif-satir-sutun-renklendirme.html)
Aktif Satır Sutun Renklendirme - ates2014 - 26/11/2019
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.
Cvp: Aktif Satır Sutun Renklendirme - berduş - 26/11/2019
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
Ben sadece renk işlemini yaptim
Satı sutun rengi_hy.rar
(Dosya Boyutu: 26,49 KB | İndirme Sayısı: 12)
Cvp: Aktif Satır Sutun Renklendirme - ates2014 - 26/11/2019
Çok teşekkür ederim berduş hocam...
rengi değişmek için hangi rakamları degiştirmem gerek, örneyin açık sarı.?
Cvp: Aktif Satır Sutun Renklendirme - berduş - 26/11/2019
Rengi değiştirmek için
.inferior.colourIndex =renkNo
satırı kullanılıyor ama renk kodlarını bilmiyorum internetten bulabilirsiniz.