双击事件 - 多个范围答案

【问题标题】：Double Click Event - Multiple Ranges双击事件 - 多个范围
【发布时间】：2022-01-23 20:03:05
【问题描述】：

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

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”块（并调用子程序）是最好的方法？

【问题讨论】：

标签： excel vba double-click code-structure

【解决方案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

【讨论】：

哇！这很简单。还在学习 VBA，我不知道你可以做那样的范围。非常感谢simoco！