Автоматический запуск макроса при открытии книги

Важно :  Данная статья переведена с помощью машинного перевода, см. Отказ от ответственности. Используйте английский вариант этой статьи, который находится здесь, в качестве справочного материала.

Макрос, записанный может потребоваться автоматически выполняются при открытии конкретной книги. Пример использует следующую процедуру для показано, как это работает. Можно также запустить макрос автоматически при запуске Excel.

Прежде чем начать, убедитесь, что на ленте доступна вкладка Разработчик. Если ее нет, выполните указанные ниже действия.

  1. Откройте вкладку Файл и выберите пункт Параметры, а затем — категорию Настроить ленту.

  2. В разделе Настройка ленты в поле Основные вкладки установите флажок Разработчик.

  3. Нажмите кнопку ОК.

Чтобы использовать приведенный ниже пример в книге, создайте листы для каждого дня месяца и назовите каждую вкладку соответствующим образом, например "1 марта", "2 марта" и т. д. вплоть до "31 марта". Макрос будет автоматически запускаться при открытии книги, при этом будет отображаться вкладка текущего дня месяца.

  1. Откройте вкладку Разработчик и нажмите кнопку Visual Basic.

Группа "Код" на вкладке "Разработчик"

  1. Выберите в меню Insert пункт Модуль.

  2. Вставьте в модуль приведенный ниже код.

    Частное Sub Auto_Open()
    Dim vntToday как варианта
    vntToday = WorksheetFunction.Text (дата, "мммм дд")
    On Error Resume Next
    Sheets(vntToday). Выберите
    Если ошибка <> 0 нажмите
    MsgBox «Лист не существует».
    Еще
    Range("A1"). Выберите
    End If
    End Sub

  3. Закройте редактор Visual Basic (ничего сохранять не нужно).в

  4. Сохраните книгу как книгу Excel с поддержкой макросов (*xlsm) и закройте ее.

При открытии книги в следующий раз будет выбрана вкладка текущего дня с курсором в ячейке A1. Если лист для этого дня не существует, будет выведено сообщение "Лист не существует".

Совет : Можно было бы создавать книгу для каждого нового месяца, создавая макрос снова для новой книги.

Примечание : Отказ от ответственности относительно машинного перевода. Данная статья была переведена с помощью компьютерной системы без участия человека. Microsoft предлагает эти машинные переводы, чтобы помочь пользователям, которые не знают английского языка, ознакомиться с материалами о продуктах, услугах и технологиях Microsoft. Поскольку статья была переведена с использованием машинного перевода, она может содержать лексические,синтаксические и грамматические ошибки.

Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×