İmleÇ Kenarlik Rengİ

[m.gur]

Merhaba
Ben çoğu zaman imlecin hangi hücrede olduğunu göremiyorum. Acaba imlecin kenarlıkları (yani çerçevesi) renklendirilebilirmi. İlgilenenlere teşekkürler.

 

[Ferhat Pazarçevirdi]

Nasıl yani ? ...

Normal şartlarda, imlecin belirgin olmaması mümkün değil ... Koyu renk bir aralığa girseniz bile imlecin rengi otomatik olarak değişir.

Siz, özel olarak "Kılavuz Çizgi Rengi" belirlediyseniz, belki belirginliği daha az olabilir. Bu durumda, Araçlar->Seçenekler->Görünüm sekmesindeki, "Kılavuz Çizgisi rengini" olabildiğince açık bir renge ayarlayın.

 

[m.gur]

Teşekkürler ama ben yine de sorumun cevabı varmıdır merak ediyorum.

 

[m.gur]

Arkaşalar bu konuda bilgisi olan yokmu..

 

[Kemal Demir]

İyi geceler,

Büyük ustalardan Ivan F Moala 'ya ait bir kod olacak zannedersem,

Option Explicit
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 = 36
Else
    iColor = iColor + 1
End If
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete
With Range("A" & Target.Row, Target.Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:=iInternational 'Or just 1 '"TRUE"
    .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 'Or just 1 '"TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

 

[m.gur]

sayın rakkas; aradığım tam olarak bu değildi ama yine de tşk ederim. Ama formülde bir eksiklik vardı çalışmadı. Ben kendime göre birşeyler denedim ve çalıştı. En son satıra End Sub yazınca çalıştı.