Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-08-2017, 09:35   #1
bektafig
 
Giriş: 19/08/2015
Şehir: ANKARA
Mesaj: 2
Excel Vers. ve Dili:
Office 2010
Exclamation İmlecin Olduğu Hücrenin Yeşil Kenarlığını Daha Kalın ve Kırmızı Yapmak

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


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
bektafig Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 09:52   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,095
Excel Vers. ve Dili:
2010-2016
Varsayılan

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.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 11-08-2017, 08:48   #3
bektafig
 
Giriş: 19/08/2015
Şehir: ANKARA
Mesaj: 2
Excel Vers. ve Dili:
Office 2010
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
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
bektafig Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 09:24   #4
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,364
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

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.
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 09:30   #5
Seyit Tiken
Uzman
 
Seyit Tiken kullanıcısının avatarı
 
Giriş: 22/08/2005
Şehir: MARDİN
Mesaj: 3,609
Excel Vers. ve Dili:
Excel : 2010
Varsayılan

B şekilde bir deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
Sizi, Boş Yere Yarattığımızı ve Bize Döndürülmeyeceğinizi mi Sandınız? (Müminun-115)

Ve Kim Benim Zikrimden Yüz Çevirirse, O Taktirde Mutlaka Onun İçin Sıkıntılı Bir Geçim (Hayat) Vardır. Ve Kıyâmet Günü Onu, Kör Olarak Haşredeceğiz (Tâhâ-124)

İnsanın En Büyük Dostu Allah'tır - (MİHR)
Seyit Tiken Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 09:48   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,095
Excel Vers. ve Dili:
2010-2016
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:07


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Excel Eğitimi - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Kamera- Çorlu Fiber- Çorlu Araç Takip-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden