Excel VBA質問箱 IV

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

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


7627 / 76732 ←次へ | 前へ→

【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社に・・。
6 hits

【74671】はじめまして、ご質問させてください。 化け猫 13/8/28(水) 14:33 質問
【74672】Re:はじめまして、ご質問させてください。 ウッシ 13/8/28(水) 17:00 発言
【74673】Re:はじめまして、ご質問させてください。 化け猫 13/8/28(水) 18:00 お礼
【74675】Re:はじめまして、ご質問させてください。 ウッシ 13/8/28(水) 20:55 質問
【74676】Re:はじめまして、ご質問させてください。 化け猫 13/8/28(水) 21:09 発言
【74677】Re:はじめまして、ご質問させてください。 ウッシ 13/8/28(水) 23:29 回答
【74679】Re:はじめまして、ご質問させてください。 化け猫 13/8/29(木) 8:51 発言
【74680】Re:はじめまして、ご質問させてください。 ウッシ 13/8/29(木) 10:34 回答
【74684】Re:はじめまして、ご質問させてください。 化け猫 13/8/29(木) 17:54 お礼
【74685】Re:はじめまして、ご質問させてください。 ichinose 13/8/29(木) 20:06 発言
【74686】Re:はじめまして、ご質問させてください。 化け猫 13/8/29(木) 20:12 お礼
【74689】Re:はじめまして、ご質問させてください。 化け猫 13/8/30(金) 5:30 発言
【74690】Re:はじめまして、ご質問させてください。 Abyss 13/8/30(金) 17:32 発言
【74691】Re:はじめまして、ご質問させてください。 ichinose 13/8/30(金) 21:01 発言

7627 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free