Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Обработка событий листа из надстройки 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам