Switch関数で曜日を一括取得  Sub test()'   Switch関数で曜日を一括取得 Dim myWeekDay As Integer  &···