通过模块将macros代码添加到工作表

我目前有一个macros，它需要大量的数据（每周从数据库中提取）并将其显示在多个不同的数据透视表中。 在工作簿开始处列出不同的客户和机器名称时，我也有一个摘要页面。 目前，我写了一个macros，以便我可以单击其中一个客户名称，并通过Worksheet_SelectionChange事件打开与该客户对应的工作表。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If SheetExists(Right(Replace(Replace(ActiveCell.Value, "/", "-"), "'", ""), 31)) Then ActiveWorkbook.Sheets(Right(Replace(Replace(ActiveCell.Value, "/", "-"), "'", ""), 31)).Activate End If End Sub Function SheetExists(SheetName As String, Optional wb As Excel.Workbook) Dim s As Excel.Worksheet If wb Is Nothing Then Set wb = ThisWorkbook On Error Resume Next Set s = wb.Sheets(SheetName) On Error GoTo 0 SheetExists = Not s Is Nothing End Function 

不幸的是，由于工作的性质，我不能分享太多的代码本身。

我的问题在于下周重新生成报告时：是否可以让生成详细表单的macros以及汇总将SelectionChange代码添加到新汇总中？ 谢谢！

Answer 1

模板似乎是最好的select

谢谢！