Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9257 / 76807

←次へ　｜　前へ→


	【73115】Re:マクロの自動実行

H. C. Shinopy - 12/11/15(木) 22:09 -


	引用なし

	パスワード

ブックのプロパティ（文書情報）を書き換えたり確認したりすることで、
後はIfやSelect Caseで処理をする・しないを決めるのはどうでしょうか
例えば、
　1日1回の自動実行の際に、プロパティの[コメント]に実行日時を書き込んでおく。
（この場合、上記処理の前に日時を確認する条件を確認する。）

あるいは、[更新日時]を確認することで、処理を続行するかどうか決める。

下記は参考になりそうなマクロ：

Sub MyListProperties()
　Rem ブックのプロパティ（文書情報）の表示
　Dim proDoc As DocumentProperty
　Dim myString As String
　'
　myString = ""
　'
　For Each proDoc In ActiveWorkbook.BuiltinDocumentProperties
　　myString = myString & proDoc.Name & "= " & proDoc.Value & vbCr
　　On Error Resume Next
　Next
　'
　MsgBox myString
End Sub ' MyListProperties　*----*----*　　*----*----*

Sub hhhhhhh()
　' [更新日時]・[コメント]の書き換え
　MsgBox ActiveWorkbook.BuiltinDocumentProperties("Last save time")
　ActiveWorkbook.BuiltinDocumentProperties("Last save time") = Now()
　MsgBox ActiveWorkbook.BuiltinDocumentProperties("Last save time")
　ActiveWorkbook.BuiltinDocumentProperties("Comments") = CStr(Now())
　MsgBox ActiveWorkbook.BuiltinDocumentProperties("Comments").Value
End Sub

1 hits

▼

【73112】マクロの自動実行 はまこ 12/11/15(木) 15:41