VBE辅助快捷键

cgx5871

我想给VBE添加一些主流的编辑器的快捷键:
比如Ctrl+Q,  切换为注释
Ctrl+D,  克隆当前行
---------------
比如:

1. Private Sub Workbook_Activate() 'ThisWorkbook防止影响其他工作簿
   
2.     Application.OnKey "^{q}", "ToggleComment"
   
3. End Sub
   
4. Sub ToggleComment()
   
5.     MsgBox "有"
   
6. End Sub

复制代码

副作用是在Excel表格中,  也会激活.
如何使它只在VBE中有效.
或者判断当前激活的窗口是否为VBE,  而不是Excel工作表?

huang1314wei

如果要求只在VBE有效，最好的办法就是用VB或者C#  开发com加载项