|
ichinoseさん、ありがとうございました。
こんな感じでできました。
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Sub thankyou()
Range("a1:a13").Interior.ColorIndex = xlColorIndexNone
ii = 1
Do Until ii = 10
i = 1
Do Until i = 14
Cells(i, 1).Interior.ColorIndex = 3
If i > 1 Then
Cells(i - 1, 1).Interior.ColorIndex = xlColorIndexNone
End If
If GetAsyncKeyState(16) <> 0 Then
Cells(1, 3) = Cells(i, 1)
Exit Sub
End If
Application.Wait Now + TimeValue("00:00:01")
i = i + 1
Loop
Cells(i - 1, 1).Interior.ColorIndex = xlColorIndexNone
Loop
End Sub
参考になりました。感謝です!
|
|