我正在寻找为双击事件在多个范围内进行编码的最佳方法。
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”块(并调用子例程)是最好的方法吗?
使用这个:
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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)