Где искать макрос excel

Для автоматизации повторяющихся задач в Microsoft Excel можно быстро записать макрос. Предположим, у вас есть даты в различном формате и вы хотите применить ко всем из них один формат. Это можно сделать с помощью макроса. Вы можете записать макрос, который применяет нужный формат, а затем запускать его при необходимости.

При записи макроса все действия в записи макроса записываются Visual Basic для приложений (VBA) коде. Эти действия могут включать ввод текста или чисел, выбор ячеек или команд на ленте или в меню, форматирование ячеек, строк или столбцов или даже импорт данных из внешнего источника, скажем, Microsoft Access. Visual Basic Приложение (VBA) — это подмножество мощного Visual Basic программирования, которое входит в большинство Office приложений. Хотя VBA позволяет автоматизировать процессы как в приложениях, так и между Office, необязательно знать код VBA или программирование на компьютере, если оно делает то, что вам нужно.

Важно знать, что при записи макроса регистрируются почти все ваши действия. Поэтому если вы допустите ошибку, например нажмете не ту кнопку, средство записи макросов зарегистрирует это действие. В таком случае можно снова записать всю последовательность или изменить код VBA. Поэтому перед записью процесса следует хорошо проработать его. Чем точнее вы запишете последовательность, тем более эффективно будет работать макрос.

Макросы и средства VBA находятся на вкладке Разработчик, которая по умолчанию скрыта, поэтому сначала нужно включить ее. Дополнительные сведения см. в статье Отображение вкладки «Разработчик».

Вкладка "Разработчик" на ленте

Запись макроса

Перед записью макросов полезно знать следующее:

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

  • Если вам нужно записать длинную последовательность задач, советуем вместо этого использовать несколько более мелких макросов.

  • В макросе могут содержаться и задачи, не относящиеся к Excel. Процесс макроса может охватывать прочие приложения Office и другие программы, которые поддерживают Visual Basic для приложений (VBA). Например, вы можете записать макрос, который сначала обновляет таблицу в Excel, а затем открывает Outlook для ее отправки по электронной почте.

Чтобы записать макрос, следуйте инструкциям ниже.

  1. На вкладке Разработчик в группе Код нажмите кнопку Запись макроса.

    -ИЛИ-

    Нажмите ALT+T+M+R.

    Команда "Записать макрос" в группе "Код" на вкладке "Разработчик"

  2. В поле Имя макроса введите название макроса. Сделайте имя понятным, чтобы можно было быстро найти нужный макрос.

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

  3. Чтобы назначить сочетание клавиш для запуска макроса, в поле Сочетание клавиш введите любую строчную или прописную букву. Рекомендуется использовать сочетания клавиш с CTRL+SHIFT, так как они будут заменять собой совпадающие с ними стандартные сочетания клавиш в Excel, пока открыта книга, содержащая макрос. Например, если назначить сочетание клавиш CTRL+Z (Отменить), вы не сможете использовать его для функции «Отменить» в данном экземпляре Excel.

  4. В списке Сохранить в выберите книгу, в которой вы хотите сохранить макрос.

    Как правило, макрос сохраняется в расположении Эта книга, но если вы хотите, чтобы макрос был доступен при использовании Excel, выберите Личная книга макроса . При выборе личнойкниги макроса Excel создает скрытую личную книгу макроса (Personal.xlsб), если она еще не существует, и сохраняет макрос в этой книге.

  5. В поле Описание при необходимости введите краткое описание действий макроса.

    Хотя поле «Описание» является необязательным, рекомендуется его заполнить. Кроме того, желательно ввести понятное описание, которое будет полезно вам и всем, кто запускает макрос. Если у вас много макросов, описания помогут быстро определить, для чего они нужны.

  6. Чтобы начать запись макроса, нажмите кнопку ОК.

  7. Выполните действия, которые нужно записать.

  8. На вкладке Разработчик в группе Код нажмите кнопку Остановить запись Изображение кнопки.

    -ИЛИ-

    Нажмите ALT+T+M+R.

Работа с макросами, записанными в Excel

На вкладке Разработчик щелкните Макросы, чтобы просмотреть макросы, связанные с книгой. Кроме того, можно нажать клавиши ALT+F8. При этом откроется диалоговое окно Макрос.

Диалоговое окно "Макрос"

Внимание: Макросы нельзя отменить. Прежде чем впервые запускать записанный макрос, сохраните книгу или создайте ее копию, чтобы предотвратить внесение нежелательных изменений. Если вас не устраивают результаты выполнения макроса, вы можете закрыть книгу, не сохраняя ее.

Ниже приведены дополнительные сведения о работе с макросами в Excel.

Задача

Описание

Изменение параметров безопасности макросов в Excel

Сведения о параметрах безопасности макросов и их значении.

Запуск макроса

Макросы можно запускать различными способами, например с помощью сочетания клавиш, графического объекта, панели быстрого доступа, кнопки или даже при открытии книги.

Изменение макроса

С помощью редактора Visual Basic можно изменять макросы, присоединенные к книге.

Копирование модуля макроса в другую книгу

Если книга содержит макрос VBA, который нужно использовать где-либо еще, этот модуль можно скопировать в другую книгу с помощью редактора Microsoft Visual Basic.

Назначение макроса объекту, фигуре или графическому элементу

  1. Щелкните правой кнопкой мыши объект, рисунок, фигуру или элемент, которому вы хотите назначить существующий макрос, и выберите пункт Назначить макрос.

  2. В поле Назначить макроса выберите макрос, который вы хотите назначить.

Назначение макроса кнопке

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

Назначение макроса для элемента управления на листе

Вы можете назначать макросы формам и элементам ActiveX на листе.

Включение и отключение макросов в файлах Office

Узнайте, как включать и отключать макросы в файлах Office.

Открытие редактора Visual Basic

Нажмите клавиши ALT+F11.

Поиск справки по использованию редактора Visual Basic

Узнайте, как найти справку по элементам Visual Basic.

Работа с записанным кодом в редакторе Visual Basic (VBE)

С помощью редактора Visual Basic (VBE) вы можете добавлять в записанный код собственные переменные, управляющие структуры и другие элементы, которые не поддерживает средство записи макросов. Так как средство записи макросов фиксирует почти каждый шаг, выполняемый во время записи, может также потребоваться удалить ненужный код. Просмотр записанного кода — отличный способ научиться программировать на VBA или отточить свои навыки.

Пример изменения записанного кода можно найти в статье Начало работы с VBA в Excel.

Запись макроса

Перед записью макросов полезно знать следующее:

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

  • Если вам нужно записать длинную последовательность задач, советуем вместо этого использовать несколько более мелких макросов.

  • В макросе могут содержаться и задачи, не относящиеся к Excel. Процесс макроса может охватывать прочие приложения Office и другие программы, которые поддерживают Visual Basic для приложений (VBA). Например, вы можете записать макрос, который сначала обновляет таблицу в Excel, а затем открывает Outlook для ее отправки по электронной почте.

Макросы и средства VBA находятся на вкладке Разработчик, которая по умолчанию скрыта, поэтому сначала нужно включить ее.

  1. Перейдите в Excel > параметры…> ленты & панель инструментов.

  2. В категории Настроить ленту в списке Основные вкладки установите флажок Разработчик, а затем нажмите кнопку Сохранить.

