| Вопрос: Обработка событий листа из надстройки Excel | Добавлено: 08.08.05 12:51 |
Автор вопроса:  Александр | ICQ: 209258617 |
| Помогите справится с задачей: из Екселевской надстройки (*.xla) необходимо обрабатывать события листов открытой книги, например, SheetChange, SheetSelectionChange??? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 08.08.05 14:24 |
|
Поместить в ThisWorkbook надстройки.
Option Explicit
Private WithEvents app As Excel.Application Private WithEvents Wbook As Workbook Private Sub Workbook_Open() Set app = ThisWorkbook.Application End Sub Private Sub app_NewWorkbook(ByVal Wb As Excel.Workbook) Set Wbook = Wb End Sub Private Sub app_WorkbookActivate(ByVal Wb As Excel.Workbook) Set Wbook = Wb End Sub Private Sub app_WorkbookOpen(ByVal Wb As Excel.Workbook) Set Wbook = Wb End Sub Private Sub Wbook_SheetActivate(ByVal Sh As Object) 'actions End Sub Private Sub Wbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) 'actions End Sub Private Sub Wbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) 'actions End Sub |
||
|
Номер ответа: 2 Автор ответа: Александр ICQ: 209258617 Вопросов: 1 Ответов: 1 |
Профиль | | #2 | Добавлено: 09.08.05 11:56 |
|
Огроменное спасибо!!! Работает!  )))))))))
|
||
Страница: 1 |