Dim Tdy_Wd = Today.Dayofweek '今日の曜日番号を取得 If Tdy_Wd = 6 Then '今日が土曜日であれば日曜日にするために0を代入。 Tdy_Wd = 0 Else Tdy_Wd = Tdy_Wd + 1 '違えば普通にプラス1を行い、次の曜日番号を代入。 End If Dim Next_Wd = WeekdayName(Tdy_Wd) 'Tdy_Wdの曜日番号から曜日を割り出す。 MsgBox(Next_Wd) 'Next_WdをMSGBOX表示する。