Чтобы записать макрос, следуйте инструкциям ниже.

  1. На вкладке Разработчик нажмите кнопку Запись макроса.

  2. В поле Имя макроса введите название макроса. Сделайте имя понятным, чтобы можно было быстро найти нужный макрос.

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

  3. В списке Сохранить в выберите книгу, в которой вы хотите сохранить макрос.

    Как правило, макрос сохраняется в расположении Эта книга, но если вы хотите, чтобы макрос был доступен при использовании Excel, выберите Личная книга макроса. При выборе личнойкниги макроса Excel создает скрытую личную книгу макроса (PERSONAL.XLSB), если она еще не существует, и сохраняет макрос в этой книге. Книги в этой папке открываются автоматически при Excel, и любой код, сохраненный в личной книге макроса, будет указан в диалоговом окну Макрос, которое объясняется в следующем разделе.

  4. Чтобы назначить сочетание клавиш для запуска макроса, в поле Сочетание клавиш введите любую строчную или прописную букву. Рекомендуется использовать сочетания клавиш, которые еще не назначены другим командам, так как они будут переопределять совпадающие с ними стандартные сочетания клавиш в Excel, пока открыта книга, содержащая макрос.

  5. В поле Описание при необходимости введите краткое описание действий макроса.

    Хотя поле «Описание» является необязательным, рекомендуется его заполнить. Полезно ввести содержательное описание со всеми сведениями, которые могут быть полезны вам или другим пользователям, которые будут запускать макрос. Если у вас много макросов, описания помогут быстро определить, для чего они нужны.

  6. Чтобы начать запись макроса, нажмите кнопку ОК.

  7. Выполните действия, которые нужно записать.

  8. На вкладке Разработчик щелкните Остановить запись.

Работа с макросами, записанными в Excel

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

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

Ниже приведены дополнительные сведения о работе с макросами в Excel.

Задача

Описание

Включение и отключение макросов

Узнайте, как включать и отключать макросы в Excel для Mac.

Копирование модуля макроса в другую книгу

Если книга содержит макрос VBA, который нужно использовать где-либо еще, этот модуль можно скопировать в другую книгу с помощью редактора Microsoft Visual Basic.

Назначение макроса объекту, фигуре или графическому элементу

  1. Щелкните правой кнопкой мыши объект, рисунок, фигуру или элемент, которому вы хотите назначить существующий макрос, и выберите пункт Назначить макрос.

  2. В поле Назначить макроса выберите макрос, который вы хотите назначить.

Назначение макроса кнопке

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

Назначение макроса для элемента управления на листе

Вы можете назначать макросы формам и элементам ActiveX на листе.

Открытие редактора Visual Basic

На вкладке Разработчик щелкните Visual Basic или выберите Сервис > Макрос > Редактор Visual Basic.

Поиск справки по использованию редактора Visual Basic

Узнайте, как найти справку по элементам Visual Basic.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.


Download Article

An easy-to-use guide to find and manage macros in your Excel workbook


Download Article

This wikiHow teaches you how to see a list of macros in your Excel workbook, as well as how to view each macro’s details in the Visual Basic Editor. Before you can work with macros, you’ll need to enable the Developer tab in Excel—fortunately, this is super easy to do.

Steps

  1. Image titled View Macros in Excel Step 1

    1

    Open a workbook in Excel. You can double-click the name of the workbook to open it in Excel. Alternatively, open Excel first from the Windows Start menu or your Mac’s Applications folder, click Open, and then double-click the file.

  2. Image titled View Macros in Excel Step 2

    2

    Enable the Developer tab. If the Developer tab is enabled, it’ll be in the menu bar at the top of Excel. If you don’t see it, here’s how to enable it:

    • Windows:

      • Click the File menu and select Options.
      • Click Customize Ribbon.
      • Select Main Tabs from the «Customize the ribbon» drop-down menu.[1]
      • Check the box next to Developer and click OK.
    • macOS:

      • Click the Excel menu and select Preferences.[2]
      • Select Main Tabs under «Customize the Ribbon.»
      • Check the box next to Developer.
      • Click Save.

    Advertisement

  3. Image titled View Macros in Excel Step 3

    3

    Click the Developer tab. It’s at the top of Excel.

  4. Image titled View Macros in Excel Step 4

    4

    Click Macros. It’s on the left side of the toolbar. This displays a list of macros in all open workbooks by default.

    • To see macros in a particular workbook only, select that workbook’s name from the «Macros in» menu.
  5. Image titled View Macros in Excel Step 5

    5

    Select a macro and click Edit. This displays the macro in the Visual Basic Editor.

  6. Advertisement

Ask a Question

200 characters left

Include your email address to get a message when this question is answered.

Submit

Advertisement

Thanks for submitting a tip for review!

References

About This Article

Article SummaryX

1. Open a workbook.
2. Click the Developer tab.
3. Click Macros.
4. Select a Macro.
5. Click Edit.

Did this summary help you?

Thanks to all authors for creating a page that has been read 41,380 times.

Is this article up to date?

Хитрости »

1 Май 2011              465108 просмотров


Что такое макрос и где его искать?

Скачать файл, используемый в видеоуроке:

  Tips_Macro_Basic_Video.xls (63,5 KiB, 4 006 скачиваний)


Наверное, многие слышали это слово «макрос«, но не все имеют точное представление что это, если заглянули на эту страничку.

Макрос

— это макрокоманда(так звучит в правильном переводе с англ.языка), содержащая последовательность действий, записанных пользователем. Запись производится с помощью встроенного в пакет Microsoft Office языка программирования — Visual Basic for Application(VBA).

Зачем же нужны макросы? А нужны они для того, чтобы избавить Вас от рутинного выполнения одних и тех же действий. Например, Вам каждый день приходиться удалять из ежедневных отчетов по несколько столбцов и добавлять новые строки для шапки и т.п. Скучно и утомительно. Вы просто можете записать один раз все эти действия макрорекордером, а в дальнейшем только вызывать записанный макрос и он все сделает за Вас. Что немаловажно, для использования макрорекордера и записи макроса не надо обладать никакими навыками программирования.
В этой статье:

  • Подготовка к записи макроса
  • Запись макроса
  • Параметры записи макроса
  • Воспроизведение макроса
  • В каких файлах можно хранить макросы?
ПОДГОТОВКА К ЗАПИСИ МАКРОСА

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

  • Excel 2003:
    Сервис-Безопасность-Уровень макросов «Низкий»
  • Excel 2007:
    Кнопка ОфисПараметры Excel (Excel Options)Центр управления безопасностью (Trust Centr)Параметры центра управления безопасностью (Trust Centr Settings)Параметры макросов (Macro Settings)Разрешить все макросы (Enable All Macros)
  • Excel 2010:
    Файл (File)Параметры (Options)Центр управления безопасностью (Trust Centr)Параметры центра управления безопасностью (Trust Centr Settings)Параметры макросов (Macro Settings)Разрешить все макросы (Enable All Macros)
  • После изменения параметров безопасности макросов необходимо перезапустить приложение Excel: закрыть его полностью и открыть заново. Только после этого изменения вступят в силу.

Прежде чем начать записывать макрос необходимо помнить следующее:

  • Макрорекордер записывает АБСОЛЮТНО ВСЕ ваши действия – ошибки, прокручивание экрана, переключение между листами, выделение ячеек и т.д. Поэтому перед записью своих действий необходимо сначала тщательно продумать все свои действия, чтобы в дальнейшем записать только то, что действительно необходимо записать и в дальнейшем воспроизвести. Это сократит как сам код, так и время его выполнения
  • Макрорекордер записывает действия выполненные только в пределах Microsoft Excel. Если вы переключитесь в другое приложение – действия в этой программе записаны не будут. Если закроете Excel – запись прекратится
  • Макрорекордер может записать только те действия, которые можно проделать вручную(те, которые доступны для выполнения из меню и с панелей)
  • Если во время кода вы совершили ошибочное действие и нажали кнопку отмены(Ctrl+Z) – отмененное действие не будет записано в макрос, как будто вы его просто не делали
ЗАПИСЬ МАКРОСА

Для пользователей Excel 2003 запись макроса возможна через меню:
СервисМакрос Начать Запись
Начать запись

Для пользователей Excel 2007-2010 и старше:

ПАРАМЕТРЫ ЗАПИСИ МАКРОСА

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

Имя макроса

– не должно содержать пробелов, запятых, двоеточий и т.п. Допустимы символы кириллицы, латиницы, цифры и нижнее подчеркивание (я рекомендую давать макросам имена, содержащие только буквы латиницы). Имя макроса всегда должно начинаться с буквы и не должно совпадать со встроенным именем Excel или именем другого объекта в книге (например, не должно носить имя Workbook, Cells или ЭтаКнига). Лучше давать макросу сразу понятное имя, отражающее примерную суть того, что он делает.

