VBA中怎样才能按下“Esc”键就退出程序？

fengxue007

VBA怎么办才能在程序运行时按下“Esc”键就退出程序？请大侠帮忙！谢谢

robbin840311

LZ请使用以下代码：

Private Const VK_ESCAPE = &H1B      ' 代表Esc键
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

' 功能：判断用户是否按下某一个键
Private Function CheckKey(lngKey As Long) As Boolean
  If GetAsyncKeyState(lngKey) Then
    CheckKey = True
  Else
    CheckKey = False
  End If
End Function

想要在过程中的那个位置按"ESC"退出程序，在相应位置加入如下代码：

If CheckKey(VK_ESCAPE) = True Then
  End  '退出程序
End If

tl319

学习了

fengxue007

谢谢！已解决