vba里做了一个按钮，按它相当于按F9，请问怎样做？

来源：百度知道 编辑：UC知道 时间：2024/05/08 01:48:27
同理，我想自己做一个软键盘，请问怎样把命令按钮与实际键盘上的每个钮联系起来。
初学者，请详细说明。

1.假设你用的按钮都是 Excel内窗体工具栏上的按钮，首先设置一下按钮的宏。

Sub 设置宏()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoFormControl Then
Shp.Name = Shp.DrawingObject.Caption
Shp.OnAction = "设置键"
End If
Next
End Sub
Sub 设置键()
Dim Gkey As String
Gkey = "{" & Application.Caller & "}"
Application.SendKeys Gkey
End Sub
就这个单个问题来说

F1-F12 还有Esc/Enter等键是特殊键，需要用{}括起来
A-Z，0-9直接写。具体可以查看一下SendKeys帮助

另外用数字也可以代替，例如 {120}相当于{F9}

可以看看这个帖子http://zhidao.baidu.com/question/49668418.html
用值可以代替 描述,

2 如果要设置所有的键，首先建个对照表，假设SHeet1的A：B

鼠标左键 1
鼠标右键 2
CANCEL 3
鼠标中键 4
BACKSPACE 8
TAB 9
CLEAR 12
ENTER 13
SHIFT 16
CTRL 17
菜单 18
PAUSE 19
CAPS LOCK 20