Excel 2016中Application.Onkey无法设置Alt+0/Alt+Shift+0触发VBA宏求助

你遇到的问题其实挺典型的——Alt+0和Alt+Shift+0属于Excel内置的Ribbon界面级快捷键，这类系统原生绑定的快捷键，Application.OnKey是没法直接覆盖的，因为OnKey主要针对的是普通单元格操作类的快捷键，而非Ribbon的全局控制快捷键。不过有两种靠谱的解决办法：

方法一：用RibbonX自定义UI彻底替换默认快捷键 #

这是最彻底的方案，通过修改Excel的Ribbon底层配置来接管这些快捷键：

1. 打开你的Excel文件，按下Alt+F11进入VBA编辑器
2. 右键左侧的工作簿对象，选插入→模块，先写好你的自定义子程序：

   Sub MySub()
       MsgBox "Alt+0快捷键已触发自定义操作！"
       ' 这里替换成你的业务逻辑代码
   End Sub
   

3. 按下Ctrl+G打开立即窗口，输入以下代码并回车，生成自定义UI配置：

   ThisWorkbook.CustomUI = "<customUI xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
       "<commands>" & _
           "<command idMso=""ViewRibbonMinimize"" enabled=""false"" />" & _
           "<command idMso=""ViewRibbonMinimize"" onAction=""MySub"" />" & _
       "</commands>" & _
   "</customUI>"
   

   这段代码先禁用了默认的"临时隐藏功能区"命令，再把它的快捷键绑定到你的MySub上。
4. 保存文件为启用宏的工作簿(.xlsm)，重启Excel后测试Alt+0，就能触发你的自定义操作了。

方法二：改用未被占用的快捷键组合 #

如果不想折腾RibbonX，最简单的方式是换一个Excel没有内置绑定的快捷键，比如Alt+Ctrl+0，这个组合默认无功能，Application.OnKey可以直接生效：

' 放到Workbook_Open事件里，确保每次打开文件都自动生效
Private Sub Workbook_Open()
    Application.OnKey "%^0", "MySub" ' %代表Alt，^代表Ctrl，0是数字键0
End Sub

' 你的自定义子程序
Sub MySub()
    MsgBox "Alt+Ctrl+0快捷键已触发！"
End Sub

小提示 #

• Application.OnKey的设置会在Excel关闭后失效，所以一定要把初始化代码放在Workbook_Open事件里，或者加载宏中。
• 测试快捷键时，确保没处于单元格编辑状态（比如不要在单元格里输入内容时按快捷键），否则可能无法触发。

内容的提问来源于stack exchange，提问作者Relaxed1