Soru Renklendir ve İptal et

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Kod:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior.ColorIndex = 4


Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior.ColorIndex = xlNone
İlk çift tık ile renklendirmeyi İkinci çift tık ile de renklendirmeyi İptal etmeyi sağlayan kodları nasıl birbirine bağlayabilirim?
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Aşağıdaki gibi yapabilirsiniz.

C++:
with Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior
if .ColorIndex = xlNone then
.ColorIndex = 4
else
.ColorIndex = xlNone
end if
end with
 
Üst