Excel VBA質問箱 IV

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

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


9187 / 76737 ←次へ | 前へ→

【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

0 hits

【73112】マクロの自動実行 はまこ 12/11/15(木) 15:41 質問
【73113】Re:マクロの自動実行 ウッシ 12/11/15(木) 16:53 回答
【73115】Re:マクロの自動実行 H. C. Shinopy 12/11/15(木) 22:09 回答

9187 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free