|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.01.2010, 15:55 | #1 |
Пользователь
Регистрация: 04.01.2010
Сообщений: 20
|
Создать макрос через маакрос)
Кто знает как создать макрос через макрос)) То есть запустил 1 макрос в нём прописано чего надо записать во второй и скопировать в 2 макрос исходный код взятый например из ячейки)
Если есть какиенить мысли говорим... А если есть материал почитать так тем более |
14.01.2010, 16:04 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
http://www.programmersforum.ru/showp...49&postcount=2
Код:
К программному созданию макросов есть необходимость прибегать лишь в исключительных случаях. Информация по теме есть здесь. |
15.01.2010, 01:13 | #3 |
Пользователь
Регистрация: 04.01.2010
Сообщений: 20
|
Вот если так сделать без with то как мне работать с книгой например я её открыл и хочу в событие open записать?
Код:
|
15.01.2010, 19:37 | #4 |
Пользователь
Регистрация: 04.01.2010
Сообщений: 20
|
With Activebook.VBProject.VBComponents.I tem("ЭтаКнига").CodeModule
Line = .CountOfLines .InsertLines Line + 1, "Private Sub Workbook_Open()" .InsertLines Line + 2, "MsgBox ""хело""" .InsertLines Line + 3, "Unload Me" .InsertLines Line + 4, "End Sub" End With Где ошибка? Последний раз редактировалось Kuraj; 15.01.2010 в 19:46. |
15.01.2010, 21:04 | #5 |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
Здравствуйте Kuraj.
ошибка в обращении к объекту: Код:
P.S. и в отсутствии обращения к форуму, "Если есть какиенить мысли говорим..." - мысль только одна, Вы не умеете здороваться. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите создать макрос (SOS!) | Ygrek | Microsoft Office Excel | 0 | 05.07.2009 17:42 |
Нужно создать макрос | avtopark | Microsoft Office Excel | 4 | 28.02.2009 22:00 |
Помогите создать макрос | Светлана632 | Microsoft Office Excel | 9 | 10.02.2009 06:18 |