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

Вход

Регистрация

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

 

= Мир MS Excel/при нажатии на разные ячейки(диап яч) - разные макросы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » при нажатии на разные ячейки(диап яч) - разные макросы (Макросы/Sub)
при нажатии на разные ячейки(диап яч) - разные макросы
Extybr Дата: Воскресенье, 15.11.2020, 19:37 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
как подружить несколько событий
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[/vba]

если выделяется ячейка А1- срабптывает макрос
если выделяется ячейка из диапазона- другой макрос
К сообщению приложен файл: 4781734.xlsb (15.4 Kb)
 
Ответить
Сообщениекак подружить несколько событий
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[/vba]

если выделяется ячейка А1- срабптывает макрос
если выделяется ячейка из диапазона- другой макрос
Автор - Extybr
Дата добавления - 15.11.2020 в 19:37
RAN Дата: Воскресенье, 15.11.2020, 19:51 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
И где у вас несколько событий? Я больше 1 не насчитываю.
А дружить нужно не события, а отслеживаемые диапазоны
[vba]
Код
If Target.Address = "$A$1" Then: Call Module1.tt
ElseIf Not Intersect(Target, WorkRange) Is Nothing Then
Else
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеИ где у вас несколько событий? Я больше 1 не насчитываю.
А дружить нужно не события, а отслеживаемые диапазоны
[vba]
Код
If Target.Address = "$A$1" Then: Call Module1.tt
ElseIf Not Intersect(Target, WorkRange) Is Nothing Then
Else
[/vba]
Автор - RAN
Дата добавления - 15.11.2020 в 19:51
gling Дата: Воскресенье, 15.11.2020, 19:51 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2661
Репутация: 747 ±
Замечаний: 0% ±

2010
А так нельзя?[vba]
Код
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$A$1" Then: Call Module1.tt
    If Not Intersect(Target, WorkRange) Is Nothing Then
[/vba]

ЯД-41001506838083
 
Ответить
СообщениеА так нельзя?[vba]
Код
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$A$1" Then: Call Module1.tt
    If Not Intersect(Target, WorkRange) Is Nothing Then
[/vba]
Автор - gling
Дата добавления - 15.11.2020 в 19:51
Extybr Дата: Воскресенье, 15.11.2020, 19:54 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
спасибо, просто в макросах не шарю, все по интуиции-нахожу похожие и допиливаю под себя.
проверю отпишусь
.
 
Ответить
Сообщениеспасибо, просто в макросах не шарю, все по интуиции-нахожу похожие и допиливаю под себя.
проверю отпишусь
.
Автор - Extybr
Дата добавления - 15.11.2020 в 19:54
Extybr Дата: Воскресенье, 15.11.2020, 20:00 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
так а можете в примере показать что вместо чего...готовый макрос есле не трудно
 
Ответить
Сообщениетак а можете в примере показать что вместо чего...готовый макрос есле не трудно
Автор - Extybr
Дата добавления - 15.11.2020 в 20:00
gling Дата: Воскресенье, 15.11.2020, 20:15 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2661
Репутация: 747 ±
Замечаний: 0% ±

2010
Вариант в файле.
К сообщению приложен файл: 7593875.xlsb (16.1 Kb)

ЯД-41001506838083
 
Ответить
СообщениеВариант в файле.
Автор - gling
Дата добавления - 15.11.2020 в 20:15
Extybr Дата: Воскресенье, 15.11.2020, 20:19 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
gling, спасибо за труды.. да работает
 
Ответить
Сообщениеgling, спасибо за труды.. да работает
Автор - Extybr
Дата добавления - 15.11.2020 в 20:19
Extybr Дата: Воскресенье, 15.11.2020, 20:37 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
а как если диапазоны отслеживаются и должны срабатывать два макроса в том же диапазоне?
один тот что выделяет строки таблицы и другой - любой мдругой.?
как и что прописать
 
Ответить
Сообщениеа как если диапазоны отслеживаются и должны срабатывать два макроса в том же диапазоне?
один тот что выделяет строки таблицы и другой - любой мдругой.?
как и что прописать
Автор - Extybr
Дата добавления - 15.11.2020 в 20:37
gling Дата: Воскресенье, 15.11.2020, 20:40 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2661
Репутация: 747 ±
Замечаний: 0% ±

2010
Пропишите их последовательно друг за другом типа [vba]
Код
If Not Intersect(Target, WorkRange) Is Nothing Then
Call Макрос1
Call Макрос2
End If
[/vba]

ЯД-41001506838083
 
Ответить
СообщениеПропишите их последовательно друг за другом типа [vba]
Код
If Not Intersect(Target, WorkRange) Is Nothing Then
Call Макрос1
Call Макрос2
End If
[/vba]
Автор - gling
Дата добавления - 15.11.2020 в 20:40
Extybr Дата: Воскресенье, 15.11.2020, 20:48 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
gling,
спасибо Вам.
удачи и всего наилучшего
 
Ответить
Сообщениеgling,
спасибо Вам.
удачи и всего наилучшего
Автор - Extybr
Дата добавления - 15.11.2020 в 20:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » при нажатии на разные ячейки(диап яч) - разные макросы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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