Есть макрос, он вызывает форму (календарик) по клику мышки. Сейчас он работает только с одним столбцом. У меня не получается сделать так, чтобы он работал с двумя, с тремя сразу, при том не соседними столбцами. например E, H, K.
Подскажите как поменять код.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("E8:E888", "E8:E888")) Is Nothing Then DateForm.Show End If End Sub
Заранее спасибо, очень жду ответа :) [moder]Прочитайте Правила форума и создайте свою тему! Код нужно оформлять тегами.[/moder]
Добрый день!
Помогите пожалуйста!!!
Есть макрос, он вызывает форму (календарик) по клику мышки. Сейчас он работает только с одним столбцом. У меня не получается сделать так, чтобы он работал с двумя, с тремя сразу, при том не соседними столбцами. например E, H, K.
Подскажите как поменять код.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("E8:E888", "E8:E888")) Is Nothing Then DateForm.Show End If End Sub
Заранее спасибо, очень жду ответа :) [moder]Прочитайте Правила форума и создайте свою тему! Код нужно оформлять тегами.[/moder]Elayda
Сообщение отредактировал Manyasha - Пятница, 11.12.2015, 12:33