如何复制工作簿中一个工作表/选项卡中使用的代码以在同一工作簿中的另一个工作表/选项卡中创建报告

Question

假设有一个使用宏在工作簿中的工作表中创建的报告。 我想在另一个工作表（选项卡）的同一工作簿中创建另一个报表，并使用VBA中完全相同的代码来创建已经创建的报表。 如何复制这些代码并使它们在另一张纸上工作以创建类似的报告？

Answer 1

工作表中的任何代码本身都应使用Me来引用自身-这样，在复制/复制时它将起作用

任何其他代码都应采用工作表作为参数或模块级对象：

Option Explicit

Sub CreateReport(TargetSheet As Worksheet)
    TargetSheet.Cells(1,1).Value = "Hello"
End Sub

要么

Option Explicit
Public TargetSheet AS Worksheet

Sub CreateReport()
    If TargetSheet Is Nothing Then Exit Sub 'In case the object has not been set
    TargetSheet.Cells(1,1).Value = "Hello"
End Sub

然后，您可以复制一个“主”模板表，并运行宏以对其进行定位