Excel макрос при нажатии на ячейку

Запуск макроса кликом по ячейке или при изменении значения ячейки

Как сделать связанный выпадающий список в «Эксель», зависящий от значения в соседней ячейке.

рассказывалось о том, как реализовать в программе Excel связанные между собой выпадающие списки. Недавно создавая файл со связанными списками столкнулся с проблемкой — при обновлении записи в первой ячейке, от которой зависит список во второй, вторая ячейка остается неизменной, не обнуляет значения.

Решил исправить ситуацию и сделать так чтобы при клике по первой ячейке вторая ячейка принимала значение «пусто».

Для этого потребовалось написать 2 коротеньких алгоритма (макроса):

Первый макрос — производит удаление данных из ячейки и выглядит следующим образом:

Sub noll()
On Error Resume Next
ActiveSheet.Cells(2, 2).Value = «»
End Sub

Этот макрос следует записать в поле раздела «module» — в «контейнер» модуля.

Второй макрос — активирует первый при клике по ячейке.

Выглядит код вызывающий (запускающий ) макрос по клику на ячейку, следующим образом:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim u As String
On Error Resume Next
If Not Intersect(Target, Range(«B1»)) Is Nothing Then
Call noll
End If
End Sub

Этот код нужно записывать не в контейнер «module», а непосредтвенно в лист. Для этого следует в меню разработчика в просмотре кода:

• Кликнуть двойным щелчком по названию листа.
• После двойного клика будет открыто поле для внесения кода аналогичное полю модуля (module).

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

Код стал выглядеть следующим образом:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim u As String
On Error Resume Next
If Not Intersect(Target, Range(«B1»)) Is Nothing Then
Call noll
End If
End Sub

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

Вопросы и пожелания можете оставлять в комментариях или на форуме нашего сайта.
Видео о работе в excel можно найти на нашем youtube канале по ссылке:

Канал «RuExcel»

Удачи в изучении программы Ecxel.

Запуск макроса кликом по ячейке или при изменении значения ячейки: 2 комментария

Уважаемый Автор! А не мо6ли бы подсказать как выполнить походее аналогичное, что было у вас сейчас, но по значению или ошибке в ячейке чтобы макрос запускался бы сам, вместо измения? Без щелчка по ячейке то есть.
Например, если в ячейке А1 ошибка» #ЗНАЧ» — то автоматически без участия оператора запускается макрос под именем «Макрос2»

И если после максимум двух запусков макроса2 в ячейке А1 по прежнему отображена ошибка «#ЗНАЧ» то уже не запускаем больше и можем вывести msgbox «Запуск макроса не повлиял на ошибку!»:)

Добрый день. Можно запускать макрос по изменению листа private Sub Worksheet_Change(ByVal Target As Range)

Добавить комментарий Отменить ответ

Этот сайт использует Akismet для борьбы со спамом. Узнайте, как обрабатываются ваши данные комментариев.

Источник

VBA Excel. Запуск макроса при изменении ячейки

Запуск макроса (процедуры) из кода VBA Excel при изменении значения ячейки вручную или программным способом, а также при нажатии клавиши Delete.

Запуск макроса при изменении ячейки

Пример кода

Код VBA Excel для запуска макроса (процедуры) при изменении значения ячейки на рабочем листе:

Range(«A1:D8») — это диапазон, при изменении значения любой ячейки которого, произойдет выполнение функции MsgBox. Диапазон может состоять из одной ячейки.

Код размещается в модуле рабочего листа, при изменении значения ячейки на котором следует запустить макрос (процедуру).

Вместо функции MsgBox в приведенном коде следует разместить ссылку на исполняемую процедуру (макрос) VBA Excel.

Примечания