Сочетание клавиш

– можно назначить вызов макроса сочетанием клавиш. Доступно назначение любой цифры или буквы в сочетании с Ctrl.

Сохранить в

– выбираете место хранения записываемого макроса. Доступны варианты:

  • Эта книга (This Workbook) – макрос будет записан в той же книге, из которой была запущена запись. Записанный макрос будет доступен из приложения только если книга открыта
  • Новая книга (New Workbook) – будет создана новая книга, в которой записан макроса. Записанный макрос будет доступен из приложения только если книга открыта
  • Личная книга макросов (Personal Macro Workbook) – самый интересный вариант. Если его выбрать, то макрос будет сохранен в отдельной книге PERSONAL.XLS (для Excel 2007 и выше — PERSONAL.XLSB). Макросы, записанные в эту книгу доступны из всех открытых книг Excel и эта книга подключается автоматически при запуске самого Excel. Т.е. однажды записав где-то макрос в эту книгу – он теперь будет доступен из любой книги независимо от того, открыта ли книга, из которой был записан макрос или нет. Изначально эта книга отсутствует и создается в момент первого обращения к ней (т.е. как только вы первый раз выбрали Сохранить в личную книгу макросов)
ВОСПРОИЗВЕДЕНИЕ МАКРОСА

После записи макроса запустить его можно разными способами:

  1. ПРИ ПОМОЩИ СОЧЕТАНИЯ КЛАВИШ: Alt+F8
    Этот способ универсальный и его можно использовать из любой версии Excel. Достаточно нажать сочетание клавиш Alt+F8 и выбрать нужный макрос из списка:
    Вызов макроса
  2. ВЫЗОВ ИЗ МЕНЮ:
    Excel 2007-2010 и старше: вкладка Разработчик (Developer)Макросы (Macros)
    Excel 2003: СервисМакросМакросы
  3. НАЖАТИЕМ СОБСТВЕННОЙ КНОПКИ НА ЛИСТЕ:
    Можно разместить на листе собственную кнопку, по нажатии которой будет запускаться записанный макрос. Подробно этот процесс я описал в статье: Как создать кнопку для вызова макроса на листе
  4. ПРИ ПОМОЩИ НАЗНАЧЕННЫХ МАКРОСУ ГОРЯЧИХ КЛАВИШ:
    Если вы перед записью назначили макросу сочетание клавиш, то вы также можете вызвать этот макрос и нажатием данного сочетания. Горячие клавиши макросу можно назначить и после записи: Alt+F8→ Выделяем нужный макрос→ Параметры (Options).
  5. ПРИ НАСТУПЛЕНИИ ОПРЕДЕЛЕННОГО СОБЫТИЯ В ЛИСТЕ ИЛИ КНИГЕ:

    Прежде чем пробовать использовать этот метод рекомендуется изучить статью Что такое модуль? Какие бывают модули?Для этого сначала необходимо вставить код макроса в тело событийной процедуры (подробнее про событийные процедуры). Например, если выбрать процедуру листа Change, то в лист автоматически будет вставлена пустая процедура:

    Private Sub Worksheet_Change(ByVal Target As Range)
     
    End Sub

    Если ранее вами был записан код выделения и удаления двух столбцов – Макрос1:

    Sub Макрос1()
    '
    ' Макрос1 Макрос
    ' макрос удаляет столбцы C и D из активного листа
    '
    ' Сочетание клавиш: Ctrl+Shift+Q
    '
        Columns("C:D").Select
        Selection.Delete Shift:=xlToLeft
    End Sub

    То для выполнения это кода при наступлении события изменения на листе можно вставить вызов этого макроса:

    Private Sub Worksheet_Change(ByVal Target As Range)
        Call Макрос1
    End Sub

    или вставить сам код (без Sub и End Sub) внутрь процедуры Worksheet_Change:

    Private Sub Worksheet_Change(ByVal Target As Range)
        Columns("C:D").Select
        Selection.Delete Shift:=xlToLeft
    End Sub
В каких файлах можно хранить макросы?

Как ни странно, но начиная с версии 2007 Excel не все файлы могут хранить макросы. Это значит, что если макрос был записан в файле и потом файл был сохранен в формате, который хранение макросов не поддерживает — макросы пропадут. Как правило Excel в таком случае выдаст предупреждение о том, что проект VBA в файле этого формата не может быть сохранен и будет удален, если нажать Да:
Сохранение без макросов
Чтобы сохранить файл с поддержкой макросов необходимо будет нажать Нет и из списка форматов выбрать тот, который поддерживает хранение макросов.
Ниже приведены форматы файлов, применяемые в Excel с описанием того, можно ли в них хранить макросы(VBA коды):

  • *.xls – формат книги Excel 97–2003 (поддержка VBA, макросов)
  • *.xla – надстройка Excel 97–2003 (поддержка VBA, макросов)
  • *.xlsx – формат книги Excel 2007 по умолчанию без поддержки макросов
  • *.xlsm – книга Excel 2007 с поддержкой макросов
  • *.xlsb – двоичный формат для больших объемов данных (с поддержкой VBA, макросов)
  • *.xltx – шаблон книги Excel 2007 без поддержки макросов
  • *.xltm – шаблон книги Excel 2007 с поддержкой макросов
  • *.xlam – надстройка Excel 2007

Для смены формата файла его необходимо сохранить в другом формате:

  • Excel 2007: Кнопка ОфисСохранить как(SaveAs) -Выбрать необходимый формат файла
  • Excel 2010: Файл(File)Сохранить как(SaveAs) -Выбрать необходимый формат файла

Теперь несложно понять, что хранить макросы в версиях Excel 2007 и выше можно в форматах: xls, xla, xlsm, xlsb, xltm, xlsm.

Также см.:
Почему не работает макрос?
Как создать кнопку для вызова макроса на листе?
Select и Activate — зачем нужны и нужны ли?
Как ускорить и оптимизировать код VBA


Статья помогла? Поделись ссылкой с друзьями!

  Плейлист   Видеоуроки


Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Как использовать Личную Книгу Макросов

Если вы еще не знакомы с макросами в Excel, то я вам даже немного завидую. Ощущение всемогущества и осознание того, что ваш Microsoft Excel можно прокачивать почти до бесконечности, которые придут к вам после знакомства с макросами — приятные чувства.

Однако, эта статья для тех, кто уже «познал мощь» и начал использовать макросы (чужие или написанные самостоятельно — не важно) в своей повседневной работе.

Макрос — это код (несколько строк) на языке Visual Basic, которые заставляют Excel сделать то, что вам нужно: обработать данные, сформировать отчет, скопипастить много однообразных таблиц и т.п. Вопрос — где эти несколько строк кода хранить? Ведь от того, где макрос хранится будет потом зависеть где он сможет (или не сможет) работать.

Если макрос решает небольшую локальную проблему в отдельно взятом файле (например обрабатывает внесенные в конкретный отчет данные особым образом), то логично хранить код внутри этого же файла. Без вопросов.

А если макрос должен быть относительно универсален и нужен в любой книге Excel — как, например, макрос для конвертирования формул в значения? Не копировать же его код на Visual Basic каждый раз в каждую книгу? Кроме того, рано или поздно, почти любой пользователь приходит к мысли, что неплохо было бы сложить все макросы в одну коробку, т.е. иметь их всегда под рукой. И может быть даже запускать не вручную, а сочетаниями клавиш? И вот тут может здорово помочь Личная Книга Макросов (Personal Macro Workbook).

Как создать Личную Книгу Макросов

На самом деле, Личная Книга Макросов (ЛКМ) — это обычный файл Excel в формате двоичной книги (Personal.xlsb), который автоматически в скрытом режиме открывается одновременно с Microsoft Excel. Т.е. когда вы просто запускаете Excel или открываете любой файл с диска, на самом деле открываются два файла — ваш и Personal.xlsb, но второго мы не видим. Таким образом все макросы, которые хранятся в ЛКМ оказываются доступы для запуска в любой момент, пока открыт Excel.

