excel - 复制文件时将宏重新分配给命令按钮

Question

当源工作表复制到新工作簿中的目标工作表时，我在 XL 中遇到有关重新定义单选按钮的宏分配的问题。

当我单击“目标”工作表中的单选按钮时，它会尝试打开“源”工作簿，而不是运行分配给该按钮的宏。

我已经检查过，目标工作簿确实具有与原始源工作簿相同的宏副本。但是，通过右键单击单选按钮上的/分配宏，我发现路径仍然指向源工作簿/工作表。

我在从源工作表运行以下代码时尝试了它，但它不起作用。

代码:

wbkDESTINATION.Sheets("1-Start").Select
ActiveSheet.Shapes("Option Button 1").Select
Selection.OnAction = "Sheet1.WEEKLY"

我非常感谢您的建议，如何修改最后一个 Selection.OnAction 代码，以便 XL 知道从“目标”工作表中选择它，而不是跳回原始源工作簿。

谢谢

Answer 1

哦!刚刚意识到您正在使用表单控件。您可以通过显式引用工作簿来确保调用所需的过程，如下所示:

wbkDESTINATION.Sheets("1-Start").Select
ActiveSheet.Shapes("Option Button 1").Select
Selection.OnAction = ThisWorkbook.name & "!Sheet1.WEEKLY"

我认为虽然控件出现在 Shapes 集合中，但它们实际上是 OLE 对象，在工作表代码模块中具有自己的 _click 事件，并且不能通过 onaction 为它们分配替代过程>。不过，可以预见的是，该帮助对于这一重要区别是模糊的。

我自己在测试过程中证实了这一点；控件始终引用父工作表中的 _click 事件。你如何复制工作表？我尝试使用用户界面，并通过标准和工作表代码模块以编程方式进行操作，每次都得到相同的结果。