Seçim alanı rengi değiştirme

[kurthan]

Arkadaşlar merhaba;

Excel 2007 de fare ile belirli bir alan seçtiğimiz zaman seçilen alan rengi otomatik olarak geliyor bu rengi değiştirmenin yolu var mı? mesela şuanda açık gri bir renk veriyor çok belli olmuyor benim bu rengi biraz koyulaştırmam mümkün mü acaba?

 

[uzmanamele]

Merhaba

Buraya bakınız.
http://www.excel.web.tr/f50/excel-mouse-secili-alanyn-renksiz-gorunmesi-t109415.html

 

[asi_kral]

Arkadaşlar merhaba;

Excel 2007 de fare ile belirli bir alan seçtiğimiz zaman seçilen alan rengi otomatik olarak geliyor bu rengi değiştirmenin yolu var mı? mesela şuanda açık gri bir renk veriyor çok belli olmuyor benim bu rengi biraz koyulaştırmam mümkün mü acaba?

Merhaba
Sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Konu       :   Seçili Alanı Boya
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Cells.Interior.Color = xlNone
Selection.Interior.Color = vbRed
End Sub

Bu kodu kopyalayın ve deneyin.
Eki inceleyin.

 

[kurthan]

Hocam o linki inceledim ama yinede olmadı
başka yolu var mı acaba benim bilgisayarın ayarları orda yazılan değerlerde zaten

 

[yes107yes107yes107]

hocam excellde bir hücreyi tıklattığımızda aktif hücrenin kenarındaki çizgilerini renklendirebilirmiyiz

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

A1 hücresinin değeri Nokta değilse çizgiyi çizer.
Bu kodları sizde makro kaydet ile oluşturabilir, sonra inceleyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [A1] = "." Then Exit Sub
    
    With Target.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = vbRed
    End With
    With Target.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = vbRed
    End With
    With Target.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = vbRed
    End With
    With Target.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Color = vbRed
    End With
End Sub

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Borders.LineStyle = xlNone
    With Target
        .Borders.LineStyle = 1
        .Borders.Weight = 3
        .Borders.ColorIndex = 3
    End With
End Sub