Question

我在工作表中建了个控件按扭，功能是用鼠标单击它执行相应的操作，我现在想把鼠标单击改为在键盘上按键让

我在工作表中建了个控件按扭，功能是用鼠标单击它执行相应的操作，我现在想把鼠标单击改为在键盘上按键让之执行相应的操作，例用用F10键，怎样写vba代码？

Answer 1

编辑“开发工具”－“宏”－“选项”，给控件按钮执行的过程指定热键，就行了。注：F10可能不行，热键默认组合为ctrl+字符。
当然你也可以在thiswork_open事件里添加热键
Application.OnKey "{F10}", "msg"
记得在beforeclose事件里恢复环境：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey
End Sub

追问

你的意思是不是先在

发错

你的意思是不是先在thiswork_open事件中添加F10热键，然后再在宏一选项里指定给相应的控件按扭？，我是vba菜鸟，希望给我说得详细点，先谢了

还有你上面“msg”，“msg”怎么理解

追答

乱了，哥们，这是两种方法：
1、编辑“开发工具”－“宏”－“选项”，给控件按钮执行的过程指定热键，就行了。注：F10可能不行，热键默认组合为ctrl+字符。这是第一种方法

余下的是第二种方法：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey 0
End Sub

Private Sub Workbook_Open()
Application.OnKey "{F10}", "msg"
End Sub
进入VBA环境加到thiswork对象下面。不知道，如何加？得，慢慢学。不采纳也罢，不要问我，不好意思，没耐心。

追问

没办法，等了一天，都没有别的人给我回答，还是你行。你就耐心一点再帮次忙，你上面的答案别的我都理解也能搞定，但是不知道“msg”是指什么

追答

msg是宏名，你换成按钮click事件里调用的过程名称，或者直接改成“按钮名称_click”就可以了。注意：按钮名称，也要改成实际的按钮名称