Страница: 1 |
|
Вопрос: Новое сообщение без темы
|
Добавлено: 15.08.02 13:51
|
|
Автор вопроса: Andreika
|
А ты куда пишешь этот код? Похоже в модуль (в смысле обыкновенный модуль) ? Если так, то и не должно работать. Допустим необходимо при сохранении Книги с именем "Книга1" произвести какие либо действия. Сделай следующее: - При открытой в Экселе "Книга1" загружаем редактор VBA
- В окне Project-VBA Project раскрываем узел VBA Project(Книга1) (если еще не раскрыт).
- В окне Project-VBA Project раскрываем узел Micrisoft Excel Objects (если еще не раскрыт).
- Там-же находим узел ЭтаКнига и двойным кликом по нему открываем модуль
- В верхнем левом углу появившегося окна раскрываем список General и выбираем Workbook (двойным кликом). В окне появится Private Sub Workbook_Open()
- В раскрывающемся списке, который расположен в верхнем правом углу выбираем BeforeSave. В окне появится обработчик события Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean). Вот в него и запихивай все, что тебе необходимо.
А вообще при выбранном в левом списке какого либо элемента, в правом списке отображаются все доступные обработчики события для элемента из левого списка.
Ответить
|
Номер ответа: 1 Автор ответа: Andreika
Вопросов: 5 Ответов: 64
|
Профиль | | #1
|
Добавлено: 15.08.02 11:58
|
Так запихай все свои ко[sensored]ы в Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ...... ...... ...... End Sub и все будет выполнятся непосредственно перед сохранением, автоматически.
Ответить
|
Номер ответа: 3 Автор ответа: User Unknown
Вечный Юзер!
ICQ: uu@jabber.cz
Вопросов: 120 Ответов: 3302
|
Профиль | | #3
|
Добавлено: 15.08.02 12:27
|
AutoRun Main
Ответить
|
Номер ответа: 4 Автор ответа: Andreika
Вопросов: 5 Ответов: 64
|
Профиль | | #4
|
Добавлено: 15.08.02 13:51
|
А ты куда пишешь этот код? Похоже в модуль (в смысле обыкновенный модуль) ? Если так, то и не должно работать. Допустим необходимо при сохранении Книги с именем "Книга1" произвести какие либо действия. Сделай следующее: - При открытой в Экселе "Книга1" загружаем редактор VBA
- В окне Project-VBA Project раскрываем узел VBA Project(Книга1) (если еще не раскрыт).
- В окне Project-VBA Project раскрываем узел Micrisoft Excel Objects (если еще не раскрыт).
- Там-же находим узел ЭтаКнига и двойным кликом по нему открываем модуль
- В верхнем левом углу появившегося окна раскрываем список General и выбираем Workbook (двойным кликом). В окне появится Private Sub Workbook_Open()
- В раскрывающемся списке, который расположен в верхнем правом углу выбираем BeforeSave. В окне появится обработчик события Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean). Вот в него и запихивай все, что тебе необходимо.
А вообще при выбранном в левом списке какого либо элемента, в правом списке отображаются все доступные обработчики события для элемента из левого списка.
Ответить
|
Страница: 1 |
Поиск по форуму