VBAの取得量キーを押した時間

Question

私は、ユーザーがキーを押した時間（例えばSpace）を測定するVBAを使用してMakroを実行します。 ユーザーがキーを押すのを止めると、時間が保存され、キーが再び押された時刻に追加されます。

VBAの新機能で、構文に問題があります。だから、私はkeyUPとkeyDown関数hereを見つけましたが、それは間違った方法でそれを使用しているようです。これまで

マイコード：コントロールにフォーカスがある場合

Sub KeyTime() 
Time_old = 0 
Range("A1").Value = Time_old 
If Form_KeyDown(vbKeySpace, 0) Then 
    Start_time = Timer 
    If Form_KeyUp(vbKeySpace, 0) Then 
     End_time = Timer 
     Time = End_time - Start_time + Time_old 
     Time_old = Time 
     Range("A1").Value = Time_old 
    End If 
End If 
End Sub 

Answer 1

ユーザーフォームのキーイベントは発生しません。キーの押下を追跡するには、グローバル変数またはStaticメソッドを使用する必要があります。

ここでは、すべての標準的なキーを押すサブルーチン内で静的配列変数を使用します。

Sub CountKeyPresses(KeyAscii As MSForms.ReturnInteger) 
    Static KeyCounts(255) As Long 
    If KeyAscii <= 255 Then 
     KeyCounts(KeyAscii) = KeyCounts(KeyAscii) + 1 
     Me.Caption = "Key(" & Chr(KeyAscii) & ") was pressed " & KeyCounts(KeyAscii) & " times" 
    End If 
End Sub 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    CountKeyPresses KeyAscii 
End Sub 

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    CountKeyPresses KeyAscii 
End Sub 

求めて申し訳ありません