在编写VBA代码时，如何指定快捷键！

ycb20010823

比如 我想在A1:A10中连接输入1,2,3,4,5,6,7,8,9,10，能不能把下面的代码，做个快捷键呢（比如ctrl + y)就可以自动运行呢？

Sub 我的程序()
' 快捷键: Ctrl+y
  Dim i%
  For i = 1 To 10
    Cells(i, 1) = i
  Next i
End Sub

用录制过的宏，填加快捷键可以，能不能在编写代码的时候，自己指定快捷键？请高手帮助一下！！

 

兰色幻想

在编写VBA代码时，如何指定快捷键！

ycb20010823

兰版你好，谢谢你！！

这个方法我知道，我只是想用代码来指定？

Application.MacroOptions macro:="我的程序", hasshortcutkey:=True, ShortcutKey:="ctrl + y"

这样怎么不可以呢？

[此贴子已经被作者于2008-7-10 13:26:05编辑过]

兰色幻想

Application.OnKey "^q", "宏名"

ycb20010823

Sub mydata()

Application.OnKey "^y", "mydata"

Dim i As Integer
For i = 1 To 10
    Cells(i, 1) = i
Next i
End Sub

这样不运行啊，兰版？当我在工作中按ctrl + y时，没有任何反应？？

兰色幻想

不要给他自已指定快捷键，用其他程序指定

Sub a()
[a1] = 100
Call b
End Sub

Sub b()
Application.OnKey "^q", "a"
End Sub

[此贴子已经被作者于2008-7-10 13:41:48编辑过]

ycb20010823

在编写VBA代码时，如何指定快捷键！

这样之后，在工作表中按ctrl+q，运行了，谢谢兰版，对我的帮助！！！

[此贴子已经被作者于2008-7-10 13:51:30编辑过]

兰色幻想

你有没有运行a程序呢?

ycb20010823

不过我还是有一个问题，就是我写的这个代码，怎么不可以指定？？

Application.MacroOptions macro:="我的程序", hasshortcutkey:=True, ShortcutKey:="ctrl + y"

这里的Application.MacroOptions 不是指定快捷键的语句吗？？？

ycb20010823

有没有知道application.macrooptions的用法啊，这个不是对应于“宏选项”对话框中的选项吗，那么我在这里如何象在选项中指定快捷键呢？