Процедура DoubleClick только на определенные ячейки

Sag Гость	#1 24.05.2012 07:27:35 Здравствуйте! Что нужно для того чтобы процедура BeforeDoubleClick происходила только на определенный диапазон ячеек. Например на ячейки А1:А5. Т.е. при нажатии только на эти ячейки макрос работал.

sag Гость	#2 24.05.2012 07:33:05 Например в этом коде: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) [B1] = ActiveCell.Value Cancel = True End Sub

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#3 24.05.2012 07:42:55 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, [a1:a5]) Is Nothing Then Exit Sub [B1] = ActiveCell.Value Cancel = True End Sub 77788 Я сам - дурнее всякого примера! ...

Sag Гость	#4 24.05.2012 11:40:37 Спасибо! Можно еще один вопрос. А как быть когда кроме А1:А5 работал еще и в диапазоне А10:А15. Заранее спасибо!

Юрий М

Модератор

Сообщений: 60983 Регистрация: 14.09.2012

Контакты см. в профиле

24.05.2012 14:07:32

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A5, A10:A15")) Is Nothing Then
'''Здесь одинаковые действия для двух диапазонов
End If
End Sub
Если нужно разные действия для диапазонов, то так:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
'''Здесь действия для первого диапазона
End If
If Not Intersect(Target, Range("A10:A15")) Is Nothing Then
'''Здесь действия для второго диапазона
End If
End Sub

Sag Гость	#6 30.05.2012 07:28:04 Спасибо ув. Юрий. P.S. Лучше поздно чем никогда

Читают тему