Если вы еще ни разу не пользовались ЛКМ, то изначально файл Personal.xlsb не существует. Самый легкий способ его создать — это записать рекордером какой-нибудь ненужный бессмысленный макрос, но указать в качестве места для его хранения Личную Книгу — тогда Excel будет вынужден автоматически ее для вас создать. Для этого:

  1. Откройте вкладку Разработчик (Developer). Если вкладки Разработчик не видно, то ее можно включить в настройках через Файл — Параметры — Настройка ленты (Home — Options — Customize the Ribbon).
  2. На вкладке Разработчик нажмите кнопку Запись макроса (Record Macro). В открывшемся окне выберите Личную книгу макросов (Personal Macro Workbook) как место для хранения записанного кода и нажмите OK:

    Записываем макрос в Личную Книгу Макросов

  3. Остановите запись кнопкой Остановить запись (Stop Recording) на вкладке Разработчик (Developer)

Проверить результат можно, нажав на кнопку Visual Basic там же на вкладке Разработчик — в открывшемся окне редактора в левом верхнем углу на панели Project — VBA Project должен появиться наш файл PERSONAL.XLSB. Его ветку которого можно развернуть плюсиком слева, добравшись до Module1, где и хранится код только что записанного нами бессмысленного макроса:

Личная Книга Макросов в редакторе VBA

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

Как использовать Личную Книгу Макросов

Дальше все просто. Любой нужный вам макрос (т.е. кусок кода, начинающийся на Sub и заканчивающийся End Sub) можно смело копировать и вставлять либо в Module1, либо в отдельный модуль, добавив его предварительно через меню Insert — Module. Хранить все макросы в одном модуле или раскладывать по разным — исключительно вопрос вкуса. Выглядеть это должно примерно так:

Полезный макрос в Личной Книге Макросов

Запустить добавленный макрос можно в диалоговом окне, вызываемом с помощью кнопки Макросы (Macros) на вкладке Разработчик:

Запуск макросов

В этом же окне, нажав кнопку Параметры (Options), можно задать сочетание клавиш для быстрого запуска макроса с клавиатуры. Будьте внимательны: сочетания клавиш для макросов различают раскладку (русская или английская) и регистр.

Кроме обычных макросов-процедур в Личной Книге можно хранить и пользовательские макро-функции (UDF = User Defined Function). В отличие от процедур, код функций начинаются с оператора Function или Public Function, а заканчиваются на End Function:

Пример макро-функции

Код необходимо аналогичным образом скопировать в любой модуль книги PERSONAL.XLSB и затем можно будет вызвать функцию обычным образом, как любую стандарную функцию Excel, нажав кнопку fx в строке формул и выбрав функцию в окне Мастера Функций в категории Определенные пользователем (User Defined):

Выбор пользовательской функции в окне Мастера Функций

Примеры таких функций можно в больших количествах найти в интернете или здесь же на сайте (сумма прописью, приблизительный текстовый поиск, ВПР 2.0, конвертация кириллицы в транслит и т.п.)

Где хранится Личная Книга Макросов

Если вы будете использовать Личную Книгу Макросов, то рано или поздно у вас возникнет желание:

  • поделиться своими накопленными макросами с другими пользователями
  • скопировать и перенести Личную Книгу на другой компьютер
  • сделать ее резервную копию

Для этого нужно будет найти файл PERSONAL.XLSB на диске вашего компьютера. По умолчанию, этот файл хранится в специальной папке автозапуска Excel, которая называется XLSTART. Так что все, что нужно — это добраться до этой папки на нашем ПК. И вот тут возникает небольшая сложность, потому что местоположение этой папки зависит от версии Windows и Office и может различаться. Обычно это один из следующих вариантов:

  • C:Program FilesMicrosoft OfficeOffice12XLSTART
  • C:Documents and SettingsComputerApplication DataMicrosoftExcelXLSTART
  • C:Usersимя-вашей-учетной-записиAppDataRoamingMicrosoftExcelXLSTART

Как вариант, можно спросить о положении этой папки сам Excel с помощью VBA. Для этого в редакторе Visual Basic (кнопка Visual Basic на вкладке Разработчик) нужно открыть окно Immediate сочетанием клавиш Ctrl+G, ввести туда команду ? Application.StartupPath и нажать на Enter:

Путь к личной книге макросов

Полученный путь можно скопировать и вставить в верхнюю строку окна Проводника в Windows и нажать Enter — и мы увидим папку с нашим файлом Личной Книги Макросов:

Файл Личной Книги Макросов в папке XLSTART

P.S.

И несколько практических нюансов вдогон:

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

Ссылки по теме

  • Что такое макросы, как их использовать в работе
  • Полезности для VBA-программиста
  • Тренинг «Программирование макросов на VBA в Microsoft Excel»

Редактирование макроса

​Смотрите также​​On Error GoTo​ чего-то написать»​With ThisWorkbook​ на нужный вариант(дату)​ файл.bak есть то​ буду вручную запускать,​ находится ещё 1​ сохранена? Я создал​ только для чтения.​ которые пишете вручную)​ xlsx, xlsm, xlsb…​ и имя книги​ папка автозагрузки. Папка,​ но я попробовал​После этого макрос будет​Справка Microsoft Visual Basic​Примечание:​ er​End If​Application.Run («personal.xlsb!reserv»)​ лишнее — просто​

​ пусть создается файл1.bak​ найду способ решения​ попка Microsoft Office,​ новую книгу, зашёл​

​ Чтобы сохранить изменения,​​ кладите в файл​Natrium​ — рандомный набор​ дополняющая стандартную папку​

Изменение параметров безопасности макросов

​ туда вставить шаблоны​ доступен при каждом​или нажмите клавишу​

  1. ​Мы стараемся как​​Dim LastSaved$, Backup$​​er:​​End With​​ удаляете.​​Ну либо как-то​​ — отпишу.​

    Группа

  2. ​ но в ней​​ туда в макросы,​​ сохраните книгу с​​ Персонал. Жмите Альт+F11​: Пробовал, выбирал, там​ символов — попробуй​​ автозагрузки XLStart, содержащую​ *.xlb и *.xlt​​ открытии Excel.​​ F1.​

    ​ можно оперативнее обеспечивать​​LastSaved = Wb.BuiltinDocumentProperties(«Last​End Sub​End Sub​Тут есть пример​ ещё.​Manyasha​

Редактирование макроса

  1. ​ непонятная мне лабуда.​​ скопировал все макросы​​ новым именем или​​ — Контрл+R -​​ тип файла прописывается​​ разбери где что.​​ книги или другие​

  2. ​ результата нет.​​Чтобы было проще вспомнить,​​Примечание:​ вас актуальными справочными​

  3. ​ Save Time»)​​Private Sub Workbook_Open()​​Автоматизация заключается в​ и описание​

​Может кто сталкивался​​: Посмотрите в Файл-Параметры-Надстройки-Управление:»Отключенные​ Да и странно​ туда. Нажал сохранить​ в другом расположении.​​ ищите Персонал -​​ числовым значением. Но​​ И вот надумал​​ файлы, которые должны​Саня​

support.office.com

Запись макроса для открытия определенных книг при запуске Excel

​ что делает макрос,​​Мы стараемся как​ материалами на вашем​If Dir(Wb.Path &​Set app =​ том, что при​Иногда файлы ловят​ с таким?​ объекты»-Перейти.​ что версия для​ как — Макросы.xlam.​ «​ создавайте там модуль​ и это значение​ я создать макрос​ открываться автоматически при​: такие шаблоны в​ введите его описание​ можно оперативнее обеспечивать​ языке. Эта страница​ «excel_bak», vbDirectory) =​ Application​

