Для автоматизации повторяющихся задач в 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 для ее отправки по электронной почте.
Чтобы записать макрос, следуйте инструкциям ниже.
-
На вкладке Разработчик в группе Код нажмите кнопку Запись макроса.
-ИЛИ-
Нажмите ALT+T+M+R.
-
В поле Имя макроса введите название макроса. Сделайте имя понятным, чтобы можно было быстро найти нужный макрос.
Примечание: Первым символом имени макроса должна быть буква. Последующие символы могут быть буквами, цифрами или знаками подчеркивания. В имени макроса не должно содержаться пробелов; в качестве разделителей слов следует использовать знаки подчеркивания. Если используется имя макроса, являющееся ссылкой на ячейку, может появиться сообщение об ошибке, указывающее на недопустимое имя макроса..
-
Чтобы назначить сочетание клавиш для запуска макроса, в поле Сочетание клавиш введите любую строчную или прописную букву. Рекомендуется использовать сочетания клавиш с CTRL+SHIFT, так как они будут заменять собой совпадающие с ними стандартные сочетания клавиш в Excel, пока открыта книга, содержащая макрос. Например, если назначить сочетание клавиш CTRL+Z (Отменить), вы не сможете использовать его для функции «Отменить» в данном экземпляре Excel.
-
В списке Сохранить в выберите книгу, в которой вы хотите сохранить макрос.
Как правило, макрос сохраняется в расположении Эта книга, но если вы хотите, чтобы макрос был доступен при использовании Excel, выберите Личная книга макроса . При выборе личнойкниги макроса Excel создает скрытую личную книгу макроса (Personal.xlsб), если она еще не существует, и сохраняет макрос в этой книге.
-
В поле Описание при необходимости введите краткое описание действий макроса.
Хотя поле «Описание» является необязательным, рекомендуется его заполнить. Кроме того, желательно ввести понятное описание, которое будет полезно вам и всем, кто запускает макрос. Если у вас много макросов, описания помогут быстро определить, для чего они нужны.
-
Чтобы начать запись макроса, нажмите кнопку ОК.
-
Выполните действия, которые нужно записать.
-
На вкладке Разработчик в группе Код нажмите кнопку Остановить запись .
-ИЛИ-
Нажмите ALT+T+M+R.
Работа с макросами, записанными в Excel
На вкладке Разработчик щелкните Макросы, чтобы просмотреть макросы, связанные с книгой. Кроме того, можно нажать клавиши ALT+F8. При этом откроется диалоговое окно Макрос.
Внимание: Макросы нельзя отменить. Прежде чем впервые запускать записанный макрос, сохраните книгу или создайте ее копию, чтобы предотвратить внесение нежелательных изменений. Если вас не устраивают результаты выполнения макроса, вы можете закрыть книгу, не сохраняя ее.
Ниже приведены дополнительные сведения о работе с макросами в Excel.
Задача |
Описание |
Изменение параметров безопасности макросов в Excel |
Сведения о параметрах безопасности макросов и их значении. |
Запуск макроса |
Макросы можно запускать различными способами, например с помощью сочетания клавиш, графического объекта, панели быстрого доступа, кнопки или даже при открытии книги. |
Изменение макроса |
С помощью редактора Visual Basic можно изменять макросы, присоединенные к книге. |
Копирование модуля макроса в другую книгу |
Если книга содержит макрос VBA, который нужно использовать где-либо еще, этот модуль можно скопировать в другую книгу с помощью редактора Microsoft Visual Basic. |
Назначение макроса объекту, фигуре или графическому элементу |
|
Назначение макроса кнопке |
Вы можете назначить макрос значку и добавить его на панель быстрого доступа или ленту. |
Назначение макроса для элемента управления на листе |
Вы можете назначать макросы формам и элементам 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 находятся на вкладке Разработчик, которая по умолчанию скрыта, поэтому сначала нужно включить ее.
-
Перейдите в Excel > параметры…> ленты & панель инструментов.
-
В категории Настроить ленту в списке Основные вкладки установите флажок Разработчик, а затем нажмите кнопку Сохранить.
Чтобы записать макрос, следуйте инструкциям ниже.
-
На вкладке Разработчик нажмите кнопку Запись макроса.
-
В поле Имя макроса введите название макроса. Сделайте имя понятным, чтобы можно было быстро найти нужный макрос.
Примечание: Первым символом имени макроса должна быть буква. Последующие символы могут быть буквами, цифрами или знаками подчеркивания. В имени макроса не должно содержаться пробелов; в качестве разделителей слов следует использовать знаки подчеркивания. Если используется имя макроса, являющееся ссылкой на ячейку, может появиться сообщение об ошибке, указывающее на недопустимое имя макроса..
-
В списке Сохранить в выберите книгу, в которой вы хотите сохранить макрос.
Как правило, макрос сохраняется в расположении Эта книга, но если вы хотите, чтобы макрос был доступен при использовании Excel, выберите Личная книга макроса. При выборе личнойкниги макроса Excel создает скрытую личную книгу макроса (PERSONAL.XLSB), если она еще не существует, и сохраняет макрос в этой книге. Книги в этой папке открываются автоматически при Excel, и любой код, сохраненный в личной книге макроса, будет указан в диалоговом окну Макрос, которое объясняется в следующем разделе.
-
Чтобы назначить сочетание клавиш для запуска макроса, в поле Сочетание клавиш введите любую строчную или прописную букву. Рекомендуется использовать сочетания клавиш, которые еще не назначены другим командам, так как они будут переопределять совпадающие с ними стандартные сочетания клавиш в Excel, пока открыта книга, содержащая макрос.
-
В поле Описание при необходимости введите краткое описание действий макроса.
Хотя поле «Описание» является необязательным, рекомендуется его заполнить. Полезно ввести содержательное описание со всеми сведениями, которые могут быть полезны вам или другим пользователям, которые будут запускать макрос. Если у вас много макросов, описания помогут быстро определить, для чего они нужны.
-
Чтобы начать запись макроса, нажмите кнопку ОК.
-
Выполните действия, которые нужно записать.
-
На вкладке Разработчик щелкните Остановить запись.
Работа с макросами, записанными в Excel
На вкладке Разработчик щелкните Макросы, чтобы просмотреть макросы, связанные с книгой. При этом откроется диалоговое окно Макрос.
Примечание: Макросы нельзя отменить. Прежде чем впервые запускать записанный макрос, сохраните книгу или создайте ее копию, чтобы предотвратить внесение нежелательных изменений. Если вас не устраивают результаты выполнения макроса, вы можете закрыть книгу, не сохраняя ее.
Ниже приведены дополнительные сведения о работе с макросами в Excel.
Задача |
Описание |
Включение и отключение макросов |
Узнайте, как включать и отключать макросы в Excel для Mac. |
Копирование модуля макроса в другую книгу |
Если книга содержит макрос VBA, который нужно использовать где-либо еще, этот модуль можно скопировать в другую книгу с помощью редактора Microsoft Visual Basic. |
Назначение макроса объекту, фигуре или графическому элементу |
|
Назначение макроса кнопке |
Вы можете назначить макрос значку и добавить его на панель быстрого доступа или ленту. |
Назначение макроса для элемента управления на листе |
Вы можете назначать макросы формам и элементам 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
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
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.
- Click the Excel menu and select Preferences.[2]
Advertisement
-
Windows:
-
3
Click the Developer tab. It’s at the top of Excel.
-
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
Select a macro and click Edit. This displays the macro in the Visual Basic Editor.
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. Т.е. однажды записав где-то макрос в эту книгу – он теперь будет доступен из любой книги независимо от того, открыта ли книга, из которой был записан макрос или нет. Изначально эта книга отсутствует и создается в момент первого обращения к ней (т.е. как только вы первый раз выбрали Сохранить в личную книгу макросов)
После записи макроса запустить его можно разными способами:
- ПРИ ПОМОЩИ СОЧЕТАНИЯ КЛАВИШ: Alt+F8
Этот способ универсальный и его можно использовать из любой версии Excel. Достаточно нажать сочетание клавиш Alt+F8 и выбрать нужный макрос из списка:
- ВЫЗОВ ИЗ МЕНЮ:
Excel 2007-2010 и старше: вкладка Разработчик (Developer)→ Макросы (Macros)
Excel 2003: Сервис→ Макрос→ Макросы - НАЖАТИЕМ СОБСТВЕННОЙ КНОПКИ НА ЛИСТЕ:
Можно разместить на листе собственную кнопку, по нажатии которой будет запускаться записанный макрос. Подробно этот процесс я описал в статье: Как создать кнопку для вызова макроса на листе - ПРИ ПОМОЩИ НАЗНАЧЕННЫХ МАКРОСУ ГОРЯЧИХ КЛАВИШ:
Если вы перед записью назначили макросу сочетание клавиш, то вы также можете вызвать этот макрос и нажатием данного сочетания. Горячие клавиши макросу можно назначить и после записи: Alt+F8→ Выделяем нужный макрос→ Параметры (Options). - ПРИ НАСТУПЛЕНИИ ОПРЕДЕЛЕННОГО СОБЫТИЯ В ЛИСТЕ ИЛИ КНИГЕ:
Прежде чем пробовать использовать этот метод рекомендуется изучить статью Что такое модуль? Какие бывают модули?Для этого сначала необходимо вставить код макроса в тело событийной процедуры (подробнее про событийные процедуры). Например, если выбрать процедуру листа 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 будет вынужден автоматически ее для вас создать. Для этого:
- Откройте вкладку Разработчик (Developer). Если вкладки Разработчик не видно, то ее можно включить в настройках через Файл — Параметры — Настройка ленты (Home — Options — Customize the Ribbon).
- На вкладке Разработчик нажмите кнопку Запись макроса (Record Macro). В открывшемся окне выберите Личную книгу макросов (Personal Macro Workbook) как место для хранения записанного кода и нажмите OK:
- Остановите запись кнопкой Остановить запись (Stop Recording) на вкладке Разработчик (Developer)
Проверить результат можно, нажав на кнопку Visual Basic там же на вкладке Разработчик — в открывшемся окне редактора в левом верхнем углу на панели Project — VBA Project должен появиться наш файл PERSONAL.XLSB. Его ветку которого можно развернуть плюсиком слева, добравшись до Module1, где и хранится код только что записанного нами бессмысленного макроса:
Поздравляю, вы только что создали себе Личную Книгу Макросов! Только не забудьте нажать на кнопку сохранения с дискеткой в левом верхнем углу на панели инструментов.
Как использовать Личную Книгу Макросов
Дальше все просто. Любой нужный вам макрос (т.е. кусок кода, начинающийся на 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 — и мы увидим папку с нашим файлом Личной Книги Макросов:
P.S.
И несколько практических нюансов вдогон:
- при использовании Личной Книги Макросов Excel будет запускаться чуть медленнее, особенно на слабых ПК
- стоит периодически очищать Личную Книгу от информационного мусора, старых и ненужных макросов и т.п.
- у корпоративных пользователей бывают иногда сложности с использованием Личной Книги, т.к. это файл в системной скрытой папке
Ссылки по теме
- Что такое макросы, как их использовать в работе
- Полезности для VBA-программиста
- Тренинг «Программирование макросов на VBA в Microsoft Excel»
Редактирование макроса
Смотрите такжеOn Error GoTo чего-то написать»With ThisWorkbook на нужный вариант(дату) файл.bak есть то буду вручную запускать, находится ещё 1 сохранена? Я создал только для чтения. которые пишете вручную) xlsx, xlsm, xlsb… и имя книги папка автозагрузки. Папка, но я попробовалПосле этого макрос будетСправка Microsoft Visual BasicПримечание: erEnd IfApplication.Run («personal.xlsb!reserv») лишнее — просто
пусть создается файл1.bak найду способ решения попка Microsoft Office, новую книгу, зашёл
Чтобы сохранить изменения, кладите в файлNatrium — рандомный набор дополняющая стандартную папку
Изменение параметров безопасности макросов
туда вставить шаблоны доступен при каждомили нажмите клавишу
-
Мы стараемся какDim LastSaved$, Backup$er:End With удаляете.Ну либо как-то — отпишу.
-
но в ней туда в макросы, сохраните книгу с Персонал. Жмите Альт+F11: Пробовал, выбирал, там символов — попробуй автозагрузки XLStart, содержащую *.xlb и *.xlt открытии Excel. F1.
можно оперативнее обеспечиватьLastSaved = Wb.BuiltinDocumentProperties(«LastEnd SubEnd SubТут есть пример ещё.Manyasha
Редактирование макроса
-
непонятная мне лабуда. скопировал все макросы новым именем или — Контрл+R - тип файла прописывается разбери где что. книги или другие
-
результата нет.Чтобы было проще вспомнить,Примечание: вас актуальными справочными
-
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 MkDirEnd Sub рабочего файла создается
-
причинам), и потом особо сложная. ДУмаю вроде бы такая не в Program где мне нужны действительно только чтение и кладите в вставке в код,
-
аналогичный пункту меню и шаблоны, которые и будут поОписание материалами на вашем ее текст может (Wb.Path & «excel_bak»)
-
и перезапустить Excel резервная копия файла. работавший долгое время
и сам бы же проблема Files (x86). макросы. Там зашёл
-
и чтение и него все то, или я как-то «Сохранить как…», зачем должны быть доступны
-
умолчанию. Можно также оставить языке. Эта страница содержать неточности иBackup = Wb.Path
-
fairyliveТолько обратите внимание файл может просто справился. Но покаfairylive
-
Спасибо большое за в параметры-надстройки (у выполнение стоит галочка
-
что нужно. Если не так его спросите? Да для при создании книг.).УПОРНЫЙ это поле пустым. переведена автоматически, поэтому
-
грамматические ошибки. Для & «excel_bak» &:
-
на расширение файла перестать открываться т.е. не понимаю как: Всем привет! У помощь! себя вкладку Разработчик во вкладке «безопастность». Персонала нет, то прописал… того чтобы можноУПОРНЫЙ:Нажмите кнопку ее текст может
-
нас важно, чтобы Replace(LastSaved, «:», «.»)krosav4ig — у меня RIP.
-
добавить такое событие меня случился нереальный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,Книга ExcelSerge_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 strName1Serge_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_007Documents and Settings в личной книге открытии книги.РазработчикPrivate Sub Workbook_Open() вообще в какую-то создаваться от 10beryaDim 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.xlsbstrPath = 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
IgorGoSerge_007 Excel автоматически будут выполните указанные нижеВ разделе работе с сетевыми много копий появляется резервные копии.В модуль сохраняете 0 Then MkDir Прошёлся recuva - папку. Там в т.е. запускать их: В папку через сохранять макросы в сохранять свои макросы,Вот только сохраняет: даже не знаю…: Для открываться книги, включенные действия.Параметры макросов файлами. В связи в текущей папке,krosav4igSub reserv() strPath & «_Резерв» пусто. Искал в основном временные файлы
можно только из сохранить как не личную книгу. Но не сохраняя файл он коректно только то-ли страна такая,
Excel 2003 в макрос.Откройте вкладкувыберите параметр с отсутствием админских если поставить это: В PERSONAL.XSLB в
Dim strPath AsOn Error Resume папке где лежит и кэш, мне
редактора VBA (Alt+F11). получается, права действительно когда уже закрываю в расширении .xlsm книги в формате то-ли еще чего:УПОРНЫЙФайл
Включить все макросы (не прав. Появляется ошибка дело на автомат модуль ЭтаКнига String Next сам файл и так кажется).
Личная книга словно ограничены. Но свой файл. Потом (По-моему, макросы сохранялись .xls (97-2003) и
— ничего наХранение стандартных шаблонов книг: Для поиска папкии выберите пункт рекомендуется, возможен запуск что нет прав
(имею ввиду еслиPrivate WithEvents app AsDim strDate Asx = GetAttr(strPath) в папке автосохранения
Manyasha: мне кажется Вы когда переношу файлик пытаюсь закрыть файл куда-то вне файла .xlsx (2007-2010), а месте не улежит. и листов автозагрузки (здесь яПараметры опасной программы) если попытаться сохранить. убрать всплывающее окно Application String And 0 Excel. В интернете: не ту папку с любого места Персонал с сохранением.
самого, поскольку в при попытке сохранить
может на соседнемЕсли шаблон с нашел мою Personal.xls), а затем —
, а затем нажмите Плюс в чужих с вопросом СделатьPrivate Sub app_WorkbookBeforeSave(ByValDim xIf 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 = FalsestrDate = Format(Now, его или удалил 8-ка), ЛКМ лежит
в вообще. не существует, либо макроса». Но при ошибку:: На Vista иилиMsgBox «Папка автозагрузки.. выбором было сохранить: Boolean, Cancel AsstrPath = ActiveWorkbook.Path «yyyy_mm_dd_hh-mm») — шансы бы здесь:C:Documents and SettingsUserApplication DataMicrosoftExcelXLSTARTManyasha файл используется где-то открытии любого файла
При ручном введении 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.Pathx = GetAttr(strPath)
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
с оригиналом. То
: Смотрел невнимательно, нашёл
Roman777.
Персонал- созданный мной).
сохраняются только если — как прописать
но не нашел. создания новых стандартных
Excel11.xlb (пробовал и
Нажмите кнопку
На вкладке не сделать (просто спотыкается на строчке & «» &
And 0Else
есть предыдущая копия папку, лежит она
:Или, как альтернативный
В общем, не я сохраняю в
по умолчанию какую-тоОчень надеюсь на книг (Загружаемая по Книга.xlt) не работает.ОКРазработчик
посмотреть) и выйти.
strPath = ActiveWorkbook.Path
Replace(LastSaved, «:», «.»)If Err =
MsgBox «Ошибка сохранения!!!!»,
файла до нажатия
тут: C:UsersOfice123AppDataRoamingMicrosoftExcelXLSTART. Удалил
Manyasha вариант, можно все получается сохранить файл
расширении .xlsm. папку, на которой вашу помощь вот
умолчанию книга. Новая Я пробовал вставить
.в группеUPD. Тормоза неПричем 1 раз & » « 0 Then vbCritical кнопки сохранить. Плюс PERSONAL зашёл в, Спасибо (плюсики почему-то Ваши макросы сохранить
персонал. А безМожно ли как-то
всегда будет открываться в такой ситуации. несохраненная книга, которая созданные мною шаблоныЧтобы при запуске ExcelКод связаны с макросом
открывает с ошибкой & Wb.NamestrDate = 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 ThenActiveWorkbook.SaveCopyAs Filename:=FileNameXlsAppDataLocalMicrosoftOfficeUnsavedFiles
у меня если почему-то при запуске не той папки,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 лучший способ отката
Открывается файл. этот файл вручную,
Исполнительный экзешник находится
и дело, у: окошко, там есть хочу чтобы был это никак не
шаблонов (с расширениемУПОРНЫЙ. Для получения справки во англоязычном форуме что ApplicationDo 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 AsLoop книга» файла с текущей даты и участия пользователя.Roman777 уже находилась папка надстройками. Как конкретно «Файл PERSONAL.xlsb нельзя2. Уже записанные записи — там отчет канул в
в качестве дополнительнойВ этой папкеЛичная книга макросовСправка это обновление и Boolean, Cancel AsElseIf SaveAsUI Then которым Вы работаете
времени — потомЕсли файл открывается: Всем спасибо большое XLSRART. А вообще должна надстройка быть сохранить: он доступен макросы (или те, большой выбор: и Лету, да еще папки автозагрузки (Другая у меня пусто,.выберите команду тормоза не пропали. Boolean)MsgBox «Тут можноКодPrivate Sub Workbook_Open() легко можно откатится повторно а уже за участие. Пока
excelworld.ru
в Program files