Skip to main content

AccessTr.neT M.



Tüm Sütunu Renklendirme

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ı: 4)
Cevapla
#2
aşağıdaki kodu dener mısiniz
hücre içeriği değiştiğinde çalışır

Visual Basic Code
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ş Adlı Kullanıcıdan Alıntı: aşağıdaki kodu dener mısiniz
hücre içeriği değiştiğinde çalışır

Visual Basic Code
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ş Adlı Kullanıcıdan Alıntı: 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