VBA（Excel）を使用してExcel 2010でカウントダウンタイマーを作成

Question

Excel 2010を使用しており、Excelでカウントダウンタイマーを作成したいと考えています。コードは、マクロが接続されたボタンを使用して開始および停止されます。この問題は、「開始」ボタンが押されたときに発生します。上記のコードでは、入力スポットとしてCell "B1"を使用しています。なぜなら、私はそれを動作させようとしていたからですが、試したたびに常に以下のようになります。 "マクロを実行できません。このブックまたはすべてのマクロが無効になっている可能性があります。

はいここに入れる前にすべてのマクロを有効にしました。私はユーザーの入力を受け取り、セル "B1"を使用する代わりにタイマーが始まる時間を作りたいと思っています。

'Macro for Starting the timer (attached to the start button) 
Sub startTimer() 
Application.OnTime Now + TimeValue("00:00:01"), "nextTick" 
End Sub 

'Macro for next second 
Sub nextTick() 
Sheet1.Range("B1").Value = Sheet1.Range("B1").Value - TimeValue("00:00:01") 
startTimer 
End Sub 

'Macro for stopping the timer (attached to the end button) 
Sub stopTimer() 
Application.OnTime Now - TimeValue("00:00:01"), "nextTick", , False 
End Sub 

Answer 1

私は非常にわずかにあなたのコードを修正し、標準モジュールでそれを置く：

Public Future As Double 

Sub StartTimer() 
    Future = Now + TimeSerial(0, 0, 1) 
    Application.OnTime earliestTime:=Future, procedure:="nextTime", _ 
     schedule:=True 
End Sub 

Sub nextTime() 
    Sheet1.Range("B1").Value = Sheet1.Range("B1").Value - TimeValue("00:00:01") 
    StartTimer 
End Sub 

Sub StopTimer() 
    On Error Resume Next 
    Application.OnTime earliestTime:=Future, _ 
     procedure:="nextTime", schedule:=False 
End Sub 

両方StartTimer（）とは、stopTimerを（）実行だけで罰金。