Dlaczego makro nie działa w komórce

Question

Cześć,

Komórka C16 ma zawierać datę, jeśli data wypadnie na sobotę, to makro powinno wyrzucić wiadomość "Wpisałeś dzień niepracujący"

Najpierw tworzę makro, które ma wyrzucić wiadomość, a potem je przywołuję w Private Sub (). Mój kod poniżej: 

Sub blokujDate()

If (Weekday(C16, 2) > 5) Then
    MsgBox ("Wpisałeś dzień niepracujący!!!")
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "C16" Then
    Call blokujDate
End If

End Sub

Mimo wpisania date weekendowej, makro nie działa. Nie jestem pewna jak mogę przypisać makro do komórki C16

Answer 1

https://learn.microsoft.com/en-us/office/vba/api/excel.range(object)

aby odwołać się do komórki musisz użyć Range 

Weekday(Range("C16").Value, 2)

Answer 2

Proponuje drugi parametr dla Weekday zostawić pusty, czyli vba użyje wartości domyślnej dla ustawień systemowych komputera i dla lepszej czytelności kodu proponuje użyć stałych vba vbSaturday i vbSunday

Sub blokujDate()
    Dim cellValue As Date
    Dim dayOfWeek As Integer

    ' Pobierz wartość z komórki C16 jako datę
    cellValue = Range("C16").Value

    ' Sprawdź, który to dzień tygodnia (1 - nie, 2 - pon, ..., 7 - sob)
    dayOfWeek = Weekday(cellValue)

    ' Sprawdź, czy to sobota lub niedziela
    If dayOfWeek = vbSaturday Or dayOfWeek = vbSunday Then
        MsgBox "Wpisałeś dzień niepracujący (" & Format(cellValue, "dddd") & ") !!!"
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$16" Then
        Call blokujDate
    End If
End Sub