Excel VBA質問箱 IV

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

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


50409 / 76732 ←次へ | 前へ→

【31212】キーボードの操作
質問  boku  - 05/11/14(月) 18:18 -

引用なし
パスワード
   いつも参考にさせていただいてます。
使用環境は Win98SE Excel2000 です。

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

を使用すればキーボード操作を確認出来るんですよね?

シートモジュルールに下記を記述しました。

Private Sub Worksheet_Change(ByVal Target As Range)

Range("C6").Select

'[Enter]キーを押されたか判断する
If GetAsyncKeyState(13) <> 0 Then
 
    MsgBox "確認しました!"

Else

  MsgBox "もう一回試してください。"

End If 

End Sub

「C6」セルに適当に値を入力し、[Enter]キーを押したら

"もう一回試してください。"

が表示されました。
3回ほど、値を入力、[Enter]キーを押す動作を繰り返し
していたら、

"確認しました!"

が表示されました。

"確認しました!"
が表示された後は安定期に動作してくれていますが
bookを閉じて、次の日改めて起動するとまた不具合が
生じます。

上記のような症状がなく、普通に動く時もあるんですが、
一定のパターンもなく、安定的に動いてくれません。

同じような症状が出た方おられませんか?
解決策をご存知の方おられましたら助けていただけたらと
思います。

よろしくお願いします。
2 hits

【31212】キーボードの操作 boku 05/11/14(月) 18:18 質問
【31213】Re:キーボードの操作 Kein 05/11/14(月) 19:41 発言
【31224】Re:キーボードの操作 boku 05/11/15(火) 10:38 お礼
【31230】Re:キーボードの操作 Kein 05/11/15(火) 12:59 回答
【31237】Re:キーボードの操作 boku 05/11/15(火) 13:50 質問
【31239】Re:キーボードの操作 Kein 05/11/15(火) 14:02 回答
【31241】Re:キーボードの操作 boku 05/11/15(火) 14:47 お礼
【31256】Re:キーボードの操作 boku 05/11/15(火) 17:15 質問
【31257】Re:キーボードの操作 Kein 05/11/15(火) 17:33 発言
【31260】Re:キーボードの操作 boku 05/11/15(火) 18:08 お礼

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