Skip to main content

AccessTr.neT


Tüm Sütunu Renklendirme

ByChilavert
ByChilavert
5
1200

Tüm Sütunu Renklendirme

Çözüldü #1
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.
.rar PAZAR.rar (Dosya Boyutu: 6,62 KB | İndirme Sayısı: 5)
Cevapla
#2
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 Sub
Cevapla
#3
Konunuz Excel sorusu olduğundan uygun alana taşınmıştır.
İnadına, ille de Accesstr.net...
Cevapla
#4
(03/12/2019, 19:57)berduş yazdı: 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 Sub
Belirttiğiniz kodu Alt+F11 ile modül sayfasına yazdım A1 hücresinden AE1 hücresine kadar yazdım herhangi bir renklendirme olmadı.
Cevapla
#5
kodu sayfa1'in modulune yapıştırmayı dener mısiniz?
Cevapla
#6
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task