çalışma hücresinin otomatik renklendirilmesi

[çumralı]

arkadaşlar merhaba..
görmeyi kolaylaştırmak amacıyla imlecin gezdiği her hücrenin otomatik olarak
renklenmesini yaptırabilirmiyiz..
teşekkürler..

 

[Bagcivan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
        Target.Interior.ColorIndex = 6
End Sub

Private Sub Worksheet_Deactivate()
Cells.Interior.ColorIndex = xlNone
End Sub

http://www.excel.web.tr/f14/aktif-hucre-renklenmesi-t64323.html

 

[security]

arkadaşlar merhaba..
görmeyi kolaylaştırmak amacıyla imlecin gezdiği her hücrenin otomatik olarak
renklenmesini yaptırabilirmiyiz..
teşekkürler..

Option Explicit
'Coder By Security
Const iInternational As Integer = Not (0)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
On Error Resume Next
iColor = Target.Interior.ColorIndex
If iColor < 0 Then
iColor = 41
Else
iColor = iColor + 1
End If
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete
With Cells(Target.Row, Target.Column)
.FormatConditions.Add Type:=2, Formula1:=iInternational
.FormatConditions(1).Interior.ColorIndex = iColor
End With
With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & Target.Offset(-1, 0).Address)
.FormatConditions.Add Type:=2, Formula1:=iInternational
End With
End Sub

denermisiniz Seçtiğiniz Hücre Renklenecektir.