VBA Excel. Событие Worksheet.SelectionChange

    Событие Worksheet.SelectionChange, используемое в VBA Excel для запуска процедур при выборе диапазона на рабочем листе, в том числе отдельной ячейки.

    Синтаксис события Worksheet.SelectionChange

    Синтаксис процедуры, выполнение которой инициируется событием Worksheet.SelectionChange:

    Эта процедура VBA Excel запускается при смене на рабочем листе выделенного диапазона (SelectionChange). Она должна быть размещена в модуле рабочего листа Excel, смена выбранного диапазона ячеек которого будет инициировать ее запуск.

    Аргумент Target — это новый выбранный диапазон на рабочем листе.

    Шаблон процедуры можно скопировать и вставить в модуль рабочего листа, но не обязательно. Если открыть модуль нужного листа, выбрать в левом верхнем поле объект Worksheet, шаблон процедуры будет добавлен автоматически:

    Выбор события Worksheet.SelectionChange в модуле рабочего листа

    У объекта Worksheet есть и другие события, которые можно выбрать в правом верхнем поле модуля рабочего листа. Процедура с событием SelectionChange добавляется по умолчанию.

    Примеры кода с Worksheet.SelectionChange

    Пример разработчика

    Замечательный пример дан на сайте разработчика:

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

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

    Выбор одной отдельной ячейки

    Инициируем выполнение основных операторов процедуры с событием Worksheet.SelectionChange выбором одной отдельной ячейки:

    Основной оператор MsgBox "Выбрана ячейка E5" будет выполнен при выборе ячейки E5.

    Примечание:
    В условии примера используется свойство Address переменной Target, так как в прямом выражении Target = Range("E5") по умолчанию сравниваются значения диапазонов. В результате этого, при выборе другой ячейки со значением, совпадающим со значением ячейки E5, равенство будет истинным и основные операторы будут выполнены, а при выборе более одной ячейки, будет сгенерирована ошибка.

    Выбор диапазона с заданной ячейкой

    Выполнение основных операторов процедуры при вхождении заданной ячейки в выбранный диапазон:

    Основной оператор MsgBox "Ячейка B3 входит в выбранный диапазон" будет выполнен при выделении диапазона, в который входит ячейка B3, в том числе и при выделении одной этой ячейки.

    Выбор ячейки в заданной строке

    Инициируем выполнение основных операторов процедуры с событием Worksheet.SelectionChange выбором любой отдельной ячейки во второй строке:

    Дополнительный оператор If Target.Count > 1 Then Exit Sub необходим для выхода из процедуры при выделении более одной ячейки. Причина: при выделении произвольного диапазона, ограниченного сверху второй строкой, выражение Target.Row = 2 будет возвращать значение True, и операторы в блоке If ... End If будут выполнены.

    Ввод даты в ячейку первого столбца

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

    Этот код VBA может быть полезен при ведении реестра, базы данных на листе Excel с записью текущей даты в первой колонке.

    Условие If Target.Count > 1 Or Target.Row = 1 Or Target.Row = ActiveSheet.Rows.Count Then Exit Sub завершает процедуру при выборе более одной ячейки, при выборе ячейки A1 и при выборе последней ячейки первого столбца.

    Выбор ячейки A1 приводит к ошибке при проверке условия Target.Offset(-1, 0) <> "", так как происходит выход за границы диапазона рабочего листа.

    Ошибка выхода за пределы рабочего листа происходит и при проверке условия Target.Offset(1, 0) = "", если выбрать последнюю ячейку первой колонки.

    Примечание:
    Текущая дата будет введена в следующую пустую ячейку первого столбца при переходе к ней от заполненной в том числе нажатием клавиши «Enter».

    Пример без отслеживания Target

    Если необходимо, чтобы процедура запускалась при любой смене выделенного диапазона, аргумент Target можно не отслеживать:

    После ввода значения в ячейку B1, можно нажать Enter или кликнуть по любой другой ячейке рабочего листа, и событие Worksheet.SelectionChange сработает.


    Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

    6 комментариев для “VBA Excel. Событие Worksheet.SelectionChange”

    1. Здравствуйте, Евгений.
      есть код (не мой),

      выполняет вставку таблицы при введении «1» (макрос 1), а при введении «2» (макрос 2) не выводит её. Если A1 является формулой, т.е. ссылается на другие ячейки, то все эти выше указанные коды — не работают. Что делать?

      1. Евгений

        Здравствуйте, Алексей!
        Ваш код работает правильно. Вы можете проверить, заменив блок If на:

        1. Алексей

          Здравствуйте, Евгений. Я наверно не правильно сформулировал или объяснил. Ваша проверка работает, всё хорошо. Но если поставить на ячейку А1 код, к примеру:
          =ЕСЛИ(L1=1;"1";"2")
          то всё не работает.

          Если интересно, то вот макросы листа:

          1. Евгений

            Алексей, первый макрос перезаписывает ячейку А1, второй — ее удаляет. Если вы поместили в А1 формулу =ЕСЛИ(L1=1;"1";"2"), то для запуска процедуры Worksheet_Change отслеживать надо уже изменение ячейки L1, но это сработает однократно, так как формула будет удалена из А1 запущенным макросом:

    2. Сбитый Лётчик Небосводов

      Здравствуйте!
      Выбор диапазона с заданной ячейкой
      1. Где д. находиться этот код, на листе, в книге или в Modules?
      У меня работает только будучи помещённым на листе, и только когда этот лист активен.
      2. Каким кодом экспортированный из Modules *.bas поместить в целевом файле на лист?

      Приводит к созданию Modules с Имя.bas в целевом файле и, соответственно, не работает Worksheet.SelectionChange.
      Прошу помощи.
      Спасибо.

      1. Евгений

        Здравствуйте!
        1. Worksheet.SelectionChange — событие рабочего листа, и процедура, связанная с ним, может находиться только в модуле этого листа. Происходит событие SelectionChange, когда лист активен. Когда лист не активен, объект Selection ему не принадлежит.
        2. Как вариант, можно лист с кодом скопировать из одной книги в другую. Другого способа программного переноса кода из модуля одного листа в модуль другого листа не знаю.

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

    Ваш комментарий будет опубликован после прохождения обязательной модерации. Исходящие ссылки не допускаются. Время модерации составит от нескольких минут до нескольких часов в зависимости от времени суток и занятости модератора.