用VBA如何判断是否按下了键盘中的F6键 多谢！

qihang15

用VBA如何判断是否按下了键盘中的某个键 比如，红色字体部分：判断如果按了F6，弹出对话框，多谢！ Sub 判断按了某个键() Do DoEvents 判断如果按了F6，弹出对话框 MsgBox "结束do循环" Exit Do '满族条件退出do 循环 End If Loop MsgBox "向下执行" End Sub

山菊花

1. Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
   
2. Sub 判断按了某个键()
   
3.     Dim keys(0 To 255) As Byte
   
4.     Do
   
5.         GetKeyboardState keys(0)
   
6.         DoEvents
   
7.         If keys(117) > 127 Then '判断如果按了F6，弹出对话框
   
8.             MsgBox "结束do循环"
   
9.             Exit Do '满族条件退出do 循环
   
10.         End If
    
11.     Loop
    
12.     MsgBox "向下执行"
    
13. End Sub

复制代码

键值表：https://blog.csdn.net/tonykk2008/article/details/8264967

qihang15

山菊花 发表于 2019-6-6 14:56
键值表：https://blog.csdn.net/tonykk2008/article/details/8264967

感谢版主帮助，解决了大问题，辛苦您了，感谢！