[[20060704201746]]　『ヘッダーの日付の日をずらす』（kousin）　ページの最後に飛ぶ

『ヘッダーの日付の日をずらす』（kousin）
毎日提出する書類で、今日作成したときに明日の日付で
打ち出されるようにするにはどうすればいいでしょうか？

 パソコンのシステムの時計を一日進めます・・・。え！ダメ・・・？(^_^A;

 （川野鮎太郎）

 ThisWorkbookモジュールに貼り付けます。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        .LeftHeader = Format(Date + 1, "YYYY/M/D")　　'左のフッタ←ヘッダですた・・・＿/￣|○ il||li
        .CenterHeader = Format(Date + 1, "YYYY/M/D")　'中のフッタ
        .RightHeader = Format(Date + 1, "YYYY/M/D")　 '右のフッタ
    End With
End Sub

 （川野鮎太郎）

 （　^ノo^）コメント・・・フッタ・・・？
(ROUGE)

 突っ込み感謝です(^_^A;

 （川野鮎太郎）

できました！ありがとうございます。

あと、作成日が土曜日の場合に翌月曜日の日付が打ち出されるように
なれば完璧なのですが・・・可能でしょうか？
（kousin）

 祝祭日はどうしますか？

 （川野鮎太郎）

祝祭日も飛ばすようにしたいです。（kousin）

 来年以降の祝祭日は、ご自分で追加してください。
　
 Private Sub Workbook_BeforePrint(Cancel As Boolean)
MyDate = Date + 1
If Weekday(MyDate, vbMonday) = 7 Then  '日曜日を除いて処理
    MyDate = Date + 2
End If
    MyHoliday = Array(DateSerial(2006, 1, 1), _
                    DateSerial(2006, 1, 2), _
                    DateSerial(2006, 1, 9), _
                    DateSerial(2006, 2, 11), _
                    DateSerial(2006, 3, 21), _
                    DateSerial(2006, 4, 29), _
                    DateSerial(2006, 5, 3), _
                    DateSerial(2006, 5, 4), _
                    DateSerial(2006, 5, 5), _
                    DateSerial(2006, 7, 17), _
                    DateSerial(2006, 9, 18), _
                    DateSerial(2006, 9, 23), _
                    DateSerial(2006, 10, 9), _
                    DateSerial(2006, 11, 3), _
                    DateSerial(2006, 11, 23), _
                    DateSerial(2006, 12, 23))
ReHoliday:
    For i = LBound(MyHoliday) To UBound(MyHoliday)
        If MyHoliday(i) = MyDate Then
            MyDate = MyDate + 1
        End If
    Next i
    If Weekday(MyDate, vbMonday) = 7 Then  '算出日が日曜日なら再処理
        MyDate = MyDate + 1
        GoTo ReHoliday
    End If
    With ActiveSheet.PageSetup
        .LeftHeader = Format(MyDate, "YYYY/M/D")   '左のヘッダ
    End With
End Sub

 ※祝祭日の次の日が日曜日になる場合を考慮していなかったので追加修正

 （川野鮎太郎）

完璧です！
ありがとうございました。（kousin）

コメント返信：

[ 一覧(最新更新順) ]

[[20060704201746]] 『ヘッダーの日付の日をずらす』（kousin） ページの最後に飛ぶ

[[20060704201746]]　『ヘッダーの日付の日をずらす』（kousin）　ページの最後に飛ぶ