如何復制工作簿中一個工作表/選項卡中使用的代碼以在同一工作簿中的另一個工作表/選項卡中創建報告

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

然后，您可以復制一個“主”模板表，並運行宏以對其進行定位