通過模塊將宏代碼添加到工作表中

我目前有一個創建的宏，它需要大量數據（每週從數據庫中提取）並將其顯示在多個不同的數據透視表中。在工作簿開始處列出不同的客戶和機器名稱時，我也有一個摘要頁面。目前，我編寫了一個宏，以便我可以單擊其中一個客戶名稱，並通過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代碼添加到新彙總中？謝謝！

來源

2016-06-28 TamFire

使用外接程序執行此操作或模板 –

數據的外觀如何？你能顯示你的宏的代碼嗎？ –

更新了事件代碼，不幸的是我不能顯示非常多的生成宏 – TamFire

模板似乎是這個最好的選擇

謝謝！

來源

2016-06-28 15:23:13 TamFire

通過模塊將宏代碼添加到工作表中

回答

相關問題