Soru Aya göre hafta sonları

[xemdarx]

Selamlar,
Ay ve yıla göre hafta sonlarını bulabilir miyiz? Ve seçilen hafta sonlarının zemini renkli yapabilir miyiz?
Teşekkürler.

 

[Ömer BARAN]

Merhaba.

VBA ekranında, kullanılan eski kodların tümünü silip bunların yerine aşağıdakileri yapıştırın ve
formu açıp, yıl ve ay seçimlerini değiştirerek sonucu gözlemleyin.

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then Exit Sub
If ComboBox2 = "" Then Exit Sub
yil = ComboBox2.Text
ay = ComboBox1.ListIndex + 1
For txt = 1 To 31
On Error Resume Next
    gun = Mid(Controls("Ek" & txt).Name, 3, 2)
    Controls("Ek" & txt).BackColor = vbWhite
    hgun = Weekday(CDate(gun & "/" & ay & "/" & yil), vbMonday)
    If hgun = 6 Then Controls("Ek" & txt).BackColor = vbYellow
    If hgun = 7 Then Controls("Ek" & txt).BackColor = vbRed
Next
End Sub

Private Sub ComboBox2_Change()
If ComboBox1 = "" Then Exit Sub
If ComboBox2 = "" Then Exit Sub
yil = ComboBox2.Text
ay = ComboBox1.ListIndex + 1
For txt = 1 To 31
On Error Resume Next
    gun = Mid(Controls("Ek" & txt).Name, 3, 2)
    Controls("Ek" & txt).BackColor = vbWhite
    hgun = Weekday(CDate(gun & "/" & ay & "/" & yil), vbMonday)
    If hgun = 6 Then Controls("Ek" & txt).BackColor = vbYellow
    If hgun = 7 Then Controls("Ek" & txt).BackColor = vbRed
Next
End Sub

Private Sub UserForm_Initialize()
Dim ay(), i As Byte
ay = Array("", "ocak", "şubat", "mart", "nisan", "mayıs", _
"haziran", "temmuz", "ağustos", "eylül", "ekim", "kasım", "aralık")
Yeni_mi = True
For i = 1 To 12
    ComboBox1.AddItem ay(i)
Next i
For ii = 2018 To 2025
    ComboBox2.AddItem ii
Next ii
End Sub

 

[xemdarx]

Harika. Teşekkürler

 

[Ömer BARAN]

Kolay gelsin.