excel - 双击事件 - 多个范围

Question

我正在为我的双击事件寻找在多个范围内编码的最佳方式。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A3:A25")) Is Nothing Then
    'code
End If
End Sub

如上所示，当点击 A3 到 A25 时，会发生双击事件。但我还想在整个工作表中包含其他部分来引发事件。A29:A40、F3:F37、K3:K40、P3:P40。

在不添加新的“If”块的情况下编写代码的最佳方法是什么？
还是添加新的“If”块（并调用子程序）是最好的方法？

Answer 1

使用这个：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A3:A25, A29:A40, F3:F37, K3:K40, P3:P40")) Is Nothing Then
        'code
    End If
End Sub