• Макрос будет запущен при изменении значения ячейки вручную или программным способом, а также при нажатии клавиши Delete.
• Вызываемая процедура будет запущена и в том случае, если в ячейку будет записано то же самое значение, которое в ней и было. Например, в ячейке было число 28, и в нее записали вручную или программно число 28; или нажали клавишу Delete на пустой ячейке.
• Макрос не будет запущен при изменении значения ячейки с формулой в результате ее пересчета.

Исключение ложного срабатывания

Если в качестве диапазона указать только одну ячейку, можно исключить срабатывание кода VBA Excel при записи в ячейку того же значения. Для этого необходимо использовать переменную уровня модуля, чтобы с ее помощью контролировать факт изменения или неизменения значения в указанной ячейке.

Источник

Excel макрос при нажатии на ячейку

Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса по даблклику на определённую ячейку (Макросы Sub)

Запуск макроса по даблклику на определённую ячейку

futher

Дата: Вторник, 08.10.2013, 16:18 | Сообщение № 1

SkyPro Дата: Вторник, 08.10.2013, 16:21 | Сообщение № 2 (думаю, что далее может последовать «уточнение», что нужно срабатывание только в определенном диапазоне..) Если нужно только в определенном диапазоне, тогда так: [vba] ЗЫ: Пока писал и редактировал сообщение, уже «последовало уточнение». (думаю, что далее может последовать «уточнение», что нужно срабатывание только в определенном диапазоне..) Если нужно только в определенном диапазоне, тогда так: [vba] ЗЫ: Пока писал и редактировал сообщение, уже «последовало уточнение». SkyPro (думаю, что далее может последовать «уточнение», что нужно срабатывание только в определенном диапазоне..) Если нужно только в определенном диапазоне, тогда так: [vba] ЗЫ: Пока писал и редактировал сообщение, уже «последовало уточнение». Автор — SkyPro Дата добавления — 08.10.2013 в 16:21 futher Дата: Вторник, 08.10.2013, 17:09 | Сообщение № 3 ого! вот это оперативность! блиц-ответ за 3 минуты отлично, теперь всё работает, премного благодарен! PS: +1 в репу SkyPro ого! вот это оперативность! блиц-ответ за 3 минуты отлично, теперь всё работает, премного благодарен! PS: +1 в репу SkyPro futher Сообщение ого! вот это оперативность! блиц-ответ за 3 минуты отлично, теперь всё работает, премного благодарен! PS: +1 в репу SkyPro Автор — futher Дата добавления — 08.10.2013 в 17:09 RAN Дата: Вторник, 08.10.2013, 17:14 | Сообщение № 4 Быть или не быть, вот в чем загвоздка! futher Дата: Вторник, 08.10.2013, 18:25 | Сообщение № 5 MsgBox мне совсем не нужен, я через Call всё запустил прекрасно, но можт кому кроме меня пригодится. Не могли бы Вы пояснить про MsgBox мне совсем не нужен, я через Call всё запустил прекрасно, но можт кому кроме меня пригодится. Не могли бы Вы пояснить про MsgBox мне совсем не нужен, я через Call всё запустил прекрасно, но можт кому кроме меня пригодится. Не могли бы Вы пояснить про futher Дата: Вторник, 08.10.2013, 18:30 | Сообщение № 6 Спасибо огромное) Ещё вопрос: как сделать чтобы параметр «прятать после ввода» был по умолчанию всегда включен? Спасибо огромное) Ещё вопрос: как сделать чтобы параметр «прятать после ввода» был по умолчанию всегда включен? futher Спасибо огромное) Ещё вопрос: как сделать чтобы параметр «прятать после ввода» был по умолчанию всегда включен? Автор — futher Дата добавления — 08.10.2013 в 18:30 SkyPro Дата: Вторник, 08.10.2013, 18:37 | Сообщение № 7 RAN Дата: Вторник, 08.10.2013, 19:30 | Сообщение № 8 Быть или не быть, вот в чем загвоздка! Ответить SkyPro Дата: Вторник, 08.10.2013, 21:07 | Сообщение № 9 futher Дата: Вторник, 08.10.2013, 21:33 | Сообщение № 10 koyaanisqatsi Дата: Четверг, 19.05.2016, 15:58 | Сообщение № 11 RAN, У меня почему-то время от времени слетают эти настройки хотя в коде написано все правильно. 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Sub Auto_Open() arrFrmSetup = Array(False, True) ‘ начальная установка чек-боксов календаря _ arrFrmSetup(0) = True => «Ввод двойным щелчком» _ arrFrmSetup(1) = False >= «Не прятать после ввода» ‘ Call CalendarMenuCreate End Sub PS: Разобрался. Надо не просто в коде поменять. Надо в форме на в этих элементах переключить галочки тогда все ок работает. RAN, У меня почему-то время от времени слетают эти настройки хотя в коде написано все правильно. 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Sub Auto_Open() arrFrmSetup = Array(False, True) ‘ начальная установка чек-боксов календаря _ arrFrmSetup(0) = True => «Ввод двойным щелчком» _ arrFrmSetup(1) = False >= «Не прятать после ввода» ‘ Call CalendarMenuCreate End Sub PS: Разобрался. Надо не просто в коде поменять. Надо в форме на в этих элементах переключить галочки тогда все ок работает. koyaanisqatsi Сообщение RAN, У меня почему-то время от времени слетают эти настройки хотя в коде написано все правильно. 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Sub Auto_Open() arrFrmSetup = Array(False, True) ‘ начальная установка чек-боксов календаря _ arrFrmSetup(0) = True => «Ввод двойным щелчком» _ arrFrmSetup(1) = False >= «Не прятать после ввода» ‘ Call CalendarMenuCreate End Sub PS: Разобрался. Надо не просто в коде поменять. Надо в форме на в этих элементах переключить галочки тогда все ок работает. Автор — koyaanisqatsi Дата добавления — 19.05.2016 в 15:58 Alex_ST Дата: Пятница, 20.05.2016, 09:53 | Сообщение № 12 С уважением, Алексей MS Excel 2003 — the best. Источник Adblock detector

