Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как прикрепить макрос из модуля к кнопке на первом листе? / 4 сообщений из 4, страница 1 из 1
13.02.2007, 00:23:41
    #34325571
Alex37
Alex37
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прикрепить макрос из модуля к кнопке на первом листе?
Не получается прикрепить код из модуля , к кнопке, расположенной на первом листе документа (см. прилагаемый документ). Создание кнопки на панели инструментов нежелательно. Компьютеров много - устанешь настраивать. Важно, чтобы кнопка были именно в документе. Работаю на Excel 97. Если переместить код VB в саму страницу, кнопка работает, но возникает ошибка при исполнении кода. Замкнутый круг!
Подскажите, пожалуйста, как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2007, 01:43:48
    #34325615
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прикрепить макрос из модуля к кнопке на первом листе?
Alex37Не получается прикрепить код из модуля , к кнопке, расположенной на первом листе документаСоздаешь макрос в модуле, создаем код для кнопки. Потом в коде кнопки вызываешь макрос из модуля.
Код: plaintext
1.
2.
Private Sub CommandButton1_Click()
    Call Gen_zakaz
End Sub


Alex37Если переместить код VB в саму страницу, кнопка работает, но возникает ошибка при исполнении кода.А теперь все дружно играем в игру: "Угадайте какая ошибка у него возникает".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2007, 09:14:54
    #34325864
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прикрепить макрос из модуля к кнопке на первом листе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2007, 09:46:36
    #34325936
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прикрепить макрос из модуля к кнопке на первом листе?
добавил проверку существования папки
Код: plaintext
1.
2.
    wbFullName = "С:\test"
    If Dir(wbFullName, vbDirectory) = "" Then MkDir wbFullName
    wbFullName = wbFullName & "\zakaz.xls"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как прикрепить макрос из модуля к кнопке на первом листе? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 263ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183460]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 19ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 192ms
total:  263ms
x
x
Закрыть


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