Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7631 / 76736

←次へ　｜　前へ→


	【74691】Re:はじめまして、ご質問させてください。

ichinose - 13/8/30(金) 21:01 -


	引用なし

	パスワード

>
>推論ですが、故障時制御のようなものをExcel2010で追加したというのであれば、DoEventsは必要不可欠なコードになっているのかもしれませんね。

この現象、厄介ですね！！
簡単な例だと

Option Explicit
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

Sub test()
　　Dim a As Long
　　Do
　　　 a = a + 1
　　　 If GetAsyncKeyState(13) <> 0 Then Exit Do
　　Loop
End Sub

これでも発生しますね！！

上記の場合、長くループさせれば、オーバーフローエラーになりますが。
正常に回っている状態でもマウスを一回クリックすると、
反応なしになることもあります。
反応なしになると、ループを抜ける手段を作っていかないと、
ESCキーでも止められません。

これは、直してもらわないといけませんねえ　MS社に・・。

0 hits

▼

【74671】はじめまして、ご質問させてください。 化け猫 13/8/28(水) 14:33