​ каждом открытии Вашего​ неисправимые глюки(по разным​Задача вроде не​Вот здесь http://www.excelworld.ru/forum/2-2033-1#22368​ 32-хбитной системы записана​ После открыл файлик,​Зашёл в свойства,​ (или открывайте существующий)​ «не работает» при​ по своим функциям​ запуске Microsoft Excel,​

​ XLSTART вставишь, они​ в поле​ вас актуальными справочными​​ переведена автоматически, поэтому​​ «» Then MkDir​End Sub​ рабочего файла создается​

  1. ​ причинам), и потом​​ особо сложная. ДУмаю​​ вроде бы такая​​ не в Program​​ где мне нужны​ действительно только чтение​​ и кладите в​​ вставке в код,​

  2. ​ аналогичный пункту меню​​ и шаблоны, которые​​ и будут по​​Описание​​ материалами на вашем​​ ее текст может​​ (Wb.Path & «excel_bak»)​

  3. ​и перезапустить Excel​​ резервная копия файла.​​ работавший долгое время​

​ и сам бы​ же проблема​ Files (x86).​ макросы. Там зашёл​

  1. ​ и чтение и​​ него все то,​​ или я как-то​​ «Сохранить как…», зачем​​ должны быть доступны​

Группа

  1. ​ умолчанию​​. Можно также оставить​​ языке. Эта страница​​ содержать неточности и​​Backup = Wb.Path​

  2. ​fairylive​​Только обратите внимание​​ файл может просто​​ справился. Но пока​​fairylive​

  3. ​Спасибо большое за​ в параметры-надстройки (у​ выполнение стоит галочка​

  4. ​ что нужно. Если​ не так его​ спросите? Да для​ при создании книг.).​​УПОРНЫЙ​​ это поле пустым.​ переведена автоматически, поэтому​

  5. ​ грамматические ошибки. Для​​ & «excel_bak» &​​:​

  6. ​ на расширение файла​​ перестать открываться т.е.​​ не понимаю как​​: Всем привет! У​​ помощь!​ себя вкладку Разработчик​ во вкладке «безопастность».​ Персонала нет, то​ прописал…​ того чтобы можно​УПОРНЫЙ​:​Нажмите кнопку​ ее текст может​

  7. ​ нас важно, чтобы​​ Replace(LastSaved, «:», «.»)​​krosav4ig​​ — у меня​​ RIP.​

  8. ​ добавить такое событие​ меня случился нереальный​Manyasha​ я не нашёл)-поставил​Зашёл в «Изменить»​ сначала запишите любой​Юрий М​ было назначить его​

    ​:​Саня​ОК​ содержать неточности и​

support.office.com

Где хранятся Шаблоны и макросы Excel (Макрос для поиска используемых шаблонов и макросов)

​ эта статья была​​ & » «​, спасибо, походу дела​ оно​fairylive​ (после открытия любого​
​ облом. Сохранил файл​: А что с​ галочку напротив Макросы.xlam.​
​ поставил галочку «Полный​ макрос (см. п.1)​
​: Вот что у​ на какую-нибудь комбинацию​Serge_007​,​.​ грамматические ошибки. Для​ вам полезна. Просим​ & Wb.Name​ то что надо!​xlsb​
​: Это в каждый​ файла). Где должен​ с изменениями которых​ директорией Не пробовали​ Далее иду в​ доступ».​

​ — он появится.​​ меня записал рекордер​ клавиш.(Помнится мне в​

​,​​Я понял, о​​Откройте вкладку​​ нас важно, чтобы​
​ вас уделить пару​If Wb Is​Не совсем понятно​Также макрос reserv​ файл придётся вставлять​ макрос лежать?​

​ быть не должно.​​ туда ЛКМ перенести?​ макросы, но нигде​Снова пробую у​Roman777​

​ при Сохранить Как​​ Open/Libre Office наряду​​Перепробовал все, ничего​​ чем Вы говорите,​
​Файл​ эта статья была​ секунд и сообщить,​ Me Or Wb.IsAddin​ как работает. Можете​ — можно повесить​ этот макрос? На​al-Ex​ Пол дня (хорошо​

​Roman777​​ макросов не вижу​​ себя создать макрос​​:​
​ и с поддержкой​ с «Сохранить» [Ctrl+S],​ не понимаю что​
​ просто у Вас​, выберите пункт​ вам полезна. Просим​ помогла ли она​ Then Exit Sub​ пояснить немного код?​
​ на кнопку и​ автоматизацию не очень​: В личной книге​
​ хоть всего пол​:​ (должен ли я​

​ в личной книге​​_Boroda_​​ макросов (xlsm): ActiveWorkbook.SaveAs​​ есть и комбинация​
​ с этим шаблоном.​ Excel 20**, а​
​Открыть​ вас уделить пару​​ вам, с помощью​​If Wb.FullName <>​​Вот эта строчка​​ перед какой -​ похоже. Или я​​ макросов. PERSONAL.XLSB или​​ дня) работы на​​Manyasha​​ там где-нибудь их​ макросов. И снова​, Спасибо большое!​ Filename:=»D:DocExcelКнига107.xlsm», FileFormat:= _​ «Сохранить как…» [Ctrl+Shift+S],​ По прежнему создается​ у меня Excel​и выберите файлы,​ секунд и сообщить,​ кнопок внизу страницы.​ Wb.Name And Not​ должна заменять текущий​ то сложной операцией​​ не уловил что-то?​​ в надстройке.​
​ смарку. Давайте подумаем​
​, У меня Win7​ увидеть?).​​ пока Персонал закрыт,​​Roman777​ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False​ а вот в​ книга открытая на​ 2003, поэтому расширения​ с которыми работаете​ помогла ли она​ Для удобства также​ SaveAsUI Then ‘And​ бэкап или нет?​ запускать​ Попозже попробую в​berya​ как можно сделать​

​ и на моём​​Manyasha​​ говориться о том,​​:​
​JayBhagavan​ Excel, к сожалению,​ третьем листе со​ такие но ничего​ каждый день. Они​ вам, с помощью​ приводим ссылку на​ MsgBox(«Сделать бэкап?», 36)​Backup = Wb.Path &​fairylive​ деле.​: Добрый день​
​ так чтобы такое​ компьютере в принципе​

​:​​ что он не​

​_Boroda_​​: В Excel горячая​​ такой нет). Получился​​ шрифтом Arial размером​
​ не работает по​

​ могут находиться в​​ кнопок внизу страницы.​

​ оригинал (на английском​​ = 6 Then​ «» & Replace(LastSaved,​: Да спасибо, я​

​Цитата​​Создает резервную копию​ предупредить в будущем.​ директории такой не​Вкладка Разработчик​ открыт. Открываю -​
​, При опробывании первого​ клавиша F12 -​

​ у меня вот​​ 10 пунктов. Скриншоты​ прежнему.​ разных местах. Чтобы​

excelworld.ru

Создание макроса для сохранения книги

​ Для удобства также​​ языке) .​Shell Join(Array(«cmd /c​
​ «:», «.») &​ именно так и​SLAVICK,​
​ файла в папке​ Такое уже не​ существует. И директории​в эксель 2007:​ всёравно пишет «Файл​ способа, возникла ошибка.​ сохранить как. Не​ такой код:​ до приемлемых размеров​УПОРНЫЙ​ выбрать несколько файлов​ приводим ссылку на​Чтобы отредактировать макрос, который​ copy «, Wb.FullName,​ » » &​ думал. Но ваш​13.12.2017 в 09:52,​ «_Резерв» в том​ первый раз случается.​ Documents and Settings​ Файл-Параметры-Основные поставить галку​ PERSONAL.xlsb нельзя сохранить:​ Я выбрал «Личная​ вижу смысла свой​Sub Save_Ass ()​ ужать не сумел,​:​ в одной папке,​ оригинал (на английском​ вложен в книге​ » «, Backup,​ Wb.Name​ вариант скорей подойдёт​ в сообщении №​ же каталоге где​ Но бывало спасало​ нет. У меня​ «Показывать вкладку разработчик».​ он доступен только​ книга макросов», мне​ диалог писать.​ Const iTitle =​ поэтому положил архив​Саня​
​ щелкните каждый из​ языке) .​ Microsoft Excel, используйте​ » /y»), «»»»)​Ещё при сохранении​ для людей которые​ 4 () Посмотрите​ и запускается файл​ автосохранение. Сейчас оно​ есть похожая директория​Создание надстройки:​ для чтения. Чтобы​ выскочило окошко «Личная​Natrium​ «Сохранение рабочей книги»​ сюда:​,​ них, удерживая нажатой​Предположим, что вы хотите​
​ редактор Visual Basic.​Do While Dir$(Backup)​ КАК выскакивает «Тут​ что-то понимают в​ на всякий случай​В модуль «Эта​ не помогло.​ C:UsersOfice123AppData (где Оfice123​при сохранении файла​
​ сохранить изменения, сохраните​ книга макросов в​: Спасибо Вам огромное!​
​ Const FilterList =​http://webfile.ru/5467099. Обещали хранить​Win 7. Папка​
​ клавишу SHIFT.​ записать макрос для​Важно:​ = «»​ можно чего-то написать».​
​ макросах и как​ тут:​ книга» помещаете:​

​Продумать такой случай​​ — имя моего​ с макросами выбрать​

​ книгу с новым​​ папке автозагрузки должна​ Вот уже 5лет​ «Книга Excel 97-2003​ 7 дней.​ Documents and Settings​Откройте вкладку​ открытия книг, которые​

​ Перед началом работы с​​DoEvents​ Так и должно​ минимум долго работают​c:UsersПОЛЬЗОВАТЕЛЬAppDataLocalMicrosoftOfficeUnsavedFiles​

​Private Sub Workbook_Open()​​ который и произошел​ юзера). Но в​тип​ именем или в​ оставаться открытой для​ пользую Excel разных​ (*.xls), *.xls,Книга Excel​Serge_007​ отказано в доступе​

