Excel2000 VBA Application Wait と キー入力の実験

Excel2000 VBA  Application Wait と　キー入力の実験

参考にしたサイト　ttp://www.happy2-island.com/excelsmile/smile04/capter00301.shtml

モジュールの一行目に　Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vkey As Long) As Long　を書く

Sub TEST_WAIT()
'５－１カウントダウンし、１秒ごとに秒数を表示
'遊び方　スタートが表示されたら、息を止める
'苦しくなったらスペースキーを押して何秒息を止められた調べる
'ttp://www.happy2-island.com/excelsmile/smile04/capter00301.shtml
Dim cont, i As Long

For i = 5 To 1 Step -1
    Range("A1") = i
    '1秒待つ
    Application.Wait Now + TimeValue("00:00:1")
Next i
    Range("A1") = "スタート!"
    Beep
'設定
    Range("A2") = "経過時間"

'spaceキーが押されるまで、永久ループ
'停止はESCを押してください
Do Until False
    'spaceキーが押されたら
    If GetAsyncKeyState(32) <> 0 Then Range("A3") = cont & "秒 です。": Exit Sub
    Range("A3") = cont + 1 & "秒"
    cont = cont + 1
    '１秒待つ
    Application.Wait Now + TimeValue("00:00:1")
Loop


End Sub

 

タグ：Excel2000 VBA