vba 快捷键触发

EXCEL里面的F9已经被占用了
只能用到CTRL+XX或者SHIFT+CTRL+XX组合了
*** 作方法是：
先做一个宏
宏里面做你要实现的功能
再按ALT+
F11
打开宏界面
选择这个宏，点选项－＞在快捷键里面输入你要做的组合快捷键

没有直接的解决办法
换一种思路吧
在关闭窗体事件加入:
ApplicationScreenUpdating = False'取消Excel刷新
Sheet1Range("A65536")Select'关闭窗体后,自动选择另一个固定单元格
ApplicationScreenUpdating = True'恢复Excel刷新
然后在Worksheet_SelectionChange事件中,加入
if TargetAddress(0, 0)="A65536" then exit sub '如果是自动选择的单元格就退出事件

鼠标右键点击界面下方的工作表名，选“查看代码”，把下方代码复制到打开的代码而即可。

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:C10")) Is Nothing Then

MsgBox "指定区域已更改！"

End If

End Sub

假设要判断的值在A1，则代码为：
Dim oldval
Private Sub Worksheet_Activate()
oldval = [a1]
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If oldval <> [a1] Then
oldval = [a1]
'在此输入 *** 作代码
End If
End Sub

---