excel工作表/工作簿事件可以封装吗

秀才遇到兵

如题  excel工作表/工作簿事件可以封装吗？？？




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("b3:q22").Interior.ColorIndex = xlNone  '清除单元格里原有底纹颜色
    '当选中的单元格个数大于1时，重新给Target赋值
    If Target.Count > 1 Then
        Set Target = Target.Cells(1)
    End If
    '当选中单元格不包含指定区域的单元格时，退出程序
    If Application.Intersect(Target, Range("b3:q22")) Is Nothing Then
        Exit Sub
    End If
    Dim rng As Range '定义一个range型变量
    '遍历单元格
    For Each rng In Range("b3:q22")
        If rng.Value = Target.Value Then
            rng.Interior.ColorIndex = 39
        End If
    Next
End Sub