Автозапуск

[Cobra9100]

Интересует вопрос:
Как запустить процедуру (программу) на одном из листов при открытии книги Excel или запустить процедуру (программу) при помощи макроса?
Заранее спасибо.

[IgorGO]

выполнить макрос можно двумя основными способами:
1. толчком для выполнения могут быть действия пользователя:
а) открыл редактор ВБА, поставил курсор в тело макроса и нажал кнопку выполнить макрос (кнопку F5 или F8 для пошагового выполнения)
б) щелкнул по кнопке на листе (а кнопке назначен макрос). в 2007 макросы можно назначить многим графическим обьектам
в) выполнил ранее назначенный пользовательский пунк меню или щелкнул по пользовательской кнопке на панеле инструментов
2. если на определенное стандартное событие описана процедура его обработки, то при каждом возникновении этого события будет выполнятся эта процедура. поцедуры обработки событий (в основном) имеют стандартные имена, стандартные параметры, должны быть обьявлены надлежащим образом в соответственных модулях. Почитайте в помощи Event для Form, WorkBook, WorkSheet и увидите много интересного. Событий довольно много, некоторые имеют отношение к формам, некоторые к листам, некоторые к книге, некоторые к проекту и т.д.
Данный пост не является исчерпывающим ответом на вопрос: я всех событий не знаю и не берусь их здесь перечислять, а тем более толковать, - здесь просто несколько примеров для общего представления о сути вопроса.

Посмотрите вложение. Обьявлено 4 процедуры. 3 в модуле проекта и одна в модуле листа. Аналогично процедуры обьявляются в модулях форм или книги. Для каждой свое место. Заголовки процедур (название и параметры) необходимо смотреть в помощи.

[Cobra9100]

IgorGO спасибо, что откликнулись на просьбу о помощи.
Извиняюсь, может, мой вопрос не столь корректен, т.к. его писал ближе к полуночи и после 3 часового поиска и попыток решить его самостоятельно.
Сформулирую немного иначе:
Есть процедура на одном из листов, можно ли ее запустить автоматически при открытии книги или вызвать процедуру при помощи макроса в Module.

[b00s]

можно ли ее запустить автоматически при открытии книги

Private Sub Workbook_Open()
<Имя процедуры которую нужно вызвать>
End Sub

[Cobra9100]

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

Private Sub Workbook_Open()
<Имя процедуры которую нужно вызвать>
End Sub

За ответ спасибо, но так не получается, это первое что я сделал, в этом случае выдает ошибку("Sub or Function not defined").
Как макрос из процедуры на одном из листов (скажим так) вызвать я знаю, а вот обратное действие, тоесть вызвать процедуру на одном из листов книги из макроса нет.

[IgorGO]

Короткий ответ - можно.
Небольшое отступление по организации возможностей для написания собственного кода:
Открываем ВБА редактор, видим проект(ы) - соответствуют открытым книгам. В каждом пректе для написания собственного кода доступны следующие обьекты:
лист(ы)
книга
дополнительно (если присутствуют) доступны
модуль(и)
форма(ы).

Процедуры, описанные в модуле, видны отовсюду, т.е. просто в коде любого обьекта пишем имя процедуры - она сработает.
Что запустить процедуру, описанную на листе, необходимо писать полный путь к ней: worksheets(N).ProcName
где,
worksheets(N) - конкретный лист, поставьте вместо N число или используйте "имя листа в скобках", или используйте любой другой способ сослаться на конкретный лист.
ProcName - имя процедуры обьявленное на листе

Конкретно по вашему вопросу:
1. В показанном ранее примере в процедуре auto_open впишите worksheets(N).ProcName
2. Та же рекомендация для примера выложенного b00s. Только описанная в примере процедура должна находится в книге
3. перенесите процедуру в модуль и вызовите из auto_open или перенесите ее в модуль и назовите auto_open.

Во всех трех случаях ваша процедура выполнится автоматически при открытии книги.
Удачи!

[EducatedFool]

Проблема заключалась в том, что в Вашем файле функция R1 определена с ключевым словом Private:

Private Sub R1()
  MsgBox ("Вот так")
End Sub

Во-первых, уберите ключевое слово Private,

Sub R1()
    MsgBox ("Вот так")
End Sub

а во-вторых, функцию, расположенную в модуле листа, надо вызывать, указывая Excel-ю, где расположена эта функция:

Sub Макрос1()
    Лист1.R1
End Sub

(Добавлено)
В этот раз я опоздал с ответом

[Cobra9100]

Спасибо ОГРОМНОЕ, теперь все вышло. На будущее буду знать.
Еще раз спасибо и всех прошедшими праздниками.