双击事件 - 多个范围

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