VBAは - Application.EnableCancelKeyは

Question

ほとんどの質問は以下の通りです何とか奇妙な行動している - イミディエイトウィンドウに私が手にする理由この：

Application.EnableCancelKey = 2 
?Application.EnableCancelKey 
1 

最後の行が2であるべきか、私は何かが足りないのですか？ ありがとう！

Answer 1

編集：

基礎が列挙xlErrorHandlerは、「のOn Error GoToステートメントを使用して設定エラーハンドラによってトラップ可能な、割り込みがエラーとして実行されている手順に送られる」と述べているということです、その列挙型（xlErrorHandlerまたは2）を使用するにはエラーハンドラが必要です。

Since some statements are not possible within the immediate window、およびOn Error GoToは、これらの文の一つであり、あなたは、イミディエイトウィンドウにエラーハンドラを持っているので、2にEnableCancelKeyの値を変更することはできません。したがって、Excelでは自動的に1に切り替わり、値を表示するように要求すると値1が表示されます。

唯一の解決策は、サブを使用することです。

---

オリジナルの返信：

[OK]を、私はdocumentation provided on the MSDNのコードを使用し、次のコードでそれをテストするためのいくつかのことを編集しました。

まもなく説明すると、「ESC」ボタンを1回押してテキストボックスを終了させないようにして実行を停止しました。イミディエイトウィンドウで、最後のEnableCancelKeyが値normalyで変更されたことを見ることができます。

Sub Test1() 

Debug.Print " Before execution result : " & Application.EnableCancelKey 

On Error GoTo handleCancel 
Application.EnableCancelKey = 2 'xlErrorHandler 
Debug.Print " Regular execution result : " & Application.EnableCancelKey 

For x = 1 To 10000 ' Do something 1,000,000 times (long!) 
    Debug.Print "Test" 
Next x 

handleCancel: 
If Err = 18 Then 
    Debug.Print "Aborted macro result : " & Application.EnableCancelKey 
    MsgBox "You cancelled" 
End If 

End Sub 

希望する結果が得られました。

2つの値を得るにはError Handlerと書く必要があります。それ以外の場合、コードはエラーをキャッチできません。そのため、マクロを実行するたびに1が得られます。

enum xlErrorHandlerの説明では「実行中のプロシージャにエラーが発生したときに割り込みが送信され、On Error GoToステートメントで設定されたエラーハンドラでトラップできます」という記述があるため、そのエラーハンドラを使用する必要があります列挙型。それが動作するはずです。これにより

：

Sub test2() 

On Error GoTo theEnd 
Application.EnableCancelKey = 2 
Debug.Print Application.EnableCancelKey 

theEnd: 
End Sub