Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2009, 10:19   #1
mars56
Пользователь
 
Регистрация: 03.12.2009
Сообщений: 58
По умолчанию запуск макроса из раскрывающегося списка

как из раскрывающегося списка запустить макрос. Например лист10 в нем раскрывающийся список, в списке несколько строк. Выбираю первую строку запускается макрос1 (удаляет все содержимое с Листа1), выбираю вторую строку запускается макрос2 (удаляет все содержимое с Листа2) и т.д., затем выбираю пятую строку запускается макрос5 (удаляет все содержимое со всех листов) Буду рад всем кто поможет...

Последний раз редактировалось mars56; 03.12.2009 в 10:21.
mars56 вне форума Ответить с цитированием
Старый 03.12.2009, 11:49   #2
андей
Пользователь
 
Регистрация: 27.09.2008
Сообщений: 69
По умолчанию

private sub. анализирующий значение в ячейке
и в нем case и call
Андрей
андей вне форума Ответить с цитированием
Старый 03.12.2009, 12:01   #3
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Тут еще Run можно. Call не умеет работать с текстовой строкой.
Я так понимаю все это великолепие будет повешено на событие листа Change. И если в выпадающем списке у Вас имена самих макросов, то

Код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then Run Target.Value
End Sub
Выпадающий список в ячейке А1, выполняемые макросы в обычном модуле.
Но метод Run гораздо медленне Call, даже в связке с Select Case. ОДнако если у Вас достаточно много процедур, чтобы все их перечислять в Select Case, то самое оно.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 07.12.2009, 12:52   #4
mars56
Пользователь
 
Регистрация: 03.12.2009
Сообщений: 58
По умолчанию

спасибо ребята, все сделал
mars56 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск макроса serafim09 Microsoft Office Excel 9 03.09.2009 16:55
Запуск макроса с параметрами из другого макроса Saladin Microsoft Office Excel 2 19.01.2009 09:43
Запуск макроса с книгой Gawwws Microsoft Office Excel 2 28.10.2008 11:34
Автоматический запуск макроса Len@ Microsoft Office Excel 6 23.07.2008 12:05
Отбор записей с помощью раскрывающегося списка xeqipex Microsoft Office Access 1 25.06.2008 17:01