모듈을 통해 워크 시트에 매크로 코드 추가

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

템플릿이 가장 적합한 옵션 인 것 같습니다.

고마워요!