Событие Double Click - несколько диапазонов

Я ищу лучший способ кодировать несколько диапазонов для моего события двойного щелчка.

Private Sub ***************************(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" (и вызывает подпрограмму) наилучшим образом?

1 ответ

Используйте это:

Private Sub ***************************(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

licensed under cc by-sa 3.0 with attribution.