Question

EXCEL VBA 的KEYDOWN事件求助

VBA中有无象批处理一样的 按任意键继续功能
WScript.Sleep 500
a.SendKeys "{TAB}"
WScript.Sleep 500
这里加一段用KEYDOWN按任意键继续的语句
a.SendKeys "{TAB}"
.....

Answer 1

可以插入以个文本框，加入下面的语句：

先激活文本框，用来接收按键，文字显示“按任意键继续……”
这时按任意键，都会触发文本框的 KEYDOWN 事件

Answer 2

在VBA里你可以用弹出对话框来实现， MsgBox "按任意键继续......"

追问

谢谢，这个我已经试过
现在想看看KEYDOWN的效果

Answer 3

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Answer 4

stop