Ｐａｇｅ 501 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ページ設定 ヘッダの時刻表示 ばば 02/12/24(火) 16:19 ┣時刻の２４時間表記は・・・ こう 02/12/30(月) 16:25 ┗Re:ページ設定 ヘッダの時刻表示 Ｊカーター 02/12/30(月) 16:40 ┣Re:ページ設定 ヘッダの時刻表示 こう 02/12/31(火) 16:52 ┗Re:ページ設定 ヘッダの時刻表示 ばば 03/1/5(日) 16:55 ─────────────────────────────────────── ■題名 ： ページ設定 ヘッダの時刻表示 ■名前 ： ばば ■日付 ： 02/12/24(火) 16:19 -------------------------------------------------------------------------
| 印刷のページ設定でヘッダに時刻をスタンプしてもらおうと思い、設定をして印刷したものを見たら、「４：１５ＰＭ」といった表示なってしまいます。 これを２４時間で表示するにはどうすればいいのでしょうか？ 一般機能での修正方法、VBAでの修正方法の療法を教えていただけるありがたいです。 |
| ばば さん、こんにちわ。 >印刷のページ設定でヘッダに時刻をスタンプしてもらおうと思い、設定をして印刷したものを見たら、「４：１５ＰＭ」といった表示なってしまいます。 >これを２４時間で表示するにはどうすればいいのでしょうか？ これは、使用しているＰＣの設定に依存するようです。 [コントロールパネル]−[地域のオプション]−[時刻タブ]で、 「時刻の形式」が「tt hh:mm:ss」などになっていると１２時間表記に なります。おそらくExplorerなどの更新日時も１２時間表記になっている と思われます。 そこで、この「時刻の形式」を２４時間表記に変更すれば、VBAで何も対応 しなくても２４時間表記になりますが、 「時刻の形式」はそのままでVBAで対応するなら、 印刷前にページ設定で２４時間形式の時刻を埋め込んでみてはいかがでしょうか？ wtime = Time ActiveSheet.PageSetup.RightHeader = Hour(wtime) & ":" & Minute(wtime) & ":" & Second(wtime) 確か印刷指示時のイベントを検知する方法があったと思いますが.... 失念してしまいました。ごめんなさい。 |
| ActiveSheet.PageSetup.RightHeader = "&T" ActiveSheet.PageSetup.RightHeader = Format(Time, "hh:mm") どちらもダメでしたらご容赦ください。 |
| Ｊカーターさん、こんにちわ。 >ActiveSheet.PageSetup.RightHeader = Format(Time, "hh:mm") で、「地域の設定」にかかわらず２４時間表示できますね。 勉強になりました＞Format |
| こうさん Ｊカーターさん ありがとうございました |