excel - 将热键分配给为 Excel VBA 创建的表单上的按钮

Question

我已经为 Excel 创建了一个宏，它将弹出包含按钮和文本字段的表单。有没有办法为按钮分配“ctrl+Enter”或“F12”等热键？无论焦点位于哪个字段或按钮，热键都应该起作用。

(到目前为止，我已经成功创建buttons/fields_Keydowns来检查vbKeyF12的MSForms.ReturnInteger，但我必须对每个字段和按钮执行此操作，有没有更简单的方法？)

假设，表单上有 2 个内容，按钮“CommandButton1”和文本字段“TextBox1”

按钮代码:

Private Sub CommandButton1_click()
ActiveCell.FormulaR1C1 = UserForm1.TextBox1.Text 
End Sub

当我添加更多字段和按钮时，热键将很有用...

另外，如何设置“Escape”按钮来关闭/隐藏表单？

Answer 1

要设置“Escape”键来激活关闭/隐藏表单的按钮:首先，您需要一个按钮，其 Click 事件会隐藏您的表单。然后将该按钮的“取消”属性设置为 True。

显示表单后，按 Esc 键，表单将关闭。

对于“热键”，将按钮的 Accelerator 属性设置为字母，然后当表单打开时，如果按 Alt+[您的字母]，将触发该按钮的 Click 事件。