在另一张表中调用并运行一个代码

在工作表1上有一个button，它将运行代码创build工作表，基本上程序创build一个新工作表，将工作表2上的代码复制到这个新工作表，在这个新工作表上运行代码，在工作表上显示最终结果1并删除这张新表。 但是我有问题来运行代码，没有运行代码。

新工作表的名称为Calcs。

Private Sub CommandButton2_Click() Dim MySheet As Worksheet Set MySheet = ThisWorkbook.Sheets("Calcs") Call MySheet.Mycode End Sub 

Answer 1

当你调用它时，Mysheet不包含任何代码。 如果您要删除新工作表，那么将代码存储在新工作表中确实没有任何用处。 为什么不把代码作为公共模块存储？