Как приципить макррос на открытие файла?

[nikolai_P]

Мне необходимо чтобы когда открывался файл сразу же происходило событие. Подскажите плиз как это сделать!

[дмидми]

Private Sub Workbook_Open()
в модуле книги, который обычно в русифицированном Excel'е называется ЭтаКнига).

[nikolai_P]

В моем файле две кнопки. Я бы хотел, чтобы при открытии файла им автоматически проставлялись имена в соответствии с текущим месяцем и предыдущим.

Я все сделал как вы исказали. При открытия файла у меня появляется ошибка Run-time error '424' Object requried.

Я так понимаю, что мои кнопки создаются после?!

[дмидми]

Где файл-то?

[nikolai_P]

Вот Months.zip

[дмидми]

Сообщение от nikolai_P

Я все сделал как вы исказали.

(Польщён, слегка смущён и немного испуган свалившейся на него ответственностью.)
То-то.

Сообщение от nikolai_P

Я так понимаю, что мои кнопки создаются после?!

Нет.
Но из контекста книги объект But1 не виден, и проект не может обращаться к нему напрямую, о чём и было сообщено. Этот объект известен (принадлежит) листу с кодовым именем Лист1. Поэтому

Private Sub Workbook_Open()
   'вместо 
   'But1.Caption = 123 
   'нужно
   Лист1.But1.Caption = "123"
End Sub

Кстати: VBA, скорее всего, преобразует число 123 в строку "123", которая требуется свойству Caption, но лучше на это не рассчитывать.

[nikolai_P]

Спасибо! Все работает!!!

[nikolai_P]

А может Вы мне еще подскажите как сделать так, чтобы число месяца преобразовать в название?

current_month = month(Date) // сегодня 28.04.08,так что current_month = 4
Лист1.But1.Caption = current_month //т.е. как сделать для кнопки название "Апрель"

Не хочется писать кучу если. Выглядеть будет как лузер

[дмидми]

FormatF1, при необходимости не забыть кликнуть See Also.
Посолить и поперчить по вкусу.