No.5ベストアンサー
- 回答日時:
#4さんの方法だと、マクロを実行した時点で、更新日時が変わってしまいませんか。
#4さんのを参考に手を加えてみました。新しいブックで、以下のマクロを実行してみてください。
○マクロ"ファイル選択"を実行するとダイアログが現れるので、印刷するファイルを選択します。すると、そのファイルが開きます。
○印刷するシートを選択します。
○マクロ"フッター"を実行します。(目的以外のシートを選択しないように気をつけてください)
Sub ファイル選択()
fName = Application.GetOpenFilename("エクセル ファイル (*.xls), *.xls")
If fName <> False Then
Worksheets(1).Range("A1").Value = FileDateTime(fName)
Workbooks.Open fName
End If
End Sub
Sub フッター()
ActiveSheet.PageSetup.RightFooter = _
"更新日時: " & ThisWorkbook.Worksheets(1).Range("A1").Value
End Sub
この回答へのお礼
お礼日時:2003/06/22 22:23
sakenomoさん
ありがとうございます。指定方法でなんとか難局を抜けました。設計書を印刷した紙を承認する中で,改竄を防ぐため電子ファイルの日付と印刷日付を一致させることを考えておりました。
No.8
- 回答日時:
#6です。
これは質問者さんではなく、#7さんへ。>それでは、ThisWorkBookモジュールの、
いいアイディアだと思います。
ですがNowを使うためでしょうか、プロパティの方の更新日時は、フッターの時刻の1秒後になってしまうのです。
僕のパソコンの処理速度が遅いだけだったりして。(^_^;)
いろいろとツッコミを入れて、失礼しました。
No.7
- 回答日時:
#2,#3,#4です。
>FileDateTimeが返す更新日時は、そのファイルを開いた時間になるようです
なんかそのようですね。
やってみたら確かにそうなりました。
それでは、ThisWorkBookモジュールの、
WorkbookのBeforeSaveイベントに、
現在日時でフッタを設定するマクロをコピペしたらどうでしょうか。
こんな具合に。
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "更新日時: " & Format(Now(), "YYYY/MM/DD HH:MM:SS")
End Sub
マクロは保存時に実行されますので、
初めて実行するときは、あらかじめ保存しないといけません。
(2回目からは前回の更新日時が印刷されるはずです。)
No.6
- 回答日時:
#5です。
>マクロを実行した時点で、更新日時が変わってしまいませんか。
これも正しくはありませんでした。
既存のファイルを印刷したい場合、FileDateTimeが返す更新日時は、そのファイルを開いた時間になるようです。ファイルに何も変更を加えずに閉じれば、更新日時は以前のものに戻ります。
ファイルの内容を変更すると更新日時は、そのファイルを閉じた、あるいは上書き保存した時間になるようです。
ですから、#4さんのマクロを使う前に、まず上書き保存をし、そのファイルを”変更を保存せずに”閉じる必要があります(マクロを使った時点でフッターの設定が変更されているから)。こうすることで、印刷された日時と、ファイルのプロパティで表示される更新日時が合うと思います。
上書き保存を自動でやる機能を入れたマクロは、#4さんが書いてくださると思います。(^^)
#僕が書いたマクロは、既存のファイルを印刷する場合のためのものです。必ず印刷するファイルが閉じている状態から始めてください。
#フッターの設定が変更されているわけですから、閉じる時点で、エクセルがファイルの変更を保存するかどうか聞いてきます。ここで「いいえ」にしないと、更新日時が変わってしまいますのでご注意ください。
なかなか面倒なものですね・・・。
No.4
- 回答日時:
#2,#3です。
たびたびすいません。
またエラーになりました。こんどこそ!
Option Explicit
Sub footerTest()
ActiveSheet.PageSetup.RightFooter = "更新日時: " & Format(FileDateTime(ThisWorkbook.Path & "\" & ThisWorkbook.Name), "YYYY/MM/DD HH:MM:SS")
End Sub
No.3
- 回答日時:
#2です。
すいません。間違いました。訂正します。
パスの指定がなかったので、実行するとエラーになります。
テストしてなかったもんで、ご迷惑をおかけしました。
次のコードに修正してください。
Option Explicit
Sub footerTest()
ActiveSheet.PageSetup.RightFooter = _
"更新日時: " & _
Format(FileDateTime(ThisWorkbook.Path & "\" & ThisWorkbook.Name), "YYYY/MM/DD HH:MM:SS")
End Sub
No.2
- 回答日時:
できます。
ただしVBAを使用します。エラー回避処理は組み込んでいませんので
ただし、保存されていないファイルで実行すると、エラーになります。
Option Explicit
Sub footerTest()
ActiveSheet.PageSetup.RightFooter = "更新日時: " & Format(FileDateTime(ThisWorkbook.Name), "YYYY/MM/DD HH:MM:SS")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- Excel(エクセル) エクセルシートのPDFでの保存 2 2022/09/06 13:05
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Word(ワード) Wordでの印刷サイズについて A4の原稿をB5サイズで出力したいとき、 印刷から用紙サイズの指定か 4 2022/04/30 09:51
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
ExcelブックをGoogleスプレッド...
-
Wordで差込印刷した後に別々の...
-
Excel csv保存 列数が異なる場...
-
サブフォルダから部分一致のエ...
-
マクロ実行後、表示がおかしくなる
-
エクセルでcsvファイルを開いて...
-
エクセルのマクロで行と列の削...
-
エクセルファイル名に更新日時...
-
エクセルで、フィルタかけたま...
-
VBAでマクロを使って、マクロ無...
-
エクセルの保存履歴を残す方法
-
エクセル UserForm 呼び出しで...
-
エクセルvbaでdocuworksprinter...
-
バッチファイル 二つ上のディ...
-
エクセルで複数のコメントのサ...
-
カンマ区切りのCSVファイルから...
-
frxファイルの役目
-
CSV形式での保存時に”文字列...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
Wordで差込印刷した後に別々の...
-
ExcelブックをGoogleスプレッド...
-
Excel csv保存 列数が異なる場...
-
エクセル UserForm 呼び出しで...
-
エクセルファイル名に更新日時...
-
サブフォルダから部分一致のエ...
-
マクロ実行後、表示がおかしくなる
-
EXCEL 検索時の設定
-
PowerPoint 2002でファイル名を...
-
実行時エラー52
-
エクセルのマクロで行と列の削...
-
複数のexcelのファイルを一括で...
-
エクセルでcsvファイルを開いて...
-
VBAでマクロを使って、マクロ無...
-
For~Nextルーチンで最初の1回...
-
大量のCSVファイルをExcel形式...
-
vbaでボタンをクリックして上書...
-
エクセルの保存履歴を残す方法
おすすめ情報