​Разработчик​​ используете каждый день,​ макросами, необходимо включить​Loop​ быть?​ с одним и​иногда сохраняются даже​reserv​

​ у меня.​​ папке AppData в​Надстройка Excel .xlam​ другом расположении.»​ записи.». А После​ версий от ’97​

​ (*.xlsx), *.xlsx,Книга Excel​​: Обманули.​»Вообще-то в Windows​и нажмите кнопку​ при запуске Excel.​ вкладки «Разработчик». Подробнее​ElseIf SaveAsUI Then​И пожалуй стоит​ тем же файлом.​ сохраненные файлы.​End Sub​
​Я открыл файл.​ принципе нет папок​ (см. скрин в​

planetaexcel.ru

Сохранение макросов не в формате .xlsm (Макросы/Sub)

​Manyasha​​ выскочило второе окошко​
​ до ’10, не​ (макро) (*.xlsm), *.xlsm,Книга​УПОРНЫЙ​ 7 нет такой​Остановить запись​ Вы можете создать​ читайте вкладку «Разработчик».​’MsgBox «Тут можно​ сохранять эти бэкапы​ Изо дня в​Смотрел, там пусто.​в модуль1 (или​Сделал изменения.​ Excel и уж​ приложении).​:​
​ «Запись невозможна.»​ новичок, вроде бы,​ Excel (двоичная) (*.xlsb),​:​
​ папки, это всего​.​ макроса «Авто_открыть», чтобы​Для редактирования и запуска​ чего-то написать»​ в отдельную папку​ день. У меня​Что-то мне сдаётся​

​ любой другой:​​Нажал сохранить.​ тем более XLSTART​Подключить можно через​Roman777​А по второму​ даже вот до​ *.xlsb» Dim strName1​Serge_007​
​ лишь ярлык для​При закрытии Excel в​ сделать это. Вы​ макросов требуется временно​End If​ в той же​ по сути объём​ средствами экселя такое​КодSub reserv()​Закрыл файл.​ в директории AppData​ Разработчик-Надстройки-обзор-, либо Файл-Параметры-Надстройки-надстройки​, а с правами​ способу попробовал, Персонала​ макросов добрался, а​ As String strName1​

​,​​ совместимости со старыми​​ конечном итоге будет​​ также можете запускайте​

​ включить их.​​er:​​ папке где находится​​ работы такой что​ не сделать. Перехватывающий​Dim strPath As​Потом понял что​ есть 3 папки:​ Эксель (в самом​ у Вас что?​ не было…(​ про F12 не​ = «Книга» strName2​Переложил http://depositfiles.com/files/2lzpsx6t2​
​ программами».​ предложено сохранить изменения​ макрос автоматически при​

​На вкладке​​End Sub​ исходник (Или может​ один файл может​ скрипт какой-то мутить?​ String​ произошло что-то не​ Local; LocalLow; Roaming.​ низу окошка)-перейти-обзор​ Может доступ к​Roman777​ знал.​ = Application.GetSaveAsFilename(InitialFileName:=strName1, filefilter:=FilterList)​Serge_007​Documents and Settings​ в личной книге​ открытии книги.​Разработчик​Private Sub Workbook_Open()​ вообще в какую-то​ создаваться от 10​berya​Dim strDate As​ то. Файл надо​ Но когда я​Внимание!​ этой папке закрыт?​: Я создал в​Уважаемые администраторы, ответ​ If strName2 =​: http://www.excelworld.ru/forum/2-639-7234-16-1311447819​

​ находится по адресу​​ макросов. Нажмите кнопку​​Прежде чем начать, убедитесь,​​в группе​Set app =​ общую папку, например​ минут до 8​

​: fairylive,​​ String​​ было​​ глянул туда, мне​Макросы надстроек не​ Попробуйте переместить этот​ C:Program FilesMicrosoft Office​ получен, тему можно​ «False» Then MsgBox​Гость​ C:UsersИмя пользователяAppDataRoamingMicrosoftШаблоны​ «Да», чтобы макрос​ что на ленте​
​Код​ Application​ на сервере с​ часов. Несколько дней​Добрый день.​
​Application.ScreenUpdating = False​сохранить как​ как-то не пришло​
​ видны в списке​ файл куда-нибудь или​ 15rootoffice15xlstart эксельфайлик вручную.​ закрыть.​ prompt:=»Сохранение отменено», Title:=iTitle​: подскажите пожалуйста, на​У меня там​ запускался при каждом​ доступна вкладка​нажмите кнопку​End Sub​ рэйдмассивом, чтобы повысить​ — исключительная редкость.​Создаете файл personal.xlsb​strPath = ThisWorkbook.Path​!​

​ в голову куда​​ доступных макросов (по​​ переименовать, например в​​ назвал personal.xls. При​Roman777​ Else ActiveWorkbook.SaveAs Filename:=strName2​ компе нету папки​ лежит только Normal.dot​ запуске Excel.​Разработчик​Безопасность макросов​

​fairylive​​ шансы выживания файлов).​ Но здесь тогда​ — помещаете его​If Len(Dir(strPath &​Разумеется никаких копий​ я могу там​ крайней мере, я​ PERSONAL111.xlsb​ открытой данной книге,​

​: Добрый день!​​ End If End​ шаблоны? (​ шаблон Ms Word.​Каждый раз при запуске​. Если ее нет,​​.​​: Всплыл БАГ. При​
​ А то слишком​ пользователи сами создают​ в папку …..AppDataRoamingMicrosoftExcelXLSTART​ «_Резерв», vbDirectory)) =​ автосохранения не сохранилось.​ создать такую (XLSTART)​ их не увидела),​
​Roman777​​ вродебы я могу​Раньше я мог​ Sub​

​IgorGo​​Serge_007​​ Excel автоматически будут​​ выполните указанные ниже​В разделе​ работе с сетевыми​ много копий появляется​ резервные копии.​В модуль сохраняете​ 0 Then MkDir​ Прошёлся recuva -​ папку. Там в​ т.е. запускать их​: В папку через​ сохранять макросы в​ сохранять свои макросы,​Вот только сохраняет​: даже не знаю…​: Для​ открываться книги, включенные​ действия.​Параметры макросов​ файлами. В связи​ в текущей папке,​krosav4ig​Sub reserv()​ strPath & «_Резерв»​ пусто. Искал в​ основном временные файлы​

​ можно только из​​ сохранить как не​​ личную книгу. Но​​ не сохраняя файл​ он коректно только​ то-ли страна такая,​
​Excel 2003​​ в макрос.​Откройте вкладку​​выберите параметр​​ с отсутствием админских​ если поставить это​: В PERSONAL.XSLB в​
​Dim strPath As​On Error Resume​ папке где лежит​ и кэш, мне​
​ редактора VBA (Alt+F11).​​ получается, права действительно​ когда уже закрываю​ в расширении .xlsm​ книги в формате​ то-ли еще чего​:​УПОРНЫЙ​Файл​
​Включить все макросы (не​​ прав. Появляется ошибка​ дело на автомат​ модуль ЭтаКнига​ String​ Next​​ сам файл и​​ так кажется).​
​Личная книга​ словно ограничены. Но​ свой файл. Потом​ (По-моему, макросы сохранялись​ .xls (97-2003) и​

​ — ничего на​​Хранение стандартных шаблонов книг​​: Для поиска папки​​и выберите пункт​ рекомендуется, возможен запуск​ что нет прав​
​ (имею ввиду если​Private WithEvents app As​Dim strDate As​x = GetAttr(strPath)​ в папке автосохранения​
​Manyasha​: мне кажется Вы​ когда переношу файлик​ пытаюсь закрыть файл​ куда-то вне файла​ .xlsx (2007-2010), а​ месте не улежит.​ и листов​ автозагрузки (здесь я​Параметры​ опасной программы)​ если попытаться сохранить.​ убрать всплывающее окно​ Application​ String​ And 0​ Excel. В интернете​:​ не ту папку​ с любого места​ Персонал с сохранением.​
​ самого, поскольку в​ при попытке сохранить​

​может на соседнем​​Если шаблон с​ нашел мою Personal.xls)​, а затем —​

​, а затем нажмите​​ Плюс в чужих​​ с вопросом Сделать​​Private Sub app_WorkbookBeforeSave(ByVal​Dim x​If Err =​ пишут что если​Roman777​ используете, положите Вашу​ в папку xlstart​ Он мне говорит,​ окошке выбора макросов​ книгу в .xlsb​ компьютере поискать​ именем​ добрые люди подсказали​ категорию​ кнопку​ папках появляется папка​ бэкап).​ Wb As Workbook,​Dim FileNameXls​ 0 Then​ бы я перезаписал​, посмотрела дома (стоит​ ЛКМ (или создайте)​ то проблем нет​ что либо путь​ была ссылка «…PERSONAL…Имя​ и .xlsm дает​Alex_ST​

​Book.xlt​​ макрос​​Настроить ленту​​ОК​ excel_bak даже если​fairylive​​ ByVal SaveAsUI As​

​Application.ScreenUpdating = False​​strDate = Format(Now,​ его или удалил​​ 8-ка), ЛКМ лежит​

​ в​​ вообще.​ не существует, либо​ макроса». Но при​ ошибку:​: На Vista и​или​MsgBox «Папка автозагрузки​.​.​ выбором было сохранить​:​ Boolean, Cancel As​strPath = ActiveWorkbook.Path​ «yyyy_mm_dd_hh-mm»)​ — шансы бы​ здесь:​C:Documents and SettingsUserApplication DataMicrosoftExcelXLSTART​Manyasha​ файл используется где-то​ открытии любого файла​

​При ручном введении​​ Win7: C:Users&&&&&AppDataRoamingMicrosoftШаблоны (&&&&&​Sheet.xlt​ XLStart находится здесь​В разделе​Предупреждение:​

​ как.​​berya​ Boolean)​
​If Len(Dir(strPath &​FileNameXls = strPath​ были. А так​

excelworld.ru

Макрос автосохранения файлов Excel (Макросы/Sub)

​C:Users\AppDataRoamingMicrosoftExcelXLSTART​​.​: Попробуйте разобраться с​ системой, либо файл​ эксель на данном​ расширения — та​ — имя пользователя)​создан и сохранен​ :» & _​Настройка ленты​ Для защиты от запуска​Так же при​, сделал как вы​On Error GoTo​ «_Резерв», vbDirectory)) =​ & «_Резерв» &​ ничего не поделаешь.​Hugo​
​Если на счет​ правами, попросите системного​ с таким именем​
​ компьютере, я мог​
​ же ошибка.​
​Natrium​
​ в папке​
​vbNewLine & Application.StartupPath,​в поле​ потенциально опасных программ​ работе с сетевыми​​ сказали — поместил​​ er​
​ 0 Then MkDir​ Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) -​Что-то подобное делается​: У меня на​ папки я ошибаюсь,​ администратора открыть Вам​ уже существует (хотя​ сразу же без​Подскажите пожалуйста какой​: Доброго времени суток,​XLStart​ , «»​Основные вкладки​ после окончания работы​
​ файлами появляются тормоза​ тоже в книгу​Dim LastSaved$, Backup$​ strPath & «_Резерв»​ 5) & «_»​ в автокаде. Там​ семёрке тут:​ попробуйте удалить Вашу​ доступ на изменение​ в каталоге C:Program​ импорта увидеть и​ выход из этой​ уважаемые форумчане!​, то​Но вновь созданный​
​установите флажок​ с макросами рекомендуется​ при закрытии файла.​
​ Personal.xlsb (сейчас там​LastSaved = Wb.BuiltinDocumentProperties(«Last​
​On Error Resume​
​ & strDate &​ всегда есть копия​c:Program FilesMicrosoft OfficeOffice14XLSTARTPERSONAL.xlsb​ ЛКМ и создать​
​ файла​ FilesMicrosoft Office 15rootoffice15xlstart​ воспользоваться макросом)​ ситуации.​
​Наперед извиняюсь, если​Microsoft Excel​
​ и помещенный в​Разработчик​
​ вернуть настройки, отключающие​ Причём даже если​ только ваш код).​ Save Time»)​ Next​ «.xlsb»​ — bak рядом​Roman777​ заново​

​Personal.xlsb​​ только 1 файл​Сейчас же макросы​P.S. И еще​

​ оффтоп, шерстил форум​​использует его для​
​ эту книгу шаблон​.​ все макросы.​ просто зайти ничего​После открытия файла​
​Backup = Wb.Path​x = GetAttr(strPath)​
​ActiveWorkbook.SaveCopyAs Filename:=FileNameXls​
​ с оригиналом. То​
​: Смотрел невнимательно, нашёл​

​Roman777​.​
​ Персонал- созданный мной).​
​ сохраняются только если​ — как прописать​
​ но не нашел.​ создания новых стандартных​
​ Excel11.xlb (пробовал и​
​Нажмите кнопку​
​На вкладке​ не сделать (просто​ спотыкается на строчке​ & «» &​
​ And 0​Else​
​ есть предыдущая копия​ папку, лежит она​
​:​Или, как альтернативный​
​ В общем, не​ я сохраняю в​
​ по умолчанию какую-то​Очень надеюсь на​ книг (Загружаемая по​ Книга.xlt) не работает.​ОК​Разработчик​
​ посмотреть) и выйти.​
​strPath = ActiveWorkbook.Path​
​ Replace(LastSaved, «:», «.»)​If Err =​
​MsgBox «Ошибка сохранения!!!!»,​
​ файла до нажатия​
​ тут: C:UsersOfice123AppDataRoamingMicrosoftExcelXLSTART. Удалил​

​Manyasha​​ вариант, можно все​ получается сохранить файл​
​ расширении .xlsm.​​ папку, на которой​​ вашу помощь вот​
​ умолчанию книга. Новая​ Я пробовал вставить​
​.​в группе​UPD. Тормоза не​Причем 1 раз​ & » «​ 0 Then​ vbCritical​ кнопки сохранить. Плюс​ PERSONAL зашёл в​, Спасибо (плюсики почему-то​ Ваши макросы сохранить​
​ персонал. А без​Можно ли как-то​
​ всегда будет открываться​ в такой ситуации.​ несохраненная книга, которая​ созданные мною шаблоны​Чтобы при запуске Excel​Код​ связаны с макросом​:o

​ открывает с ошибкой​​ & Wb.Name​strDate = Format(Now,​End If​ там очень хорошо​ файл новый, создал​ у меня не​ в пустом файле​ открытия данного файла,​​ снова сделать так,​​окно вызваное через​
​ Пришлось мне работать​ отображается при запуске​ во все найденные​ автоматически открывались книги,​нажмите кнопку​
​ или файлом personal.xlsb​
​ второй раз нормально.​If Wb Is​
​ «yyyy_mm_dd_hh-mm»)​
​Application.ScreenUpdating = True​ продуманное автосохранение. Из​ макрос в личную​ ставятся).​

​ как надстройку (расширение​​ возникает та же​
​ чтобы при открытии​
​ Application.GetSaveAsFilename (например «Мои​ в одной учетной​ Microsoft Excel. Эта​
​ на компьютере папки​
​ выполните указанные ниже​
​Макросы​ - удалял его​
​ Но бэкапы не​ Me Or Wb.IsAddin​
​FileNameXls = strPath​
​End Sub​
​ темпа можно надёргать​
​ книгу - создался​
​Действительно, при включении​ .xlam) и добавить​ проблема что описал​ любого экселевского файла​
​ документы")​ программе, а там,​
​ книга отображается, только​ папки XLStart.​
​ действия.​.​
​ и ничего не​ делаются.​
​ Then Exit Sub​ & "_Резерв" &​SLAVICK​ различные копии файла​ новый PERSONAL в​ макросов через надстройку,​
​ ее в Эксель:​
​ в сообщении №4.​
​ не было необходимости​Юрий М​
​ для удобства, любые​
​ если в папку​
​Нельзя ли усовершенствовать​

​Откройте вкладку​В поле​ менялось. При этом​
​fairylive​
​If Wb.FullName <>​
​ Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) -​
​: Посмотрите на всякий​
​ автосохранённые в разное​
​ указанном ранее пути.​ макросы можно увидеть​Разработчик-Надстройки-Обзор​Manyasha​ заново импортировать макросы,​
​: А не пробовали​ данные можно выгрузить​ XLStart не помещены​ этот макрос чтобы​​Разработчик​
​Имя макроса​ файлы xlsx работают​: Вот подправил -​ Wb.Name And Not​ 5) & «_»​ случай тут:​

