如何用代码给宏1和宏2分别设置快捷键Ctrl+1和Alt+1

qihang15

Sub 宏1()
Cells(1, 2) = 5
End Sub

Sub 宏2()
Cells(1, 3) = 15
End Sub
如何用代码给宏1和宏2分别设置快捷键Ctrl+1和Alt+2
请高手指点，万分感谢！

420045140

开发工具-宏-选项。不过只能设置字母键，我一般就是qw

phsu

用Application.OnKey設定。

qihang15

phsu 发表于 2018-6-10 08:42
用Application.OnKey設定。

好的，谢谢，但是有的不起作用？

ge752595

沉了吗，不知道难不难

phsu

由於Alt鍵是被預設用來關聯選項卡的按鍵，建議將快速鍵Alt+2改成Ctrl+2。
執行SetUpKey即可用Ctrl+1及Ctrl+2分別在B1及C1寫入數字。

Sub 宏1()
        Cells(1, 2) = 5
End Sub

Sub 宏2()
        Cells(1, 3) = 15
End Sub

Sub SetUpKey()
        With Application
                .OnKey "^1", "宏1"
                .OnKey "^2", "宏2"
        End With
End Sub

qihang15

phsu 发表于 2019-3-14 09:00
由於Alt鍵是被預設用來關聯選項卡的按鍵，建議將快速鍵Alt+2改成Ctrl+2。
執行SetUpKey即可用Ctrl+1及Ctrl ...

非常感谢！