| |
>”ユーザー定義型が定義されていません”というエラーがでます。
Declare Function から始まるAPIの宣言で、最後に As LongLong としているのが原因です。
LongLongは数値型ですが、これは64bti Officeの環境でしか使えません。
通常は32bitのOfficeを使っていると思われるので、LongLongではなくIntegerを使ってください。
−−−−−−−−−−−−−−−−
なお、それを修正したとしても、いくつか問題が発生することが予想されます。
１．始まるとキーボードの入力を受け付けなくなる
２．1回どれかのキーを押しただけで何十個分も先のセルの色が変わる
３．特定の条件で「アプリケーション定義またはオブジェクトのエラーです」が発生する。
一度実際にやってみて、どんな不具合なのか確認してみることをお勧めしますが、原因と対処法は次のようなものになります。
１．ループを回り続ける間、VBAがパソコンの処理全体を押さえてしまい、他のことができなくなる。
→DoEventsという処理があるので、使い方を調べてみてください。
２．ユーザーは1回だけキーを押したつもりでも、プログラムではループが一瞬で何十周もするので、押していた間にループした回数分だけそのキーが連続で押されたことになる。
→ループのたびに、直前のループでキーが押されていたかどうかをチェックし、押されていればそのループでは処理を行わないようにする。
具体的には、適当な変数（たとえばKeyOn）に、キーが押されたときの処理でTrueを代入し、どのキーも押されていなければFalseを代入する、という処理をとります。
３．変数i、jの値が0以下になった場合に発生します。このとき、Cells(i, j)で0行目や0列目のセルを指定することになるので、そんなものはないからとエラーになるのです。
iやjの値を変更するとき、変更後の結果が0以下になる場合は1にするといった対応が必要です。
以上、実際にやってみてわからないところがあれば、追加で質問してください。
|
|
亀マスター
- 19/5/17(金) 23:18 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
