Sub 曜日を取得判定する()
    
    日付 = Range("A2")
    
    If Weekday(日付) = 1 Then Range("B2") = "日曜日" '1は日曜日
    If Weekday(日付) = 2 Then Range("B2") = "月曜日" '2は月曜日
    If Weekday(日付) = 3 Then Range("B2") = "火曜日" '3は火曜日
    If Weekday(日付) = 4 Then Range("B2") = "水曜日" '4は水曜日
    If Weekday(日付) = 5 Then Range("B2") = "木曜日" '5は木曜日
    If Weekday(日付) = 6 Then Range("B2") = "金曜日" '6は金曜日
    If Weekday(日付) = 7 Then Range("B2") = "土曜日" '7は土曜日
    
End Sub