VBA。这段代码有什么不正确的？答案

【问题标题】：VBA. What is incorrect in this code?VBA。这段代码有什么不正确的？
【发布时间】：2013-12-15 03:20:19
【问题描述】：

搜索找到这样的代码

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:=

【问题讨论】：

【解决方案1】：

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

因此，在 VB 编辑器中，如果不是 (CTRL+R)，请打开“项目资源管理器”并在“Microsoft Excel 对象”文件夹中找到“ThisWorkbook”。这里的代码应该是这样的

Private Sub Workbook_Open()

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

End Sub

因为，在模块内（在项目资源管理器中，右键单击文件夹“模块”并选择插入 > 模块），放入宏“YourMacroName”

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

哦，您可能应该将您的过程重命名为“YourMacroName”，以便更明显......

【讨论】：