Question

我目前创建了一个宏，它接收大量数据（每周从数据库中提取）并将其显示在多个不同的数据透视表中。我还在工作簿的开头列出了一个摘要页面，列出了不同的客户和机器名称。目前我有一个宏编写，以便我可以点击其中一个客户名称，并通过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

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

我的问题在于下周重新生成报告时：是否可以让生成详细表格的宏和夏季将SelectionChange代码添加到新摘要中？谢谢！

Answer 1

模板似乎是此

的最佳选择

谢谢！

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

1 个答案: