动态生成“Worksheet_SelectionChange”事件

要动态生成Worksheet_SelectionChange事件，可以使用VBA代码向工作表添加事件处理程序。以下是一个示例代码：

Sub AddSelectionChangeEventHandler()
    Dim moduleCode As String
    Dim eventCode As String
    Dim eventProcName As String
    
    ' 生成事件处理程序的代码
    eventCode = "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" & vbCrLf
    eventCode = eventCode & "    ' 在这里编写事件处理程序的代码" & vbCrLf
    eventCode = eventCode & "End Sub"
    
    ' 生成唯一的事件处理程序名称
    eventProcName = "SelectionChangeEventHandler_" & CStr(ThisWorkbook.VBProject.VBComponents.Count + 1)
    
    ' 生成包含事件处理程序的模块代码
    moduleCode = "Option Explicit" & vbCrLf
    moduleCode = moduleCode & "Private WithEvents ws As Worksheet" & vbCrLf
    moduleCode = moduleCode & vbCrLf
    moduleCode = moduleCode & "Private Sub Workbook_Open()" & vbCrLf
    moduleCode = moduleCode & "    Set ws = ThisWorkbook.Worksheets(""Sheet1"")" & vbCrLf
    moduleCode = moduleCode & "End Sub" & vbCrLf
    moduleCode = moduleCode & vbCrLf
    moduleCode = moduleCode & "Private Sub ws_SelectionChange(ByVal Target As Range)" & vbCrLf
    moduleCode = moduleCode & "    " & eventProcName & " Target" & vbCrLf
    moduleCode = moduleCode & "End Sub" & vbCrLf
    moduleCode = moduleCode & vbCrLf
    moduleCode = moduleCode & eventCode
    
    ' 在工作簿的VBA项目中添加新的模块
    ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).CodeModule.AddFromString moduleCode
End Sub

使用上述代码，可以在工作簿的VBA项目中动态生成一个名为“Sheet1”的工作表的SelectionChange事件处理程序。可以根据需要修改工作表名称和事件处理程序中的代码。要运行此代码，可以将其添加到一个VBA模块中，并执行AddSelectionChangeEventHandler过程。执行后，将在VBA项目中生成新的代码模块，并向工作表添加SelectionChange事件处理程序。