VBA - マクロが中断したときにコードを実行する

Question

最後にいくつかのデフォルトを変更する必要がありますが、マクロを中断する必要がある場合、設定はリセットされません。 コードが

Application.Calculation = xlCalculationManual 

が含まれているのであれば、私は

Private Sub IfInterrupted() 
    Application.Calculation = xlCalculationAutomatic 
End Sub 

を持つことになり、これを行う方法はありますか？

Answer 1

あなたは本当には本当に、これはどのようにされ、これを実行する必要がある場合：

Sub YourSub() 
    On Error GoTo ErrHandler: 
    Application.EnableCancelKey = xlErrorHandler 

    ' You code goes here 

ErrHandler: 
    With Err 
    If .Number <> 18 Then 
     .Raise .Number, .Source, .Description, .HelpFile, .HelpContext 
    End If 
    End With 
    Application.Calculation = xlCalculationAutomatic 
End Sub 

しかし、それはあなたが達成しようとしているであるものは何でも達成するためのより良い方法があります。たとえば、ユーザー入力用のポーリングです。