Запуск макроса изменением значения в ячейке.

Ранее в статье

Как сделать связанный выпадающий список в «Эксель», зависящий от значения в соседней ячейке.

рассказывалось о том, как реализовать в программе Excel связанные между собой выпадающие списки. Недавно создавая файл со связанными списками столкнулся с проблемкой — при обновлении записи в первой ячейке, от которой зависит список во второй, вторая ячейка остается неизменной, не обнуляет значения.

Решил исправить ситуацию и сделать так чтобы при клике по первой ячейке вторая ячейка принимала значение «пусто».

Для этого потребовалось написать 2 коротеньких алгоритма (макроса):

Первый макрос —  производит удаление данных из ячейки и выглядит следующим образом:

Sub noll()
On Error Resume Next
ActiveSheet.Cells(2, 2).Value = «»
End Sub

Этот макрос следует записать в поле раздела «module» — в «контейнер» модуля.

Второй макрос — активирует первый при клике по ячейке.

Выглядит код вызывающий (запускающий ) макрос по клику на ячейку, следующим образом:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim u As String
On Error Resume Next
If Not Intersect(Target, Range(«B1»)) Is Nothing Then
Call noll
End If
End Sub

Этот код нужно записывать не в контейнер «module», а непосредтвенно в лист. Для этого следует в меню разработчика в просмотре кода:

• Кликнуть двойным щелчком по названию листа.
• После двойного клика будет открыто поле для внесения кода аналогичное полю модуля (module).

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

Код стал выглядеть следующим образом:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim u As String
On Error Resume Next
If Not Intersect(Target, Range(«B1»)) Is Nothing Then
Call noll
End If
End Sub

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

Вопросы и пожелания можете оставлять в комментариях или на форуме нашего сайта.
Видео о работе в excel можно найти на нашем youtube канале по ссылке:

Канал «RuExcel»

Удачи в изучении программы Ecxel.