Application.Onkey设定快捷键怎么直接运行

fireicefan

各位大侠，
学着用vba来设定快捷键，如下，是用"Shift+Ctrl+K"来进行相应的一些操作。
但是设定好了之后，每次新打开档案，按此快捷键都不起作用；需要重新进入VBE环境，选到设定Application.Onkey的那个Sub，再点“运行”一次之后，再按快捷键才能作用。

请各位大侠指点：怎么样才能每次新打开档案的时候，设定的快捷键都能直接运行。

key.zip (11.43 KB, 下载次数: 69)

2014-7-29 17:08 上传

点击文件名下载附件

战战如疯

Private Sub Workbook_Open()

End Sub
代码放了open事件中

战战如疯

ab.rar (9.67 KB, 下载次数: 402)

2014-7-29 17:16 上传

点击文件名下载附件

                    

fireicefan

战战如疯 发表于 2014-7-29 17:17

收到，可以了。原来代码是放到ThisWorkBook中。非常感谢。

jsjcjsjc

战战如疯 发表于 2014-7-29 17:17

文件损坏了好像~~

1. Sub key()
   
2. Application.OnKey "+^q", "er"
   
3. End Sub
   
4. Sub er()
   
5. Selection.EntireRow.Select
   
6. End Sub

复制代码

想问一下这个代码怎么用快捷键运行吗？很不解啊

战战如疯

jsjcjsjc 发表于 2014-11-30 13:34
文件损坏了好像~~想问一下这个代码怎么用快捷键运行吗？很不解啊

er放了模块中，先运行key()，之后就可以ctrl+shift+q直接运行er

jsjcjsjc

战战如疯 发表于 2014-12-1 10:32
er放了模块中，先运行key()，之后就可以ctrl+shift+q直接运行er

不好意思 er放在模块里面可以理解，但是key放哪呢？
谢谢了

gold_bless

学习了，非常感谢，正不知道怎么做！

qofgxnm7

战战如疯 发表于 2014-7-29 17:14
Private Sub Workbook_Open()

End Sub

厉害厉害!!!!!!!!!!

fireicefan

战战如疯 发表于 2014-7-29 17:14
Private Sub Workbook_Open()

End Sub

今天查找一个功能实现方法（使表格中的图片具胡点击放大和还原效果），后来发现这篇：
http://www.360doc.com/content/15/0216/08/21373269_448906269.shtml

然后晚上无意再进入excelhome又点开了之前的帖子，发现你的回复。因为都是这个ID，所以请问是同一位吗？只是可惜上面那个链接里面提到的来源网址打不开了。