powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автозапуск различных макросов при изменении значения в А1
10 сообщений из 10, страница 1 из 1
Автозапуск различных макросов при изменении значения в А1
    #36222623
radomirka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Создаю активную базу с использованием элементов типа "Список", "Поле со списком". Рассмотрим "Список" - при выборе значения в нем идет ссылка на А1, там прописываются значения 1, 2, 3 и т.д., в зависимости от выбранного значения. Задача - при выборе второго значения из списка автоматически запустить макрос (в ячейке А1="2"), при выборе следующего значения (в ячейке А1="3") другой макрос!
И т.д.
...
Рейтинг: 0 / 0
Автозапуск различных макросов при изменении значения в А1
    #36222797
_Boroda_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В модуль листа можно положить такой макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [a1] Then
Select Case [a1]
Case Is = 1
qqq1
Case Is = 2
qqq2
End Select
End If
End Sub

Для изменения в ячейке А1
Запускает макросы qqq1 и qqq2
...
Рейтинг: 0 / 0
Автозапуск различных макросов при изменении значения в А1
    #36222810
radomirka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
_Boroda_,

То есть имена созданных макросов должны быть ggg1 и ggg2? (имена я поменяю на свои, естественно, про принцип спрашиваю!)
...
Рейтинг: 0 / 0
Автозапуск различных макросов при изменении значения в А1
    #36222854
radomirka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
_Boroda_,

Среда Microsoft Exel
...
Рейтинг: 0 / 0
Автозапуск различных макросов при изменении значения в А1
    #36223016
_Boroda_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
[quot radomirka
То есть имена созданных макросов должны быть ggg1 и ggg2? (имена я поменяю на свои, естественно, про принцип спрашиваю!)[/quot]

ggg1, ggg2, ... - имена макросов, находящихся в этой книге. Через Case их можно прописать любое количество (в разумных, конечно, пределах)

[quot radomirka
Среда Microsoft Exel[/quot]

Это об чем?
...
Рейтинг: 0 / 0
Автозапуск различных макросов при изменении значения в А1
    #36223039
radomirka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
_Boroda_,

сделал все по "инструкции", даже имена макросам присвоил такие же, автоматического запуска макросов не происходит((( Поэтому уточняю для чего прога должна писаться! 5 листов в книге (это пока, возможно добавится ещё). Для простоты отладки программы имена листов оставляю по умолчанию.
...
Рейтинг: 0 / 0
Автозапуск различных макросов при изменении значения в А1
    #36223047
radomirka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
radomirka_Boroda_,

сделал все по "инструкции", даже имена макросам присвоил такие же, автоматического запуска макросов не происходит((( Поэтому уточняю для чего прога должна писаться! 5 листов в книге (это пока, возможно добавится ещё). Для простоты отладки программы имена листов оставляю по умолчанию. Еще добавлю - изменения А1 только на Листе 1.
...
Рейтинг: 0 / 0
Автозапуск различных макросов при изменении значения в А1
    #36223074
_Boroda_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
radomirka,


Клади файл
...
Рейтинг: 0 / 0
Автозапуск различных макросов при изменении значения в А1
    #36223112
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так сделал?
...
Рейтинг: 0 / 0
Автозапуск различных макросов при изменении значения в А1
    #36223236
_Boroda_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Hugo121,

Если обозвать макросы qqq_1, qqq_2 и т.д., то работает так:

Private Sub ComboBox1_Change()
Application.Run "qqq_" & ComboBox1.Text
End Sub
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автозапуск различных макросов при изменении значения в А1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]