​ время в течении​​ Сохранил я туда​ только в окне​(найти Вашу надстройку)​: Назовите​ А сразу воспользоваться​ записать сохранение макрорекордером?​ в Excel. Очень​ другие книги.) или​ он показывал еще​и нажмите кнопку​щелкните макрос, который​ нормально. xls при​ работает как я​ SaveAsUI And MsgBox(«Сделать​ & strDate &​c:Users​ дня.​ макросы свои. Вроде​ редактора VBA.​ и поставить галочку​PERSONAL.XLSB​ ими?​

​Natrium​​ полезная функция, скажу​ для вставки новых​
​ и откуда Excel​Запись макроса​
​ нужно отредактировать.​ выходе подвисают секунд​ и хотел. Создаются​ бэкап?", 36) =​ ".xlsb"​
​ПОЛЬЗОВАТЕЛЬ​Excel 2013 русский​
​ всё норм. Едиственное,​
​А что касается​ напротив нее.​
​, и сохранять нужно​_Boroda_​: Сохранял, только рекордер​ я вам, только​ листов. Папка​
​ берет шаблон вновь​.​Нажмите кнопку​
​ на 10. Возможно​ бэкапы Excel в​ 6 Then​ActiveWorkbook.SaveCopyAs Filename:=FileNameXls​AppDataLocalMicrosoftOfficeUnsavedFiles​
​ у меня если​ почему-то при запуске​ не той папки,​Roman777​
​ не всю Вашу​: 1. Когда (если)​
​ сохраняет файл с​
​ вот по умолчанию​
​XLStart​
​ создаваемой книги.​В поле​
​Изменить​
​ связано с последним​
​ отдельную папку в​
​Shell Join(Array("cmd /c​
​Else​иногда сохраняются даже​
​ что.​

​ экселя, видимо, PERSONAL.xlsb​

​ мне вообще не​​:​​ книгу, а только​​ записываете макрос (макрорекодером),​ каким-то одним расширением​
​ книга с данными​обычно находится в:​Саня​
​Имя макроса​, чтобы открыть редактор​ декабрьским обновлением винды.​
​ той же папке​ copy ", Wb.FullName,​MsgBox "Ошибка сохранения!!!!",​ сохраненные файлы.​Мне видится такое​
​ автоматически не запускается.​ нравится как записалась​Manyasha​ PERSONAL.XLSB.​ то перед записью​
​ (либо .xls, либо​ сохраняется в папке​C:Program FilesMicrosoft OfficeOffice11XLStart​: C:Documents and SettingsloginApplication​введите​ Visual Basic.​ В инете чувак​ где исходник.​ » «, Backup,​ vbCritical​А вообще -​ решение:​ Только если запущу​ моя лицензионная эксель-ка.​, В том то​Roman777​ у Вас вываливается​ .xlsb), а я​ Temp, и изменить​Для использования файлов​

​ DataMicrosoftШаблоны​​Auto_Open​​Совет:​​ один писал на​Private WithEvents app As​ » /y»), «»»»)​End If​ лучший способ отката​
​Открывается файл.​ этот файл вручную,​
​ Исполнительный экзешник находится​
​ и дело, у​:​ окошко, там есть​ хочу чтобы был​ это никак не​

​ шаблонов (с расширением​​УПОРНЫЙ​.​ Для получения справки во​ англоязычном форуме что​ Application​Do While Dir$(Backup)​Application.ScreenUpdating = True​
​ - всегда сохранять​Сразу автоматом сохраняется​
​ могу увидеть личную​ по пути C:Program​ меня админская учётка​Manyasha​ пункт "Сохранить в"​
​ выбор.​ возможно. В результате​
​XLT​
​:​В списке​
​ время работы в​ у него файлы​Private Sub app_WorkbookBeforeSave(ByVal​ = ""​
​End Sub​ файлы как новые​ как файл.bak -​ книгу макросов в​ FilesMicrosoft Office 15rootoffice15,​
​ (и единственная на​, При попытке сохранить​ - выбираете там​
​Юрий М​ - одно неверное​), хранящихся в сети,​Саня​Сохранить в​
​ редакторе Visual Basic​ офиса накрылись. Но​ Wb As Workbook,​DoEvents​
​В модуль "Эта​ - с добавлением​
​ причём без какого-то​
​ экселе.​
​ в папке office15​
​ компьютере). Попробовал с​ PERSONAL.XLSB выскочила надпись​
​ "Личная книга макросов"​
​: Так выбирайте при​
​ "закрытие", и весь​
​ это размещение указывается​
​,​выберите пункт​
​ в меню​

​ я сейчас откатил​​ ByVal SaveAsUI As​Loop​ книга» файла с​ текущей даты и​ участия пользователя.​Roman777​ уже находилась папка​ надстройками. Как конкретно​ «Файл PERSONAL.xlsb нельзя​2. Уже записанные​ записи — там​ отчет канул в​
​ в качестве дополнительной​В этой папке​Личная книга макросов​Справка​ это обновление и​ Boolean, Cancel As​ElseIf SaveAsUI Then​ которым Вы работаете​
​ времени — потом​Если файл открывается​: Всем спасибо большое​ XLSRART. А вообще​ должна надстройка быть​ сохранить: он доступен​ макросы (или те,​ большой выбор: и​ Лету, да еще​ папки автозагрузки (Другая​ у меня пусто,​.​выберите команду​ тормоза не пропали.​ Boolean)​MsgBox «Тут можно​КодPrivate Sub Workbook_Open()​ легко можно откатится​ повторно а уже​ за участие. Пока​

excelworld.ru

​ в Program files​

Понравилась статья? Поделить с друзьями:
  • Где искать временные файлы word
  • Где искать автосохраненные файлы word
  • Где искать автосохраненные файлы excel
  • Где импорт в excel
  • Где изменить поля в word