Question

VBA如何让按钮指定按键

我现在在vba中加了一个按键，想把这个按键指定一个键盘上的按键例如
在我在窗体中加了一个按键command1想把他指定一个回车键或者其他按键怎么办。

Answer 1

有【宏按钮　Button 1】 和　【控件窗体按钮 CommandButton1】 两种。

【宏按钮】
图形类别名：msoFormControl
图形类别：Type = 8
默认名称：Button 1
更改按钮名称语句： .AlternativeText = "按钮新名称"

宏调用属性： OnAction "宏名"
宏指定方法： 按钮右键菜单中指定宏
可以任意指定模块或代码页中已有的宏名

【控件按钮】
图形类别名：msoOLEControlObject
图形类别：Type = 12
默认名称：CommandButton1
按钮名称：默认=CommandButton1
更改按钮名称语句： CommandButton1.Caption = "按钮新名称"

宏调用属性： OnAction "" (此属性不用)
宏指定方法：
在代码页的
Private Sub CommandButton1_Click()

End Sub
中写入或编辑代码、
无法在控件菜单中指定模块中已有的宏

但你当然可以这么来：
Private Sub CommandButton1_Click()
Call 宏名
End Sub

Answer 2

在代码中使用sendkeys来模拟按键.
VB代码:
Dim sdstr As System.WinForms.SendKeys
sdstr.Send("{ENTER}")
VBA:(复制textbox1内容到textbox2中)
Me.TextBox1.SetFocus
SendKeys "^A", True
SendKeys "^C", True
Me.TextBox2.SetFocus
SendKeys "^V", True