Merhaba arkadaşlar,
A sütununda tarihlerimiz aşağıya doğru sıralanıyor. Yazacağımız kod ile örneğin 5 ve 5'in katları olan günleri sarı 2 ve 2'nin katı olanları kırmızı yapan kodu yazacağız.
Listemiz yukarıdaki şekildedir. Şimdi ise kodlarımızı yazalım.
10,20 ve 30 hem 2 hemde 5 'in katı olduğu için kodumuzdaki ilk if bloguna girer. Aslında bu örneği 5 ve 3 olarak planlamıştım fakat yaptıktan sonra dikkatimi çekti 5 ve 2 yapmışım
A sütununda tarihlerimiz aşağıya doğru sıralanıyor. Yazacağımız kod ile örneğin 5 ve 5'in katları olan günleri sarı 2 ve 2'nin katı olanları kırmızı yapan kodu yazacağız.
Listemiz yukarıdaki şekildedir. Şimdi ise kodlarımızı yazalım.
Kod:
Function Renklendir()
For i = 1 To 30
If Day(Range("A" & i)) Mod 5 = 0 Then
Range("A" & i).Interior.Color = vbYellow
ElseIf Day(Range("A" & i)) Mod 2 = 0 Then
Range("A" & i).Interior.Color = vbRed
End If
Next
End Function10,20 ve 30 hem 2 hemde 5 'in katı olduğu için kodumuzdaki ilk if bloguna girer. Aslında bu örneği 5 ve 3 olarak planlamıştım fakat yaptıktan sonra dikkatimi çekti 5 ve 2 yapmışım