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

Question

我在工作表1上有一个按钮，它将运行代码代码创建一个工作表，基本上程序创建一个新工作表，将工作表2上的代码复制到这个新工作表，在这个新工作表上运行代码，显示最终工作表结果在工作表1上删除此新工作表。但是我遇到运行代码的问题，就是没有运行代码。

新表的名称为Calcs。

Private Sub CommandButton2_Click()

Dim MySheet As Worksheet
Set MySheet = ThisWorkbook.Sheets("Calcs")

Call MySheet.Mycode

End Sub

Answer 1

当您调用它时，Mysheet不包含任何代码。 如果要删除新工作表，则无意将代码存储在新工作表中。为什么不将代码存储为模块中的公共代码？