|
あんどーなつ さん、こんばんわ。
>ファイルを開くとき(開く前に)ファイルの更新日付を取得。
>ここでの更新日付とはファイルのプロパティに表示される「更新日時:.....」のこと
>Dim koushin As Date
>koushin = ThisWorkbook.BuiltinDocumentProperties("Last save time").Value
>
>
>ここで,更新日付が今日(当日)でない場合は確認メッセージを表示
>当日なら処理続行
取得した更新日時から時刻(小数)を切り捨てたものと、Date関数で取得したものが一致するかどうかを比較し分岐します。
Sub test()
Dim koushin As Date
Application.Dialogs(xlDialogOpen).Show
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
'何かファイルを開いた
koushin = ActiveWorkbook.BuiltinDocumentProperties("Last save time").Value
If Int(koushin) = Date Then
MsgBox "今日", vbInformation
Else
MsgBox Format(koushin, "ge/m/d作成"), vbExclamation
End If
End If
End Sub
こんな感じです。
|
|