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

双击事件 - 多个范围

1 个答案: