サンプル 次の例は、ユーザーが入力した日付の曜日を表示します。 Sub Sample() Dim userdate As String userdate = InputBox("日付を入力してください(yy/mm/dd)") If IsDate(userdate) Then Select Case WeekDay(userdate) Case vbSunday MsgBox "日曜日" Case vbMonday MsgBox "月曜日" Case vbTuesday MsgBox "火曜日" Case vbWednesday MsgBox "水曜日" Case vbThursday MsgBox "木曜日" Case vbFriday MsgBox "金曜日" Case vbSaturday MsgBox "土曜日" End Select End If End Sub