エクセルＶＢＡの実行時エラー１００４の解決方法

質問

Private tm As Double
Sub Auto_Open()
Call 更新
End Sub
Sub 更新()
Application.Calculate
tm = [now()+timevalue("00:00:10")]
Application.OnTime tm, "更新"
End Sub
'=====================================================
Sub 更新やめ()
Application.OnTime tm, "更新", , False
End Sub

この様なＶＢＡがあります。

ここで「Sub 更新やめ()」のＶＢＡを何度も実行すると「実行時エラー’１００４’：’ＯｎＴｉｍｅメソッドは失敗しました；’＿Ａｐｐｌｉｃａｔｉｏｎ’オブジェクト」と表記されます。

何度も実行しても上記の表示が出ない様にする為のＶＢＡはどの様に改造すれば良いでしょうか？

回答No.2

chie65536（@chie65535） · ベストアンサー

＞ここで「Sub 更新やめ()」のＶＢＡを何度も実行すると

一旦、

Application.OnTime tm, "更新", , False

で解除したタイマースケジュールを、もう一度

Application.OnTime tm, "更新", , False

で解除しようとすると、実行時エラー1004になります。

なので「一度解除したら、二度は解除しない」という処理にしないといけません。

例えば「解除したら、tmの値を、過去の時刻に書き換え、tmが過去の時刻を示していたら解除済みとして二度以上は解除しない」などの工夫をしましょう。

もちろん「On Error Resume Next」で誤魔化すって手もありますが「別のエラーが出た時に、エラーで止まらず、意図しない動作をしてしまう可能性がある」ので、On Error Resume Nextの使用はお勧め出来ません。

以下のように改造しましょう。

Sub 更新やめ()
If tm >= now() Then
Application.OnTime tm, "更新", , False
tm = DateValue("1900/01/01")
End If
End Sub

あと、tm変数はDouble型ではなく、Date型で宣言しましょう。

Private tm As Double
を
Private tm As Date
に直しましょう。

また、変数をPrivateで持つなら、以下のようにするのも手です。

Private tm As Date
Private AbortFlag As Boolean
Sub Auto_Open()
AbortFlag = False
Call 更新
End Sub

Sub 更新()
If AbortFlag = True Then Exit Sub
Application.Calculate
tm = [now()+timevalue("00:00:10")]
Application.OnTime tm, "更新"
End Sub

Sub 更新やめ()
AbortFlag = True
End Sub

Sub 更新再開()
AbortFlag = False
Call 更新
End Sub

お礼

この度は回答して頂き誠にありがとうございます。
無事に解決する事が出来ました。
ありがとうございました。

回答No.3

山田 太郎（@f_a_007）

Excel　は一度も扱ったことがない門外漢ですが・・・。私なら、エラーの発生そのものを回避します。しかし、エラートラップは｛それはそれと｝して書きます。

Option Explicit

Private tm As Double
Private isSchedule As Boolean

Sub Auto_Open()
　　Call 更新
End Sub

Sub 更新()
　　isSchedule = True
　　Application.Calculate
　　tm = [now()+timevalue("00:00:10")]
　　Application.OnTime tm, "更新"
End Sub

Sub 更新やめ()
On Error GoTo Err_更新やめ
　　If isSchedule Then
　　　　Application.OnTime tm, "更新", , False
　　　　isSchedule = False
　　End If
Exit_更新やめ:
　　Exit Sub
Err_更新やめ:
　　MsgBox "実行時にエラーが発生しました。(更新やめ)" & Chr$(13) & Chr$(13) & _
　　　　　 "・Err.Description=" & Err.Description, vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_更新やめ
End Sub

お礼

この度は回答して頂きありがとうございました。
参考になりました。

回答No.1

fmxBeem

単純にエラーを非表示にするなら「On Error Resume Next」を追記です。エラーによって処理を条件分岐したいなら「On Error Goto (エラー処理)」にして、コードの最後にSelect Caseか何かでエラー処理させたほうがいいですね。

お礼

この度は回答して頂きありがとうございました。
参考になりました。