Excel VBAでタイピングアプリ作成

タイピングアプリを作成していますが、途中で作業が止まっています。

仕様としては、Enterキーをトリガーとして処理が開始されます。

簡単な流れとして、
1 Excelキー押下
ストップウオッチ開始
テキスト入力
2 Excelキー押下
ストップウオッチ停止
テキストの値を取得し、判定
となる時の1と2の条件分岐がわかりません。
ストップウオッチの起動はsubプロシージャをcallして呼び出しています。

VBAはほとんど触ったことがなく、分かりにくいかと思いますが、ご教示いただきたいです。
また、簡単なもので良いので分岐の際のソースも教えて頂きたいです。

よろしくお願いします。

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2015/10/03 14:30

一例です。

シート名のタブを右クリック、コードの表示クリック
VBエディターが起動したら

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Range("D2").Value = Now
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$3" And Range("B2").Value = "" Then
Range("C2").Value = Now
Range("B2").Activate
End If
End Sub

を張り付けて閉じる
B2セルが、テキスト入力のセル
B2セルを空白にして、Enterキーを押す（つまり、B3セルが選択されたら）
C2に時刻を入れる

B2セルにテクストを入力して、Enterキーを押す（つまりB2セルの値が変更されたら）
D２セルに時刻を入れる
D2-C2が所要時間

目的に合う様でしたら
Callでストップウオッチを呼び出してみてください。