| |
この手のプログラムを組むときは、次のようにループ処理で実現します。
Do
'押しているキーを取得
'キーコードに応じた動作
'ループを抜けるための処理
Loop
現在提示されたコードで問題なのは、
１．ループしていないのでプログラム中で1回キーコードを判定したら終了する
２．そもそも入力状況が取得できていない（？）
入力状況の取得方法はいくつかありますが、Windows APIを使うのがわかりやすいと思います。
ht tps://excel-excel.com/tips/vba_305.html
なお、注意点として、ループ中にループを抜けるためのコードを入れておいてください。でないと、無限ループで終わらなくなります。
ループを抜ける方法は何でもいいですが、エスケープキーが押されたら抜けるというのがよく見られます。
If 【エスケープキーが押されている】 Then Exit Do
という感じにすればいいでしょう。
あと、VBEの設定で「変数の宣言を強制する」にチェックを入れておいた方がいいですよ。
これを入れておくと、コード中に「Option Explicit」が自動で入り、未定義の変数を使用するとエラーが発生してわかるようになりますが、変数を強制しない状態はバグの温床になります。
実際、
Select Case keycode
の「keycode」って、どこにも宣言してませんよね？
|
|
亀マスター
- 19/5/16(木) 19:35 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
