• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

B

bektafig

Katılım
19 Ağustos 2015
Mesajlar
3
Excel Vers. ve Dili
Office 2010
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?

Q73y33.jpg


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


Kod: 
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
 
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.
 
askm' Alıntı:
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.
Genişletmek için tıkla ...

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
 
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.
 
B şekilde bir deneyiniz.
Kod: 
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
 
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.
Kod: 
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
 
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?
 
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
 
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.
 
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.
 
Dosyanızda bolca fonksiyon kullanıyorsanız hızlanma konusunda çokta bir şey yapılamaz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst