月曜日 火曜日 という文字列でGET Dim s曜日 s曜日 = WeekdayName(Weekday(Date))ネタ元 http://www.ab.auone-net.jp/~t.i/chapter8-4.html