Excelでヘッダに前日の日付を表示したい！

題名の通りですが、Excelでヘッダに昨日の日付を表示させたいのですが、分りません。今日の日付は簡単なのですが・・・・どなたか分る方いらっしゃいましたらお教えください！

No.3 ベストアンサー 回答者： maruru01 回答日時： 2003/06/25 17:08

>前日の日付１３：００～本日の日付１３：００時点

つまり、13時までは前日の日付ということでしょうか。
それなら、コードを以下のように変更します。


Private Sub Workbook_BeforePrint(Cancel As Boolean)

　　Dim temp As Date

　　If Time >= TimeSerial(13, 0, 0) Then
　　　　temp = Date
　　Else
　　　　temp = Date - 1
　　End If

　　ActiveSheet.PageSetup.RightHeader = Format(temp, "yyyy/m/d")
End Sub

この回答へのお礼

いろいろありがとうございました。
お教え頂いた方法で何とかやって見ます！
本当に感謝しています！

お礼日時：2003/06/26 08:39

No.4 回答者： imogasi 回答日時： 2003/06/25 22:25

ページ設定－ヘッダーで今日が２００３／６／２５日として、＆［２００３／６／２４と人間が入れるのではダメですか。

別の日になると、その前日を自動で出て欲しいのでしょうか。
エクセルでは、シートの上部のセルの１つを日付けセルとして使えば（=TODAY()-1）済むような気もしますが、やはりヘッダーでないとだめですか。

この回答へのお礼

アドバイスありがとうございます。
確かにセルを日付設定用にすることも考えましたが、日付表示を表の真中にしたいのと、表自体マクロで作成するので日によって幅が違うため、表示位置が変わるので諦めました。

お礼日時：2003/06/26 08:36

No.2 回答者： maruru01 回答日時： 2003/06/25 16:18

こんにちは。

maruru01です。

おそらくマクロ（VBA）でないと無理だと思います。
VBAの記述方法は以下のページを参照して下さい。

http://www2.odn.ne.jp/excel/waza/print.html#TOC9

ただし、コードの内容を以下のように変更します。


Private Sub Workbook_BeforePrint(Cancel As Boolean)
　　ActiveSheet.PageSetup.RightHeader = Format(Date - 1, "yyyy/m/d")
End Sub


なおFormat関数で様々な表示形式が出来ます。
例えば、

Format(Date - 1, "ggge年m月d日")

とすれば和暦表示出来ます。
（参考URLにも載っています。）

参考URL：http://www2.odn.ne.jp/excel/waza/print.html#TOC9

この回答への補足

ありがとうございます。ついでといっては何なんですが、表示したかった本当の表示は
「前日の日付１３：００～本日の日付１３：００時点」
なのですが、教えていただいた方法に追加しないと表示されません。ただいま悪戦苦闘しているのですが、何か良いヒントはありますでしょうか？

ずうずうしくて済みません。本当に助かっています！

補足日時：2003/06/25 16:38

No.1 回答者： shy00 回答日時： 2003/06/25 16:17

ヘッダは&[日付]にし、パソコンの日付を変更する

という手ではどうでしょうか？(^^;

この回答へのお礼

回答ありがとうございます。
ただ、毎回システム日付を変更するなら、都度ヘッダに日付を入力した方が速いので・・・・
私もそれは考えたのですが、辞めました。

お礼日時：2003/06/25 16:44