Как найти свой макрос

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

Если вы еще не знакомы с макросами в 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, где и хранится код только что записанного нами бессмысленного макроса:

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

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

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

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

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

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

Код необходимо аналогичным образом скопировать в любой модуль книги PERSONAL.XLSB и затем можно будет вызвать функцию обычным образом, как любую стандарную функцию Excel, нажав кнопку f_x в строке формул и выбрав функцию в окне Мастера Функций в категории Определенные пользователем (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​Примечание:​ 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​Код​ связаны с макросом​

​ открывает с ошибкой​​ & 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​

Хитрости »

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

---

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

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

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

---

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

Макрос

— это макрокоманда(так звучит в правильном переводе с англ.языка), содержащая последовательность действий, записанных пользователем. Запись производится с помощью встроенного в пакет 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 2007-2010 и старше:

• Эта книга (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

• *.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
ссылки
статистика