+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tüm Sütunu Renklendirme (/konu-tum-sutunu-renklendirme.html)
Tüm Sütunu Renklendirme - ByChilavert - 03/12/2019
Merhaba
Excel üzerinde =HAFTANINGÜNÜ(A1;2)=7 formulünü kullanarak hücreyi renklendirebiliyorum. Yapmış olduğum puantajda pazar gününe denk gelen tüm sütunu boyamasını istiyorum. İnternette çok araştırdım ama bir çözüm bulamadım. Bu konu hakkında yardımcı olabilir misiniz.
Cvp: Tüm Sütunu Renklendirme - berduş - 03/12/2019
aşağıdaki kodu dener mısiniz
hücre içeriği değiştiğinde çalışır
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kolon() As String
Dim xStun As Range
Dim Hcr As Range
Set xStun = Range("A1:AE1")
'If Not Application.Intersect(xStun, Range(Target.Address)) Is Nothing Then
For Each Hcr In xStun
Kolon = Split(Hcr.Address, "$")
If Weekday(Hcr.Value, 0) = 7 Then Range(Kolon(1) & ":" & Kolon(1)).Interior.ColorIndex = 4 Else Hcr.Columns(Hcr.Column).Interior.ColorIndex = 0
Next Hcr
End SubCvp: Tüm Sütunu Renklendirme - mehmetdemiral - 04/12/2019
Konunuz Excel sorusu olduğundan uygun alana taşınmıştır.
Cvp: Tüm Sütunu Renklendirme - ByChilavert - 04/12/2019
(03/12/2019, 19:57)berduş yazdı: aşağıdaki kodu dener mısinizBelirttiğiniz kodu Alt+F11 ile modül sayfasına yazdım A1 hücresinden AE1 hücresine kadar yazdım herhangi bir renklendirme olmadı.
hücre içeriği değiştiğinde çalışırPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim Kolon() As String
Dim xStun As Range
Dim Hcr As Range
Set xStun = Range("A1:AE1")
'If Not Application.Intersect(xStun, Range(Target.Address)) Is Nothing Then
For Each Hcr In xStun
Kolon = Split(Hcr.Address, "$")
If Weekday(Hcr.Value, 0) = 7 Then Range(Kolon(1) & ":" & Kolon(1)).Interior.ColorIndex = 4 Else Hcr.Columns(Hcr.Column).Interior.ColorIndex = 0
Next Hcr
End Sub
Cvp: Tüm Sütunu Renklendirme - berduş - 04/12/2019
kodu sayfa1'in modulune yapıştırmayı dener mısiniz?
Cvp: Tüm Sütunu Renklendirme - ByChilavert - 04/12/2019
(04/12/2019, 08:34)berduş yazdı: kodu sayfa1'in modulune yapıştırmayı dener mısiniz?Alt+F11 ile olmadı sayfaya sağ tıklayıp kod görüntüle ile yaptığım zaman oldu teşekkürler.