別のExcelが開いているときにExcelを閉じることができない

Question

Excelファイルで構成されるマクロを閉じようとすると、数秒間閉じてからもう一度開くとバグが出て、定義されていないオブジェクトが返されます次のコードでのエラー -

Option Explicit 

Public TimerCell As Range 
Public TimerValue As Range 
Public StopTimer As Boolean 
Public EndTime As Double 

Public Sub TimeCounter() 
    If Not StopTimer Then 
    If EndTime - Now < 0 Then 
     EndTime = Now + TimerValue 'Specifically in this line 
    End If 
    Application.EnableEvents = False 
    TimerCell = EndTime - TimeValue(Now) 
    Application.EnableEvents = True 
    Application.OnTime Now + TimeSerial(0, 0, 1), "TimeCounter" 'the clock runs every second 
    End If 
End Sub 

私は、画面上の第2のタイマーによって、第2を実行して、タイマーの完了時10分にすべての私のマクロをリフレッシュするには、このコードを使用しています。

これは私に上記の行のObject variable not defined errorを与えます。どんな助けもありがとうございます。

Answer 1

TimerValueがまだ設定されていないためにエラーが発生しました（Excelが閉じられると、パブリック変数のインスタンスは破棄されます）。 xlVeryHiddenシートに値を保存するか、またはTimerValueがNothingであるかどうかを確認し、それに応じて処理する条件を追加する必要があります（TimerValueの場合）