VBA Excelタイマーモジュール

Question

問題：システムタイム+ 25分で計算された参照時刻からのカウントダウンには25分のタイマーが必要です。この25分タイマーが完了すると、このタイマーが完了したことをポップアップするタイマーが必要になります。

現在参照時間は次のとおりです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Not Intersect(Target, Range("B1,B11:B18,B20")) 
    Cancel = True 
    Target.Formula = Time 
End If 
End Sub 

ありがとう！

Answer 1

あなたはおそらく

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Not Intersect(Target, Range("B1,B11:B18,B20")) Then 
     Cancel = True 
     Target.Formula = Time ' This line is only if you want it to update the cell 

     Application.OnTime Now()+TimeValue("00:25:00"), "EndTimer" 
    End If 
End Sub 

としてあなたのコード内のどこかに、

Application.OnTime Now()+TimeValue("00:25:00"), "EndTimer" 

のようなものを実行し、手順

Sub EndTimer() 
    MsgBox "Time has ended" 
End Sub