İmlecin Olduğu Hücrenin Yeşil Kenarlığını Daha Kalın ve Kırmızı Yapmak

[bektafig]

Merhabalar

Sorum Şudur

Resimdeki Yeşil olan herhangi hücreye tıkladığımızda orayı belirten bu kenarlık - belirteç - imleç her neyse bunun rengini değiştirebiliyormuyuz?

Amacım Tıklandığında hangi hücrede olduğumuzu daha net görebilmek. Göz sıkıntısı olan bir arkadas var lenovo 15.6" pc de tıklayınca göremiyormuş. Mouse ile nereyi seçtiğini


Windows 10 Kullanıyorum baya araştırdım dün Windows Tema - Renk seçeneklerinden windows un yapman lazım denilmiş ama Komple tema değiştirip kaldırsam dahi olmuyor

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Cells.Interior.ColorIndex = 3 ' Hücre Rengi
End Sub

En yakın olarak bu kodu buldum ama her açtığım excel dosyasında bu kodu otomatik çalıştırmayı başaramaz bahsettiğim kişi.

Şayet bir ayarı varsa şu yeşili kırmızı yada mavi falan yapabilirsek minnettar kalırım.

Saygılarımla

 

[askm]

Bu kodu sayfa kodlarına eklerseniz otomatik çalışır zaten. Renk olarak farklı bir renk istiyorsanız, boş bir excelde bir hücreye istediğiniz biçimlendirmeyi manuel yaparak yüklerseniz o şekilde yapabiliriz.

 

[bektafig]

Bu kodu sayfa kodlarına eklerseniz otomatik çalışır zaten. Renk olarak farklı bir renk istiyorsanız, boş bir excelde bir hücreye istediğiniz biçimlendirmeyi manuel yaparak yüklerseniz o şekilde yapabiliriz.

Manuel değilde

Mesela Otomatik olarak yeşil yerine çerçevesi bulunduğun çerçeve koyu kırmızı olacak

böyle bir şey gerekli

 

[Korhan Ayhan]

Dinamik hücre renklendirme işlemleri için makro kullanmanız gerekir.

Kodu siz arkadaşınızın dosyasına uyarlayın. Makro güvenlik seviyesini de DÜŞÜK olarak ayarlarsanız dosya açılışında kodlar otomatik devreye girer.

 

[Seyit Tiken]

B şekilde bir deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Borders(xlInsideVertical).LineStyle = xlNone
Cells.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).Color = -13339648
Selection.Borders(xlEdgeTop).Color = -13339648
Selection.Borders(xlEdgeBottom).Color = -13339648
Selection.Borders(xlEdgeRight).Color = -13339648
End Sub

 

[askm]

Bahsettiğiniz yeşil renk değişmiyor diye biliyorum. Yukarıda arkadaşın eklediği kod ise çerçeve rengini değiştirmek. Yalnız bu renk zaten aktif hücrede yeşil rengin altında kaldığı için gözükmeyecektir.

Alternatif olsun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Borders.Color = xlColorIndexNone
Cells.Interior.ColorIndex = xlColorIndexNone

ActiveCell.Cells.Interior.ColorIndex = 3
With Selection
        .Borders.LineStyle = xlNone
        .Borders.LineStyle = xlContinuous
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
        .Borders.Color = ColorConstants.vbRed
End With
End Sub

 

[bektafig]

Cevaplar için çok teşekkür ederim.

VBA-Kodlar konusunda pek bilgim yok.

Basit bir şekilde herhangi uyarı almadan( Bu sayfa makro çalıştırıyor vs ) nasıl PC'de excel olan tüm dosyalar ile açılmasını sağlayabilirim?

 

[Korhan Ayhan]

Merhaba,

Kodları eklenti haline getirip excele bir kez tanıtırsanız kendi bilgisayarınızda otomatik olarak her dosyada çalışır.

Linkleri inceleyiniz.

http://www.excel.web.tr/f60/eklenti-hazyrlamak-addins-xla-t7756.html
http://www.excel.web.tr/f60/hazyrlanan-eklenti-dosyasyny-excele-tanytmak-resimli-anlatym-t61736.html

 

[Levent Menteşoğlu]

Bu konuda bir hatırlatma yapmak istiyorum.

Bu tip sayfa nesnesi üzerinde işlem yapan olayları normal bir eklenti olarak kaydedip çalıştıramayız. Bu kodların application nesnesine yani Excelin kendisine yazılması gerekir. Bunun içinde class modül kullanmak gerekecektir. Yani çok basit bir uygulama değildir. Aşağıdaki linkte bununla ilgili bir örnek bulabilirsiniz.

http://www.excel.web.tr/f48/eklenti-olu-turmak-t27341.html

 

[incsoft]

Arkadaşlar lisanslı office 2019 kullanmaktayım ancak excel'de işlem yaptığım hücrenin rengi hiç belli olmuyor. Excelde bu şekilde hiçbir özellik göremedim ve bazı arkadaşlarca bazı macrolar buldum denedim olmadığı gibi bazıları oldu ancak çok aşırı şekilde dosya üzerindeki işlemi(hesaplama) yavaşlattı. Hücre kutucuk rengini değiştirmeden nasıl bir önerileriniz vardır? Mesela kutu rengini belli olacak şekilde ve hızı düşürmeyecek şekilde kırmızı olarak nasıl ayarlayabilirim?

Teşekkürler.

 

[incsoft]

Sayfa boşken gözükmesinde sorun yok ancak hücrelerde kenarlık çizgisi ayarlaması yapıldığında ve içlerinde değer olduğunda yine gözükmemektedir.

 

[Korhan Ayhan]

Dosyanızda bolca fonksiyon kullanıyorsanız hızlanma konusunda çokta bir şey yapılamaz.