|
いつも参考にさせていただいてます。
使用環境は 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を閉じて、次の日改めて起動するとまた不具合が
生じます。
上記のような症状がなく、普通に動く時もあるんですが、
一定のパターンもなく、安定的に動いてくれません。
同じような症状が出た方おられませんか?
解決策をご存知の方おられましたら助けていただけたらと
思います。
よろしくお願いします。
|
|