Вопрос № 68077: Здравствуйте! Возможно ли отследить изменения в рабочей книге Excel (Например , смена активной ячейки на другую,
редактирование в ячейке и затем смена активной ячейки на другую) без использования событий рабочей книги
Workbook_SheetSelectionC...
Вопрос № 68.077
Здравствуйте! Возможно ли отследить изменения в рабочей книге Excel (Например , смена активной ячейки на другую,
редактирование в ячейке и затем смена активной ячейки на другую) без использования событий рабочей книги
Workbook_SheetSelectionChange и др
Отправлен: 21.12.2006, 23:39
Вопрос задал: Rewer8 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: HookEst
Здравствуйте, Rewer8!
Вы можете использовать события Application
например создаете ClassModule с именем AppEvents, в нем пишем:
'ClassModule AppEvents
Public WithEvents App As Application
Private Sub App_NewWorkbook(ByVal Wb As Workbook)
MsgBox "New Book"
End Sub
Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "Sheet change"
End Sub
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "selection change"
End Sub
'и т.д. для любых событий...
и какой-то любой другой модуль, в нем:
'module Module1
Dim x As New AppEvents
Sub InitX()
Set x.App = Application
End Sub
и теперь после запуска InitX, будут перехватыватся события Application
Ответ отправил: HookEst (статус: Студент)
Ответ отправлен: 22.12.2006, 10:20 Оценка за ответ: 5 Комментарий оценки: Всё здорово Спасибо
