- 158 名前：デフォルトの名無しさん mailto:sage [2009/03/09(月) 02:28:43 ]
- 土曜日の仕事を金曜日にかたずけたいと思いプログラム
を考えましたが動きません。
if WeekdayName(Weekday(Date))=6 and Hour(Time) >14 then
ActiveSheet.PageSetup.CenterHeader = "&24&B&I"+ Date +1 ’金曜日の２時以降は土曜日の日付のヘッダー
else
ActiveSheet.PageSetup.CenterHeader = "&24&B&I"+ Date ’平日は当日のヘッダー
end if
ActiveSheet.PageSetup.RightFooter = "&36&B&Uテスト"
これのどこが間違っていますか？
環境；
os xp
v 2003
