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

Вход

Регистрация

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

 

= Мир MS Excel/Запуск макроса при активации диапазона ячеек - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса при активации диапазона ячеек (Макросы/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
Заранее благодарю!
 
Ответить
СообщениеДобрый день!
Помогите решить проблему, пожалуйста.

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

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

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$12" Then
MsgBox "Hello"
End If
End Sub
[/vba]

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

Автор - Siktorovich
Дата добавления - 16.11.2020 в 14:18
Kuzmich Дата: Понедельник, 16.11.2020, 14:30 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 106 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
If Not Intersect(Target, Range("$B$12:$B$340")) Then
[/vba]
 
Ответить
Сообщение[vba]
Код
If Not Intersect(Target, Range("$B$12:$B$340")) Then
[/vba]

Автор - Kuzmich
Дата добавления - 16.11.2020 в 14:30
китин Дата: Понедельник, 16.11.2020, 14:30 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 6319
Репутация: 970 ±
Замечаний: 0% ±

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеSiktorovich, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 16.11.2020 в 14:30
MikeVol Дата: Понедельник, 16.11.2020, 14:33 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 11 ±
Замечаний: 0% ±

Excel 2019
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]
 
Ответить
Сообщение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]

Автор - MikeVol
Дата добавления - 16.11.2020 в 14:33
Siktorovich Дата: Понедельник, 16.11.2020, 14:33 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Kuzmich, огромное спасибо
 
Ответить
СообщениеKuzmich, огромное спасибо

Автор - Siktorovich
Дата добавления - 16.11.2020 в 14:33
Siktorovich Дата: Понедельник, 16.11.2020, 14:34 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
MikeVol, огромное спасибо!
 
Ответить
СообщениеMikeVol, огромное спасибо!

Автор - Siktorovich
Дата добавления - 16.11.2020 в 14:34
Siktorovich Дата: Понедельник, 16.11.2020, 14:35 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
китин, извиняюсь
В следующий раз буду правильнее оформлять посты
 
Ответить
Сообщениекитин, извиняюсь
В следующий раз буду правильнее оформлять посты

Автор - Siktorovich
Дата добавления - 16.11.2020 в 14:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса при активации диапазона ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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