Excel2000:Ontimeメソッドで特定日時以降に1回実行するマクロについて

いつもお世話になります。

Ontimeメソッドで特定日（翌営業日）の指定時刻（AM11:00）以降、最初にファイルを開いたときに、1回だけデータ繰越用のマクロを自動実行させるコードについて、2点ご教示ください。

翌営業日は「配置図」シートA3に西暦で表示（例：2020年5月11日）しています。現在の残高繰越マクロ（手動で実行）の内容は以下のとおりです。
問1.
以下のコードに追加する内容について
Sub 自動残高繰越（）
Application.OnTime TimeValue("11:00:00"),"残高繰越"
End Sub

問2.
現在、ファイルを開いたときに「配置図」シートを表示させるマクロ（Sub workbook_open()）があります。このマクロとの前後関係。単純に「Sub workbook_open()」の次に追加マクロとして記述するのか、「Sub workbook_open()」の内容も変更する必要があるのか

*********************
(Module1)
Sub 残高繰越()
Application.ScreenUpdating = False
If Range("B3").Value = "残高繰越済" Then
MsgBox "残高更新済みです。"
Else
Worksheets("計算表").Select
Range("K7:K46").Value = Range("I7:I46").Value
Worksheets("配置図").Select
Range("T7:U22").Value = 0
Range("E9:E13,E15,E17:E22").Value = 0
Range("D31:O31").Value = 0
Range("B3").Value = "残高繰越済"
Range("B3").Select
ActiveWorkbook.Save
End If
Application.ScreenUpdating = True
End Sub

(ThisWorkbook)
Sub workbook_open()
Worksheets("配置図").Activate
Range("A3").Select
End Sub

No.1 ベストアンサー 回答者： fujillin 回答日時： 2020/05/11 09:40

こんにちは

＞指定時刻（AM11:00）以降、最初にファイルを開いたときに、～～
というタイミングであれば、OnTimeの選択は間違いでしょう。
というかOnTimeの必要は無く、Open時に「条件を満たしていれば処理を行う」というロジックになるのではないでしょうか？

＞1回だけデータ繰越用のマクロを自動実行させるコードについて～～
指定日時が書き換えられて繰り返し使われるのか等によっても若干条件は変わる可能性がありますが、いずれにしても「１回だけ」を実現するためには上記のように「時間条件を満たせば実行」だけだと、それ以降は、Openの度に何度も処理が実行されてしまいます。

これを防止して「１回だけ」を実現するためのアイデアとして、
・実行したら、比較対象の日時をクリアしておく
　（クリアしても問題ない場合）
・別に記録用のセル（あるいは外部ファイル）などを利用して、実行した際の指定日時を記録ｊしておき、指定日時とこの値が同じならば実行しない。
などが考えられます。

ご質問について
問１
ご質問の文章が正しいとするなら、上記説明のようにOnTimeを利用することが相応しくないように思われます。

問２
ご提示のマクロは「セル選択」するだけのものなので、何かの計算処理を行うものではありません。
ですので、内容的には前でも後でも良いことになると思われます。とは言え最後に「セル選択」された状態で終わりたいのなら、先に記述しておいた方が良いかもしれません。
（無駄のない記述法をとれば、前でも後でも関係ありませんが、雰囲気からするとどうなるのかわかりませんので）

この回答へのお礼

fjillin 様

早速にありがとうございました。
Sub workbook_open()の中に条件式を組み込んでいけば良いわけですね。
勉強不足でした。
いただいたアイデアを参考に、実現したいことを考えてみます。

お礼日時：2020/05/11 12:40