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

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
29.09.2009, 14:47:55
    #36222810
radomirka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автозапуск различных макросов при изменении значения в А1
_Boroda_,

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

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

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

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

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

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

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


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

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

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


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