Динамически создаваемый лист и события для него

[uhm]

Задачка: нужно создать в экселе программно лист, и добавить к этому листу обработку события WorkSheet_Change. Вопрос - что для этого нужно прописать в WorkBook_NewSheet или где-то еще.

Понимаю, что тема уже поднималась не раз... В голове смутно мелькают слова WithEvents, Class Module и т. д. Но в единую картину они не сложились даже после чтения формуа. Объясните кто-нибудь, а?

[GSerg]

Код: Выделить всё

option rtfm

private withevents ws as worksheet

private sub addsheet()
  set ws=worksheets.add
end sub

private sub ws_change(byval target as range)
  msgbox "!"
end sub

[uhm]

...и таки оно не работает!

Я вставил то, что ты написал, в Class Module (Class1). Ничего не происходит. Поменял все Private на Public, написал процедуру:

Код: Выделить всё

Sub test()
    Dim x As New Class1
    Set x.ws = Worksheets.Add
 
End Sub


Сам код работает без ошибок, но событие при изменении ячейки не происходит.

Аналогично, не работает, если я делаю x.addsheet

Я совсем что-то не то делаю? Или путь правильный, просто чего-то не хватает?

[GSerg]

Я где-то упоминал про Class1?

[GSerg]

А если хочется через класс, то почитай про время жизни объектов сначала

[uhm]

Хмм...

WithEvents: Optional. Keyword that specifies that varname is an object variable used to respond to events triggered by an ActiveX object. WithEvents is valid only in class modules. You can declare as many individual variables as you like using WithEvents, but you can't create arrays with WithEvents. You can't use New with WithEvents.

Поэтому я и полез в class module. Про время жизни - это да, это я учту.

Спасибо за пример, в нем все работает. Но... Если добавить более чем один лист, event происходит только на нем, а на предыдущем - нет. Можно ли сделать таким способом event'ы для всех добавляемых листов?

[alibek]

Можно залезть в VBE, если это надо, и управлять непосредственно кодом.

[uhm]

alibek, спасибо за идею!

Сделал через VBE, так, пожалуй, проще:

Код: Выделить всё

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim k as String
k="..."
Application.VBE.ActiveVBProject.VBComponents(Sh.Name).CodeModule.AddFromString k
End Sub


k содержит код, который нужно вставить в модуль кода каждого листа.

GSerg, тебе тоже спасибо. Я немножко с этими всеми вещами разобрался.