Onkey {RIGHT}

Question

私は{DOWN}を押すまで基本的に以下のアクションをループしたいが、プライベートサブは100％正しいとは思われないので、コードは永遠にループする。

Public pressdown As Boolean 

Sub DemoOnKey() 
    Application.OnKey "{RIGHT}", "moveright" 
    Application.OnKey "{LEFT}", "moveleft" 
    Application.OnKey "{DOWN}", "movedown" 
    Application.OnKey "{UP}", "moveup" 

End Sub 

Sub moveright() 
    Do Until pressdown  
    Selection.Copy Destination:=Selection.Offset(0, 1) 
    Selection.Offset(0, 1).Select 
    Selection.Offset(0, -1).ClearContents 

    DoEvents 
    Loop 

    If pressdown = True Then 
    Call movedown 'Calls similar macro to moveright, but to movedown, hehe 
    End If  
End Sub 

Private Sub Form_KeyPress(Key As Integer) 
    Const down = "{DOWN}" 
    If Application.OnKey = down Then pressdown = True 
End Sub 

Answer 1

任意の場所にForm_KeyPress(Key As Integer)を含めることはできません。これは、ユーザーフォームでなければならないイベントハンドラです。それがあった場合は、If Application.OnKey = downを実行することができないため、コンパイル時にエラーが発生します。このサブは決して入力されず、したがって決してコンパイルされないので、あなたはそれを離れています。

あなたのアプローチは間違っています。
スネークを設定方向に動かし、この方向を変更する4つのキーハンドラを持つループがあります。

また、ダイレクトループはExcelのキー操作で問題を引き起こすため、適切な方法ではありません。