Запуск макроса при активации диапазона ячеек

Старая форма входа

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

Запуск макроса при активации диапазона ячеек (Макросы/Sub)

Siktorovich

Дата: Понедельник, 16.11.2020, 14:18 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Добрый день!
Помогите решить проблему, пожалуйста.

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

Пример для одной ячейки:

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$12" Then
MsgBox "Hello"
End If
End Sub

[/vba]

Как реализовать данный макрос для диапазона, например B12:B340
Заранее благодарю!

Ответить

Kuzmich

Дата: Понедельник, 16.11.2020, 14:30 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

[vba]

Код

If Not Intersect(Target, Range("$B$12:$B$340")) Then

[/vba]

Ответить

китин

Дата: Понедельник, 16.11.2020, 14:30 | Сообщение № 3

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Siktorovich, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

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

Ответить

MikeVol

Дата: Понедельник, 16.11.2020, 14:33 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 378

Репутация: 81 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

Siktorovich, День Добрый. Наверное так:

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("$B$12:$B$340")) Then
        MsgBox "Hello"
    End If
End Sub

[/vba]