VBA。这段代码有什么不对？

Question

搜索找到的代码

Sub Workbook_Activate()
Application.OnKey "+^{RIGHT}", "YourMacroName"
End Sub

然而，当我尝试时，我得到了

如何创建程序？

我做了这个

Sub YourMacroName()
   Selection.Copy
   Sheets("V").Select
End Sub

Sub Workbook_Activate()
Application.OnKey "+^{RIGHT}", "YourMacroName"
End Sub

得到同样的错误

什么是正确的代码？或者傻瓜教程在哪里？找到了一些例子，但它们不起作用

我发现我的代码已修改为excel和excel-vba。但我不使用excel。使用金山办公室

将Application.OnKey "+^{RIGHT}", "YourMacroName"更改为.OnKey Key:="^+M", Procedure:="YourMacroName"

得到了

然后更改为OnKey Key:="^+M", Procedure:="YourMacroName"（已移除.）并收到错误Named argument not found。并选择Key:=

Answer 1

在“ThisWorkbook”中，您将运行由事件触发的代码。我建议您将其放在Workbook_Open而不是Workbook_Activate，因为您只需要存储一次快捷方式。

因此，在VB编辑器中，如果不是（CTRL + R），则打开“Project Explorer”并在“Microsoft Excel Objects”文件夹中找到“ThisWorkbook”。 这里的代码应该是这样的

Private Sub Workbook_Open()

    ' CTRL + SHIFT + RIGHT
    Application.OnKey "+^{RIGHT}", "YourMacroName"

End Sub

因为，在模块内部（在项目浏览器中，右键单击文件夹“模块”并选择插入＆gt;模块），放置宏“YourMacroName”

Sub YourMacroName()
   Selection.Copy
   Sheets("V").Select
End Sub

哦，你应该重命名你的程序“YourMacroName”以获得更明显的东西......