VBAのキー入力待ちでCPU負荷大

質問

VBAでキー入力待ちで動作をするプログラムを組んでいますが、
プログラムの組み方が悪くCPUの負荷が高くなり、CPUの温度が
かなり上がってしまいます。
いろいろ調べたのですがわかりません。
負荷を下げるプログラムの書き方を教えていただけないでしょうか。
Excel2010です。
よろしくお願いします。

Sub ボタン1_Click()
Dim i, j, k, Maxrow, Colst, colen, nCnt As Integer
Do Until GetAsyncKeyState(27)
If GetAsyncKeyState(75) <> 0 Then
　　　　　　　　　　・
　　　　　　　　　　・
　　　　　　　「モジュールプログラム1」
　　　　　　　　　　・
　　　　　　　　　　・
Do Until GetAsyncKeyState(75) = 0
Loop
ElseIf GetAsyncKeyState(77) <> 0 Then
　　　　　　　　　　・
　　　　　　　　　　・
　　　　　　　「モジュールプログラム2」
　　　　　　　　　　・
　　　　　　　　　　・
Do Until GetAsyncKeyState(77) = 0
Loop
ElseIf GetAsyncKeyState(37) <> 0 Then
If ActiveCell.Column > 1 Then
ActiveCell.Offset(0, -1).Activate
End If
ElseIf GetAsyncKeyState(38) <> 0 Then
If ActiveCell.Row > 1 Then
ActiveCell.Offset(-1, 0).Activate
End If
ElseIf GetAsyncKeyState(39) <> 0 Then
ActiveCell.Offset(0, 1).Activate
ElseIf GetAsyncKeyState(40) <> 0 Then
ActiveCell.Offset(1, 0).Activate
End If
For k = 1 To 300: Next k
Loop
Sheets("Main").Activate
End Sub

回答No.2

mitarashi · ベストアンサー

#1です。夕食前にそさくさと投稿しましたので．．．
少々古い記事ですが、参考URLがご参考になるかと。
今回の事案に当てはめると、
「人間様が、１msecキーを押して戻すなんて事は考え難いので、CPUの能力一杯にブン回す必要はなく、10msecずつ途中でお休みしても問題なく検知できるでしょう」という事になるかと思います。非常に素早い人にも対応したければ、数msecにしても十分効果はある様です。

参考URL：

http://www.gizcollabo.jp/vbtomo/log/archive/vbqanda_14364_0.html

お礼

そうなんですね。
それだけでそんなに変わるとは知りませんでした。
その後いろいろ調べてみたのですが今回の私のプログラムの場合
GetAsyncKeyStateではなくてもOnkeyで行けるのかもしれません。
ほかにもキー入力待ちのソフトを使っているので両者の特徴を見て
mitarashiさんのアドバイスを取り入れてみます。
ありがとうございました。

回答No.1

mitarashi

別の質問のために書いてみたのですが、下記Sleep10を入れないとCPUの使用率は100%になりますが、入れると1～2%程度におさまります。ご参考まで。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

Sub test()
Do
Range("A1").Value = Range("A1").Value + 1
If GetAsyncKeyState(32) Then Exit Do
Sleep 10
DoEvents
Loop
End Sub