Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Прошу помочь разобраться в макросе с Target и Intersect - Страница 4 - Мир MS Excel

Старая форма входа
  • Страница 4 из 4
  • «
  • 1
  • 2
  • 3
  • 4
Модератор форума: китин, _Boroda_  
Прошу помочь разобраться в макросе с Target и Intersect
Elayda Дата: Пятница, 11.12.2015, 12:29 | Сообщение № 61
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день!

Помогите пожалуйста!!!

Есть макрос, он вызывает форму (календарик) по клику мышки. Сейчас он работает только с одним столбцом. У меня не получается сделать так, чтобы он работал с двумя, с тремя сразу, при том не соседними столбцами. например 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]


Сообщение отредактировал Manyasha - Пятница, 11.12.2015, 12:33
 
Ответить
СообщениеДобрый день!

Помогите пожалуйста!!!

Есть макрос, он вызывает форму (календарик) по клику мышки. Сейчас он работает только с одним столбцом. У меня не получается сделать так, чтобы он работал с двумя, с тремя сразу, при том не соседними столбцами. например 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
Дата добавления - 11.12.2015 в 12:29
RAN Дата: Пятница, 11.12.2015, 13:35 | Сообщение № 62
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
If Not Intersect(Target, Range("E:E, H:H, K:K")) Is Nothing Then
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
If Not Intersect(Target, Range("E:E, H:H, K:K")) Is Nothing Then
[/vba]

Автор - RAN
Дата добавления - 11.12.2015 в 13:35
китин Дата: Вторник, 27.03.2018, 11:22 | Сообщение № 63
Группа: Модераторы
Ранг: Экселист
Сообщений: 7028
Репутация: 1077 ±
Замечаний: 0% ±

Excel 2007;2010;2016
а ведь нарушения ....


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852


Сообщение отредактировал китин - Вторник, 27.03.2018, 11:23
 
Ответить
Сообщениеа ведь нарушения ....

Автор - китин
Дата добавления - 27.03.2018 в 11:22
ale4866 Дата: Вторник, 27.03.2018, 11:24 | Сообщение № 64
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Огромное спасибо! Второй раз прошел вопрос - это у меня в руках дребнзгнуло ИЗВЕНИТЕ.
 
Ответить
СообщениеОгромное спасибо! Второй раз прошел вопрос - это у меня в руках дребнзгнуло ИЗВЕНИТЕ.

Автор - ale4866
Дата добавления - 27.03.2018 в 11:24
китин Дата: Вторник, 27.03.2018, 11:27 | Сообщение № 65
Группа: Модераторы
Ранг: Экселист
Сообщений: 7028
Репутация: 1077 ±
Замечаний: 0% ±

Excel 2007;2010;2016
исправьте нарушения в качестве тэгов. не первый день на форуме ведь


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеисправьте нарушения в качестве тэгов. не первый день на форуме ведь

Автор - китин
Дата добавления - 27.03.2018 в 11:27
Pelena Дата: Вторник, 27.03.2018, 12:03 | Сообщение № 66
Группа: Админы
Ранг: Местный житель
Сообщений: 19394
Репутация: 4546 ±
Замечаний: ±

Excel 365 & Mac Excel
ale4866, создайте свою тему. Эта тема закрыта


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеale4866, создайте свою тему. Эта тема закрыта

Автор - Pelena
Дата добавления - 27.03.2018 в 12:03
  • Страница 4 из 4
  • «
  • 1
  • 2
  • 3
  • 4
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!