Как сохранить макрос в excel для всех файлов

Создать макрос в Excel можно, запустив средство записи макросов или с помощью редактора Visual Basic для приложений (VBA). После создания макроса следует сохранить его для возможности повторного использования в текущей или в других книгах.

Сохранение макроса в текущей книге

Если понадобится использовать макрос только в той книге, где он был создан, нажмите кнопку Сохранить или Сохранить как так же, как при обычном сохранении. Но сохранение книги с макросами происходит несколько иначе, поскольку необходимо использовать специальный формат файла «с поддержкой макросов». Поэтому при попытке сохранить макрос Excel предложит два варианта:

Книга с макросами или кодом VBA

  • Сохранить в виде книги с поддержкой макросов (XLSM-файл), выбрав Нет.

  • Сохранить в виде книги без поддержки макросов, выбрав Да.

Чтобы сохранить макрос как книгу с поддержкой макросов,

  1. щелкните Нет.

  2. В окне Сохранить как в раскрывающемся списке Тип файла выберите Книга Excel с поддержкой макросов.
    Сохранить как книгу с поддержкой макросов

  3. Нажмите кнопку Сохранить.

Создание и сохранение макросов в личной книге

Чтобы макросы были доступны при каждом запуске Excel, создайте их в книге «Personal.xlsb». Это скрытая книга на вашем компьютере, которая открывается при каждом запуске Excel. Для получения сведений о выполнении этих действий см. статью Создание и сохранение всех макросов в одной книге.

Нужна дополнительная помощь?

Сохранение макроса

​Смотрите также​​ именем копии REPEAT_:​ «Книга1.xls» sExp =​ регулярно скидывать в​ & IIf(Right(sFileName, Len(sExpansion))​Alex_ST​ ИМХО, InputBox и​ через InputBox или​Filename:=»трам-пам-пам.xls», _​ рабочий файл (имена-то​ Или открыть в​Если вам нужно записать​ «РАЗРАБОТЧИК»-«Код»-«Visual Basic». Или​Остановить запись​.​ ее текст может​ макрос Excel предложит​Примечание:​ FileName = Application.GetSaveAsFilename(InitialFileName:=sFullFilePath,​ Right(FileName, Len(FileName) -​ разные директории на​ <> sExpansion, sExpansion,​

​: К стати, не​ окно задания пути​ ещё как-то…​FileFormat:=xlNormal, _​ совпадают!!!).​ редакторе Personal и​ в нее новый​ нажмите комбинацию горячих​.​Чтобы при запуске Excel​ содержать неточности и​

Сохранение макроса в текущей книге

​ два варианта:​Мы стараемся как​ _ FileFilter:=»Excel Files​ InStrRev(FileName, «.») +​ общем ресурсе.​​ «»)​​ подскажите «на вскидку»​​ сохранения файла -​​В чём хитрость-то?​Password:=»», _​или​ туда вставить модуль?​ макрос просто откройте​ клавиш ALT+F11. В​При закрытии Excel в​ автоматически открывались книги,​ грамматические ошибки. Для​Сохранить в виде книги​ можно оперативнее обеспечивать​

Книга с макросами или кодом VBA

  • ​ (*» & sExp​ 1) ‘ расширение​Достало постоянно выбирать​​If sFileName =​​ как к имени​

  • ​ это «две большие​The_Prist​WriteResPassword:=»», _​​- сказать Ёкселю​​z_korch​

​ редактор, а потом​ окне «Project-VBAProject», в​ конечном итоге будет​

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

  2. ​ вас актуальными справочными​​ & «), *»​​ файла вместе с​​ куда и какой​​ ThisWorkbook.FullName Then​​ файла при сохранении​ разницы» …​​: А кто мешает​
    Сохранить как книгу с поддержкой макросов

  3. ​ReadOnlyRecommended:=True, _​​ «Сохранить как…» и​​: Может я не​

Создание и сохранение макросов в личной книге

​ откройте модуль книги​ дереве проектов появиться​ предложено сохранить изменения​ действия.​ эта статья была​ (XLSM-файл), выбрав​ материалами на вашем​ & sExp &​ точкой (например, «.xls»)​ файл сохранять…​MsgBox «Нельзя сохранить​ добавить перед расширением​The_Prist​ перед этим вывести​

support.office.com

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

​CreateBackup:=False​​ указать с каким​ знаю как в​ Personal.xlsb. Уже записанные​ доступная еще одна​ в личной книге​Откройте вкладку​ вам полезна. Просим​Нет​ языке. Эта страница​ «, All Files​ FileName = Left(FileName,​Переделал макрос Save_Copy_As​ файл под имененм​ суффикс — дату​: Я Вам уже​ диалог?​End Sub​ именем, куда и​ редакторе открыть Personal?Когда​ в нее макросы​ книга Personal.xlsb. Кликните​

​ макросов. Нажмите кнопку​Разработчик​ вас уделить пару​.​ переведена автоматически, поэтому​ (*.*),*.*», _ Title:=»Сохранение​ Len(FileName) — Len(sExp))​ так, что путь​ открытого файла!», vbCritical​ и время сохранения?​ целый пример накатал​

​Dim sFileName As​не подходят, т.к.​ с какими паролями​​ в VBA открываю​​ удалять не нужно.​ на «плюсик» слева​ «Да», чтобы макрос​

  1. ​и нажмите кнопку​​ секунд и сообщить,​​Сохранить в виде книги​​ ее текст может​​ копии файла») ‘задать​ & sSuff &​​ последнего сохранения копии​​ + vbYesNo, «Ошибка»​

  2. ​ (ну, например, Имя_моего_рабочего_файла(01-06-2010​​ — чем он​​ String, sExpansion As​​ это как раз​​ сохранить файл. А​​ View->Project, то вижу​​ Они не будут​

  3. ​ на против этой​​ запускался при каждом​​Запись макроса​

​ помогла ли она​ без поддержки макросов,​ содержать неточности и​ путь сохранения и​

  1. ​ sExp ‘ например,​​ запоминается в самом​​GoTo BEGIN_​​ 14-30).xls​​ не устраивает? Выбор​

Группа

  1. ​ String​​ и есть описанный​​ потом закрыть тот​​ среди объектов только​​ между собой конфликтовать​

  2. ​ книги, чтобы раскрыть​​ запуске Excel.​​.​​ вам, с помощью​​ выбрав​

  3. ​ грамматические ошибки. Для​ имя копии файла​ «Книга1 [2012.02.06 15-24’39»].xls»​

  4. ​ файле в коллекции​End If​The_Prist​ через диалог, сохраняет​​BEGIN_:​​ мною выше второй​ сетевой, видный для​

  5. ​ Лист1,2,3,и ЭтаКнига… все.​​ если соблюдать одно​​ проект книги Personal.xlsb.​

  6. ​Каждый раз при запуске​​В поле​​ кнопок внизу страницы.​​Да​​ нас важно, чтобы​ в окне выбора​ On Error Resume​ Names​ThisWorkbook.Password = «1»:SetAttr​: SetAttr ThisWorkbook.FullName, vbReadOnly​ куда укажешь и​sFileName = ThisWorkbook.Name​ случай…​ всех, файл и​

  7. ​ Если Insert->Module?, то​​ простое правило –​​ А после двойным​​ Excel автоматически будут​​Имя макроса​

  8. ​ Для удобства также​.​ эта статья была​ If VarType(FileName) =​ Next sDirPath =​Два дня поюзал​ ThisWorkbook.FullName, vbReadOnly​Alex_ST​

    ​ с паролем, да​sExpansion = Right(sFileName,​tolikt​ открыть свой рабочий.​

support.office.com

Личная книга макросов в Excel и как ее использовать

​ тоже предлагает сохранить​ в одном модуле​ щелчком отройте ее​ открываться книги, включенные​введите​ приводим ссылку на​Чтобы сохранить макрос как​ вам полезна. Просим​ vbBoolean Then Exit​ .Names(sPath_in_Names).Value ‘ считать​ — понравилось!​ThisWorkbook.SaveCopyAs sFileName​: К сожалению, свойство​ еще и предупреждает,​ Len(sFileName) — InStrRev(sFileName,​: .SaveCopyAs чем не​ Это тоже не​ только в «Книга1-ЭтаКнига(Code)»​ нельзя хранить макросы​ Module1.​ в макрос.​Auto_Open​

Как сохранить макрос в личную книгу макросов

​ оригинал (на английском​ книгу с поддержкой​ вас уделить пару​

  1. ​ Sub ‘ если​РАЗРАБОТЧИК.
  2. ​ из коллекции .Names​Sub Save_Copy_As() ‘—————————————————————————————​ThisWorkbook.Password = «»:SetAttr​ vbReadOnly при SaveCopyAs​ если такой файл​ «.») + 1)​ устраивает?​Запись макроса.
  3. ​ слишком удобно, т.к.​kaa​Остановить запись.
  4. ​ с одинаковыми именами.​В результате откроется окно​Большинство пользователей Excel знают,​.​ языке) .​ макросов,​ секунд и сообщить,​ нажали «Отмена», то​ значение, ранее сохраненное​ ‘ Procedure :​ ThisWorkbook.FullName, vbNormal​ задать не удаётся…​ есть.​sFileName = Application.GetSaveAsFilename​The_Prist​Personal.xlsb.
  5. ​ требует много «мышкодвижений».​: в экселе Сервис-Параметры​z_korch​ кода модуля с​ как создать и​В списке​Предположим, что вы хотите​щелкните​ помогла ли она​ FileName = False,​

​ под именем sPath_in_Names​

​ Save_Copy_As ‘ Author​Hugo​А нельзя ли​Alex_ST​If sFileName =​: ThisWorkbook.Password = «1»​А недавно поставил​ вкладка «Общие» там​: Добрый день! Спасибо​ зарегистрированным макросом. Удалите​ использовать макрос внутри​Сохранить в​

​ записать макрос для​Нет​ вам, с помощью​ если «Сохранить» -​ If Err Then​ : Alex_ST ‘​:​ его задать для​: The_Prist, вы с​ «False» Then Exit​ThisWorkbook.SaveCopyAs ‘полный путь,​ себе прогу «PDF-Exchange»​ есть поле «каталог​

​ за замечательный сайт!Много​ его код и​ файла одной рабочей​выберите пункт​ открытия книг, которые​.​ кнопок внизу страницы.​ полный путь к​ .Names.Add sPath_in_Names, .Path​ Topic_HEADER : Как​Alex_ST, про дату в​ уже созданного файла-копии?​ такой скоростью создаёте​ Sub​ включая расширение файла.​

exceltable.com

как записать макрос, чтобы он был доступен для всех книг?

​ и увидел там​​ автозагрузки». указывате там​ полезного нашла,но с​ введите код своего​ книги. В случаи,​Личная книга макросов​ используете каждый день,​В окне​ Для удобства также​ файлу вместе с​ & «»: sDirPath​ макросом сохранить копию​ названии есть в​The_Prist​ свои ответы пока​sFileName = sFileName​ ДОЛЖЕН БЫТЬ В​ возможность «Сохранить копию​ путь.​ этой проблемой не​ макроса. Выберите инструмент​ когда необходимо использовать​.​ при запуске Excel.​Сохранить как​ приводим ссылку на​ его именем If​ = .Names(sPath_in_Names).Value ‘​ текущего файла? ‘​ приёмах:​: Алекс, ну чтоже​ я ввожу свои,​

​ & IIf(Right(sFileName, Len(sExpansion))​​ ДРУГОЙ ПАПКЕ, дабы​ как …».​в эту папку​ могу справиться: подскажите,пожалуйста,как​ в редакторе макросов:​

​ тот же макрос​​После этого макрос будет​ Вы можете создать​в раскрывающемся списке​ оригинал (на английском​ FileName = .FullName​ если считать не​ Topic_URL : http://www.planetaexcel.ru/forum.php?thread_id=16506​Alex_ST​ ВЫ так? Я​ что я их​

​ <> sExpansion, sExpansion,​​ не было конфликта​Оказалось очень удобно,​ кладете файл с​ правильно сохранить макрос,​ «File»-«Save Personal.xlsb», а​

​ в других файлах​ доступен при каждом​ макроса «Авто_открыть», чтобы​
​Тип файла​ языке) .​ Then MsgBox «Здесь​

planetaexcel.ru

Как макросом сохранить копию текущего файла?

​ удалось, значит путь​​ ‘ DateTime :​: Спасибо. Разобрался.​ ж еще в​
​ просто не успеваю​ «»)​ при совпадении имен.​ т.к. при этом​ макросом​ чтобы он работал​ потом закройте редактор​ рабочих книг, тогда​
​ открытии Excel.​ сделать это. Вы​
​выберите​Создать макрос в Excel​ нельзя сохранить файл​ ранее не задавался​ 08.02.12, 12:00 ‘​Только чтобы всё​ начале писал -​ читать…​If sFileName =​ThisWorkbook.Password = «»​ текущий открытый файл​при открытии экселя​
​ не только с​
​ Visual Basic.​ можно сохранить его​Чтобы было проще вспомнить,​ также можете запускайте​Книга Excel с поддержкой​ можно, запустив средство​ под таким именем!»,​ и он для​ Purpose : Сохранение​ правильно работало нужно​ «Вы сначала задаете​Ща буду разбираться…​ ThisWorkbook.FullName Then​
​Alex_ST​ не закрывается, а​ этот файл будет​ «Эта Книга», а​​
​ в личной книге​ что делает макрос,​ макрос автоматически при​ макросов​ записи макросов или​ 16, «Ошибка»: GoTo​ первого раза задаётся​ копии активного файла​ не атрибуты файла​ книге пароль, затем​
​ Беру тайм-аут на​MsgBox «Нельзя сохранить​: Метод SaveCopyAs требует​ просто его копия​ самостоятельно открываться.​ для любых файлов​
​Теперь у вас подключена​ макросов. У нее​ введите его описание​ открытии книги.​.​
​ с помощью редактора​ REPEAT_ sDirPath =​ равным ActiveWorkbook.Path sDirPath​

​ ‘ Notes :​​ через​
​ сохраняете, затем убираете​
​ осмысливание.​
​ файл под имененм​
​ непосредственного указания пути​
​ сохраняется в указанном​
​Alex_ST​
​ xls. На форуме​
​ скрытая книга для​
​ всегда одно название​
​ в поле​
​Прежде чем начать, убедитесь,​Нажмите кнопку​ Visual Basic для​ Left(FileName, InStrRev(FileName, «»))​ = Mid(sDirPath, 3,​

​ Путь сохранения копий​​SetAttr ActiveWorkbook.FullName, vbReadOnly​ пароль.​

​Скорее всего до​​ открытого файла!», vbCritical​
​ и имени сохранения,​ месте с указанными​: По работе на​ нашла,что надо сохранять​ хранения макросов, к​ – Personal.xlsb. Она​
​Описание​

​ что на ленте​​Сохранить​ приложений (VBA). После​ ‘ путь к​ Len(sDirPath) — 3)​ хранится в коллекции​ устанавливать, т.к. это​Тоже самое можно​ завтра, т.к.у нас​ + vbYesNo, «Ошибка»​

​ а хотелось бы​​ свойствами (всё это​ своём компе создаю/модернизирую/заполняю​ в Личной книге​ которым можно получить​ всегда открывается при​. Можно также оставить​ доступна вкладка​

​.​​ создания макроса следует​ папке сохранения копий​
​ ‘ убрать из​ .Names книги (в​ ничего не даёт​ сделать и с​ на работе сегодня​GoTo BEGIN_​ по вызову макроса​
​ задаётся в стандартных​

​ разные таблицы.​​ макросов, но когда​ доступ из любой​ запуске программы Excel,​

​ это поле пустым.​Разработчик​Чтобы макросы были доступны​
​ сохранить его для​
​ без имени файла​
​ считанного значения в​ именованном диапазоне) ‘—————————————————————————————​ , а​
​ другими атрибутами(только чтение​
​ отмечается «День Корпорации»​End If​ выйти на стандартное​

​ виндовых окнах).​По окончании какого-нибудь​ пытаюсь это сделать​ другой рабочей книги.​
​ только скрыто. Данная​Нажмите кнопку​
​. Если ее нет,​ при каждом запуске​ возможности повторного использования​ .Names(sPath_in_Names).Value = sDirPath​
​ начале «= и​
​ Const sPath_in_Names =​
​ActiveWorkbook.Password = «ххх»​
​ через GetAttr например).»​
​ (ввиду кризиса -​

​ThisWorkbook.Password = «1»​​ окно выбора пути​Вот и подумал,​ этапа КОПИЮ таблицы​ выдает ошибку:»Личн.кн.макр.в папке​ Личная книга макросов​ книга не является​

​ОК​ выполните указанные ниже​ Excel, создайте их​ в текущей или​

​ ‘ запомнить выбранный​​ в конце «​ «Path4SaveCopyAs» ‘ имя​ задаёт пароль НА​Т.е. сначала Вы​ на рабочих местах,​ThisWorkbook.SaveCopyAs sFileName​ и имени сохранения​ а вдруг гуру​ надо выкладывать на​

​ автозагрузки должна оставаться​​ где находится находиться​ доступной по умолчанию​.​ действия.​ в книге «Personal.xlsb».​ в других книгах.​ в диалоге путь​ sDirPath = sDirPath​ элемента коллекции .Names,​ ОТКРЫТИЕ​

​ сохраняемой книги присваиваете​​ а не на​ThisWorkbook.Password = «»​ …​ форума посоветуют как​ общий диск с​ открытой-Запись невозможна»- Как​ в папке автозагрузки​
​ в Excel, поэтому​Откройте вкладку​Откройте вкладку​
​ Это скрытая книга​Если понадобится использовать макрос​ в коллекции .Names​ & IIf(Right(sDirPath, 1)​ в котором должен​Надо вот так:​ все эти атрибуты,​ природе), поэтому, прошу​The_Prist​Alex_ST​ можно сделать макрос,​ паролем на изменение​ это сделать? Проблема​

​ файлов Excel –​​ ее нужно сначала​
​Файл​Файл​ на вашем компьютере,​ только в той​
​ под именем sPath_in_Names​ = «», «»,​ храниться путь для​With ActiveWorkbook​

​ затем сохраняете, потом​​ пардону, с ответами​: Алекс, Вы хоть​: Да и к​ осуществляющий аналогичную вункцию​ (ну, просто для​ в том,что записав​ XLSTART: C:Documents and​ подключить.​, выберите пункт​

​и выберите пункт​​ которая открывается при​

​ книге, где он​​ bReadOnlyRecommended = .ReadOnlyRecommended​ «») ‘ на​ сохранения копий файла​
​.WritePassword = «1»​ убираете.​ немного торможу, хотя​

​ посмотрели, что я​​ тому же метод​ в Ёкселе?​ страховки одних пользователей​ макрос, я его​ SettingsUser_NameAppDataRoamingMicrosoftExcelXLSTARTPersonal.xlsb​Чтобы создать и схоронить​Открыть​Параметры​

​ каждом запуске Excel.​ был создан, нажмите​ ‘ запомнить параметры​ всякий случай (если​

​ Dim sSuff$: sSuff​.ReadOnlyRecommended = True​Dim sFileName As​ пока ещё вполне​ предложил? Вы сначала​

​ SaveCopyAs не предполагает​Очевидно, что макрос​ от действий других…).​
​ правила в VBA,какое-то​
​Примечание. XLSTART – это​
​ код в личной​и выберите файлы,​, а затем —​
​ Для получения сведений​
​ кнопку​ исходного файла .ReadOnlyRecommended​ имя было задано​

​ = » [«​.SaveCopyAs sFileName​ String, sExpansion As​ адекватен, но что​
​ задаете книге пароль,​ задания опций сохранения​
​ (ну, например, Save_Copy_As)​Конечно, можно воспользоваться​ время он работал,​ папка для автозагрузки​
​ книге макросов:​
​ с которыми работаете​
​ категорию​ о выполнении этих​
​Сохранить​
​ = —(MsgBox(«Рекомендовать открывать​ в ручную и​

​ & Format(Now, «yyyy/mm/dd​​.WritePassword = «»​

​ String​ будет дальше …​ затем сохраняете, затем​

​ (пароль, предложение открыть​​ должен лежать в​
​ стандартными средствами:​ а потом исчез…​ файлов вместе с​Выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Запись макроса».​
​ каждый день. Они​Настроить ленту​ действий см. статью​или​
​ файл только для​ при этом не​ hh-mm’ss»») & «]»​

​.ReadOnlyRecommended = False​
​BEGIN_:​
​Alex_ST​
​ убираете пароль.​
​ только для чтения​
​ личной книге макросов​
​- открыть папку​
​ Теперь, я его​

​ запуском программы Excel.​В появившемся диалоговом окне​ могут находиться в​

​.​​ Создание и сохранение​Сохранить как​ чтения?», 36) -​ верно — без​ ‘ суффикс к​End With​sFileName = ThisWorkbook.Name​
​: The_Prist,спасибо!​Тоже самое можно​ и т.п.)​
​ (Personal.xls)…​ назначения, скопировать (drag​ вставляю через редактор​ Если сохранить файл​ «Запись макроса», из​ разных местах. Чтобы​
​В разделе​ всех макросов в​
​так же, как​ 7) ‘ MsgBox​ слэша) .Names(sPath_in_Names).Value =​ имени файла копии​Если кому-нибудь интересно,​sExpansion = Right(sFileName,​Всё отлично работает.​ сделать и с​tolikt​А вот как​ & drop’ ом)​ VBA,он отрабатывает для​ в данную папку,​ выпадающего списка «Сохранить​ выбрать несколько файлов​Настройка ленты​ одной книге.​ при обычном сохранении.​ Argument 4==vbYesNo 32==vbQuestion,​ sDirPath ‘ запомнить​ — дата и​ то «причёсанный» вариант​ Len(sFileName) — InStrRev(sFileName,​ Завтра «дополирую» диалогами​ другими атрибутами(только чтение​: Наверное, я что-то​ «Сохранить как…», не​ туда файл, открыть​ открытого файла, закрываю​ то он будет​ в:» выберите опцию​ в одной папке,​в поле​Примечание:​ Но сохранение книги​ MsgBox Return Values:​ путь сохранения копий​ время сохренения копии​ — в файле.​ «.») + 1)​ для задания пассворда​ через GetAttr например).​ не понял…​ закрывая текущего файла?​ его и поставить​ Excel,через некот.время открываю​ открываться вместе с​ «Личная книга макросов».​ щелкните каждый из​Основные вкладки​Мы стараемся как​ с макросами происходит​ vbYes=6, vbNo=7 .SaveCopyAs​ в коллекции .Names​ файла Dim FileName,​Alex_ST​sFileName = Application.GetSaveAsFilename​ …​Alex_ST​Т.к. думал, что​Alex_ST​ пароль на открытие…​ Excel, а макроса​ программой Excel. Для​ И нажмите на​ них, удерживая нажатой​установите флажок​ можно оперативнее обеспечивать​ несколько иначе, поскольку​ FileName .ReadOnlyRecommended =​ под именем sPath_in_Names​ sExp$, sDirPath$, sFullFilePath$,​: Приходится у себя​If sFileName =​А как бы​: Я, конечно, естественно,​ пользователь класса Alex_ST​: Сразу оговариваю:​ Но уж больно​ там нет!?…​ версий старше 2007​ кнопку OK.​ клавишу SHIFT.​Разработчик​ вас актуальными справочными​ необходимо использовать специальный​ bReadOnlyRecommended ‘ восстановить​ sFullFilePath = sDirPath​ sNewPath$ Dim bReadOnlyRecommended​ на компе вести​ «False» Then Exit​ при сохранении копии​ смогу сделать InputBox​ уж сумеет как-то​макросы типа​ это не удобно,​Guest​ путь к папке​Теперь выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Остановить​Откройте вкладку​.​ материалами на вашем​ формат файла «с​ параметры исходного файла​ & FileName ‘​ As Boolean With​ несколько учётных файлов,​ Sub​ задавать «Рекомендовать открытие​ для задания пути​ в макросе подогнать​Sub Save_File_As()​ т.к. надо после​: А если выбрать​ автозагрузки будет следующим:​ запись».​Разработчик​Нажмите кнопку​ языке. Эта страница​ поддержкой макросов». Поэтому​ End With End​ полный путь сохранения​ ActiveWorkbook FileName =​ а их копии​sFileName = sFileName​ только для чтения?»​ для SaveCopyAs, но,​ под себя SaveCopyAs​ActiveWorkbook.SaveAs _​ копирования закрыть свой​ «Все открытые книги»?​ C:Program FilesMicrosoft OfficeOffice12Xlstart.​Откройте редактор Visual Basic:​и нажмите кнопку​ОК​ переведена автоматически, поэтому​ при попытке сохранить​ Sub​ вместе с полным​

planetaexcel.ru

​ .Name ‘ например,​

In Excel, you can make it so all of your macros can be easily accessed by any Excel workbook.

To do this we need to create what is called a «personal macro workbook» and then save it.  All of the macros that we want to use in Excel will be stored within this personal macro workbook and will then be accessible by any Excel file.

Steps to Make any Macro Available in All Excel Files

  1. Open an Excel file and then go to record a dummy macro, recording this dummy macro is what will create the «personal macro workbook» that we need in order to store the macros.
  2. To record a macro go to the Developer tab, if that is visible, or simply look to the bottom left of the Excel window.  From there, click the Record Macro button:
    0090ff8f1346bb6e5fd58a4f23a2e878.jpg
  3. On the screen that appears, make sure to select Personal Macro Workbook from the Store macro in: drop down box and then hit the OK button. Nothing else matters here because we just need to record a simple macro, anything really.
    aa5c83eef649501987c1791017105057.png
  4. Select any cell in the worksheet and then just click the Stop Recording macro button, which is in the exact same location as the Record Macro button in step 2.
    4f55b8f6ab9215a22b4f2630cbcf1a80.png
  5. Now hit Alt + F11 on the keyboard so we can go to the VBA/Macro editor window.  You will now see the PERSONAL.XLSB file appear in the top left pane of the window.
    122bce41fec5716168a2e10c8736d184.png
  6. All you have to do now is to add Modules and Macros to this file like you would to any normal Excel file. Double-click Module 1 and we see the macro that we just recorded:
    80a7034fa3c5d613c06bc0f72c54f20c.png

As you can see, this new PERSONAL.XLSB file behaves just like a regular file in the VBA window.  This is where you will store any macros that you want to be able to access from all Excel files.

Notes

The personal macro workbook file does NOT travel with your Excel files when you send them; this PERSONAL.XLSB file only remains on your computer for you to use.  So, if you send a workbook to another person, they will not be able to access the same macros that you have unless you also put those macros in the workbook you sent.

You must follow the above steps to create the personal macro workbook but, once you have created it, you can access it from any workbook on your computer by simply going to the VBA/Macro editor window (Alt + F11).  As such, once it is created, adding macros to this new file is the same as adding it to any other Excel file — open any workbook, go to the VBA window, add a module to the PERSONAL.XLSB file and then add a macro.

The sample file for this tutorial is empty because, remember, you cannot send the personal macro workbook file with Excel files.


Excel VBA Course

Excel VBA Course — From Beginner to Expert

200+ Video Lessons
50+ Hours of Instruction
200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

Similar Content on TeachExcel

Vlookup Function That Searches The Entire Workbook in Excel — UDF

Macro: With this VLOOKUPWORKBOOK function, you will have to power to more quickly and easily ana…

Copy and Paste Data using Macro VBA in Excel

Tutorial: How to copy and paste data using a Macro in Excel. I’ll show you multiple ways to do this,…

Get the Name of a Worksheet in Macros VBA in Excel

Tutorial: How to get the name of a worksheet in Excel using VBA and Macros and also how to store tha…

Highlight, Sort, and Group the Top and Bottom Performers in a List in Excel

Tutorial:
How to highlight the rows of the top and bottom performers in a list of data.
This allows…

Sort Data that Doesn’t Have Headers in Ascending Order in Excel

Macro: Sort data that doesn’t have headers in ascending order in Excel with this macro. This is a…

Loop through a Range of Cells in a UDF in Excel

Tutorial:
How to loop through a range of cells in a UDF, User Defined Function, in Excel. This is …

Subscribe for Weekly Tutorials

BONUS: subscribe now to download our Top Tutorials Ebook!

Excel VBA Course

Excel VBA Course — From Beginner to Expert

200+ Video Lessons

50+ Hours of Video

200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

Содержание

  • 1 Как сохранить макрос в личную книгу макросов
    • 1.1 Как создать Личную Книгу Макросов
    • 1.2 Как использовать Личную Книгу Макросов
    • 1.3 Где хранится Личная Книга Макросов
    • 1.4 P.S.
    • 1.5 Ссылки по теме

Большинство пользователей Excel знают, как создать и использовать макрос внутри файла одной рабочей книги. В случаи, когда необходимо использовать тот же макрос в других файлах рабочих книг, тогда можно сохранить его в личной книге макросов. У нее всегда одно название – Personal.xlsb. Она всегда открывается при запуске программы Excel, только скрыто. Данная книга не является доступной по умолчанию в Excel, поэтому ее нужно сначала подключить.

Как сохранить макрос в личную книгу макросов

Чтобы создать и схоронить код в личной книге макросов:

  1. Выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Запись макроса».
  2. В появившемся диалоговом окне «Запись макроса», из выпадающего списка «Сохранить в:» выберите опцию «Личная книга макросов». И нажмите на кнопку OK.
  3. Теперь выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Остановить запись».
  4. Откройте редактор Visual Basic: «РАЗРАБОТЧИК»-«Код»-«Visual Basic». Или нажмите комбинацию горячих клавиш ALT+F11. В окне «Project-VBAProject», в дереве проектов появиться доступная еще одна книга Personal.xlsb. Кликните на «плюсик» слева на против этой книги, чтобы раскрыть проект книги Personal.xlsb. А после двойным щелчком отройте ее Module1.
  5. В результате откроется окно кода модуля с зарегистрированным макросом. Удалите его код и введите код своего макроса. Выберите инструмент в редакторе макросов: «File»-«Save Personal.xlsb», а потом закройте редактор Visual Basic.

Теперь у вас подключена скрытая книга для хранения макросов, к которым можно получить доступ из любой другой рабочей книги. Личная книга макросов где находится находиться в папке автозагрузки файлов Excel – XLSTART: C:Documents and SettingsUser_NameAppDataRoamingMicrosoftExcelXLSTARTPersonal.xlsb

Примечание. XLSTART – это папка для автозагрузки файлов вместе с запуском программы Excel. Если сохранить файл в данную папку, то он будет открываться вместе с программой Excel. Для версий старше 2007 путь к папке автозагрузки будет следующим: C:Program FilesMicrosoft OfficeOffice12Xlstart.

Если вам нужно записать в нее новый макрос просто откройте редактор, а потом откройте модуль книги Personal.xlsb. Уже записанные в нее макросы удалять не нужно. Они не будут между собой конфликтовать если соблюдать одно простое правило – в одном модуле нельзя хранить макросы с одинаковыми именами.

Если вы еще не знакомы с макросами в 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:

    как сделать общий макрос excel для всей системы

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

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

как сделать общий макрос excel для всей системы

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

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

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

как сделать общий макрос excel для всей системы

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

как сделать общий макрос excel для всей системы

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

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

как сделать общий макрос excel для всей системы

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

как сделать общий макрос excel для всей системы

Примеры таких функций можно в больших количествах найти в интернете или здесь же на сайте (сумма прописью, приблизительный текстовый поиск, ВПР 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:

как сделать общий макрос excel для всей системы

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

как сделать общий макрос excel для всей системы

P.S.

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

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

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

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

Содержание

  1. Создание Личной книги макросов
  2. Как создать Личную Книгу Макросов
  3. Сохранение макросов в личной книге макросов
  4. Что нельзя сделать с помощью макрорекодера?
  5. Абсолютная и относительная запись макроса
  6. Безопасность макросов в современных версиях Excel (2007 и более новых)
  7. Исходные данные
  8. Как использовать Личную Книгу Макросов
  9. Сохранение файла Excel с названием из ячейки — без привязки к ячейке
  10. Как сохранить макрос в личную книгу макросов
  11. Предназначение Личной книги макросов
  12. Скрытие / отображение персональной макрокоманды
  13. Запись макроса в Excel

Создание Личной книги макросов

Изначально Личная книга макросов в программе Excel отсутствует. Чтобы проверить, есть ли она в вашей программе (не создал ли ее кто-то ранее), откройте любую рабочую книгу и перейдите в редактор VBA, нажав сочетание клавиш «Alt+F11» (в этом сочетании используется левая клавиша Alt). Открыть редактор VBA можно и пройдя по пунктам меню:

Excel 2007-2016: «Разработчик» — «Visual Basic» (смотрите, как отобразить вкладку «Разработчик», которая изначально скрыта);

Excel 2000-2003: «Сервис» — «Макрос» — «Редактор Visual Basic».

Откроется редактор VBA:

  Проводник в редакторе VBA

Если в проводнике сверху вы видите строку «VBAProject (PERSONAL.XLSB)», значит Личная книга макросов на вашем компьютере уже есть.

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

После записи макроса, сохраненного в Личную книгу макросов, эта книга будет создана и появится в проводнике редактора VBA.

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

На самом деле, Личная Книга Макросов (ЛКМ) – это обычный файл 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, где и хранится код только что записанного нами бессмысленного макроса:

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

Сохранение макросов в личной книге макросов

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

Выберите «Персональная книга макросов» в раскрывающемся списке под категорией « Хранить макрос» .

  • Запишите свой второй макрос.
  • Укажите детали макроса в диалоговом окне «Запись макроса», как показано ниже.
  • Нажмите ОК.

Ваша запись начинается. Создайте таблицу, как показано ниже.

  • Прекратить запись.

  • Нажмите вкладку VIEW на ленте.

  • Нажмите Макросы.

  • Выберите View Macros из выпадающего списка. Откроется диалоговое окно «Макрос».

Прекратить запись.

Нажмите вкладку VIEW на ленте.

Нажмите Макросы.

Выберите View Macros из выпадающего списка. Откроется диалоговое окно «Макрос».

Имя макроса отображается с префиксом PERSONAL.XLSB! указывает на то, что макрос находится в личной книге макросов.

Сохраните свою рабочую книгу. Он будет сохранен как файл .xls, так как макрос отсутствует в вашей книге и закроет Excel.

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

Нажмите кнопку Сохранить. Ваш макрос сохраняется в файле Personal.xlsb на вашем компьютере.

Что нельзя сделать с помощью макрорекодера?

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

  • Вы не можете выполнить код без выбора объекта. Например, если вы хотите, чтобы макрос перешел на следующий рабочий лист и выделил все заполненные ячейки в столбце A, не выходя из текущей рабочей таблицы, макрорекодер не сможет этого сделать. В таких случаях вам нужно вручную редактировать код.
  • Вы не можете создать пользовательскую функцию с помощью макрорекордера. С помощью VBA вы можете создавать пользовательские функции, которые можно использовать на рабочем листе в качестве обычных функций.
  • Вы не можете создавать циклы с помощью макрорекордера. Но можете записать одно действие, а цикл добавить вручную в редакторе кода.
  • Вы не можете анализировать условия: вы можете проверить условия в коде с помощью макрорекордера. Если вы пишете код VBA вручную, вы можете использовать операторы IF Then Else для анализа условия и запуска кода, если true (или другой код, если false).

Абсолютная и относительная запись макроса

Вы уже знаете про абсолютные и относительные ссылки в Excel? Если вы используете абсолютную ссылку для записи макроса, код VBA всегда будет ссылаться на те же ячейки, которые вы использовали. Например, если вы выберете ячейку A2 и введете текст “Excel”, то каждый раз – независимо от того, где вы находитесь на листе и независимо от того, какая ячейка выбрана, ваш код будет вводить текст “Excel” в ячейку A2.

Если вы используете параметр относительной ссылки для записи макроса, VBA не будет привязываться к конкретному адресу ячейки. В этом случае программа будет “двигаться” относительно активной ячейки. Например, предположим, что вы уже выбрали ячейку A1, и вы начинаете запись макроса в режиме относительной ссылки. Теперь вы выбираете ячейку A2, вводите текст Excel и нажмите клавишу Enter. Теперь, если вы запустите этот макрос, он не вернется в ячейку A2, вместо этого он будет перемещаться относительно активной ячейки. Например, если выбрана ячейка B3, она переместится на B4, запишет текст “Excel” и затем перейдет к ячейке K5.

Теперь давайте запишем макрос в режиме относительных ссылок:

  1. Выберите ячейку A1.
  2. Перейдите на вкладку “Разработчик”.
  3. В группе “Код” нажмите кнопку “Относительные ссылки”. Он будет подсвечиваться, указывая, что он включен.
  4. Нажмите кнопку “Запись макроса”.
  5. В диалоговом окне “Запись макроса” введите имя для своего макроса. Например, имя “ОтносительныеСсылки”.
  6. В опции “Сохранить в” выберите “Эта книга”.
  7. Нажмите “ОК”.
  8. Выберите ячейку A2.
  9. Введите текст “Excel” (или другой как вам нравится).
  10. Нажмите клавишу Enter. Курсор переместиться в ячейку A3.
  11. Нажмите кнопку “Остановить запись” на вкладке “Разработчик”.

Макрос в режиме относительных ссылок будет сохранен.

Теперь сделайте следующее.

  1. Выберите любую ячейку (кроме A1).
  2. Перейдите на вкладку “Разработчик”.
  3. В группе “Код” нажмите кнопку “Макросы”.
  4. В диалоговом окне “Макрос” кликните на сохраненный макрос “ОтносительныеСсылки”.
  5. Нажмите кнопку “Выполнить”.

Как вы заметите, макрос записал текст “Excel” не в ячейки A2. Это произошло, потому что вы записали макрос в режиме относительной ссылки. Таким образом, курсор перемещается относительно активной ячейки. Например, если вы сделаете это, когда выбрана ячейка B3, она войдет в текст Excel – ячейка B4 и в конечном итоге выберет ячейку B5.

Вот код, который записал макрорекодер:

 Sub ОтносительныеСсылки() ' ' ОтносительныеСсылки Макрос ' ' ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "Excel" ActiveCell.Offset(1, 0).Range("A1").Select End Sub 

Обратите внимание, что в коде нет ссылок на ячейки B3 или B4. Макрос использует Activecell для ссылки на текущую ячейку и смещение относительно этой ячейки.

Не обращайте внимание на часть кода Range(«A1»). Это один из тех случаев, когда макрорекодер добавляет ненужный код, который не имеет никакой цели и может быть удален. Без него код будет работать отлично.

Безопасность макросов в современных версиях Excel (2007 и более новых)

Чтобы запустить макрос в современных версиях Excel, файл должен быть сохранён как Книга Excel с поддержкой макросов. Открывая такой файл, по его расширению xlsm Excel понимает, что в данной рабочей книге содержатся макросы (в отличие от файла со стандартным расширением xlsx).

Поэтому, чтобы иметь возможность запускать созданный в обычной рабочей книге Excel макрос всегда и везде, нужно сохранить её с расширением xlsm. Для этого на вкладке Файл (File) нажмите Сохранить как (Save as) и в поле Тип файла (Save as type) выберите Книга Excel с поддержкой макросов (Excel Macro-Enabled Workbook).

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

  1. Отключить все макросы без уведомления (Disable all macros without notification)

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

  2. Отключить все макросы с уведомлением (Disable all macros with notification)

    Запрет на выполнение макросов. Однако, если в рабочей книге есть макрос, появится предупреждение о том, что макрос присутствует, но отключен.

  3. Отключить все макросы без цифровых подписей (Disable all macros except digitally signed macros)

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

  4. Включить все макросы (Enable all macros)

    Разрешено выполнение всех макросов. При открытии книги Excel не появляется уведомление о том, что в ней содержатся макросы. Соответственно пользователь может не знать, что какой-либо макрос выполняется, пока открыт файл.

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

Чтобы разрешить выполнение макросов нужно просто кликнуть по кнопке Включить содержимое (Enable Content).

Исходные данные

Сначала давайте разберем исходные данные, которые я буду использовать в примерах. Пусть это будет некая абстракция марок автомобилей с указанием их VIN номера.

Примечание! Я использую Excel 2013.

В зависимости от конкретных требований и условий, задачу можно реализовать по-разному, хотя принцип будет один и тот же, в этой статье мы рассмотрим несколько вариаций реализации.

Начнем мы с самой простой ситуации, когда заранее известна ячейка, на основе которой будет сформировано имя файла, и адрес этой ячейки изменяться не будет.

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

Дальше все просто. Любой нужный вам макрос (т.е. кусок кода, начинающийся на 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, конвертация кириллицы в транслит и т.п.)

Теперь давайте представим, что заранее мы не можем определить, какая именно ячейка будет формировать название файла (может B14, а может и нет), поэтому мы можем немного скорректировать алгоритм таким образом, чтобы он брал значение из ячейки, которая является активной, но в этом случае Вы, конечно же, предварительно, должны выбрать ее (т.е. встать на нее).

Замените код процедуры следующим кодом, который совсем немного, но изменен.

 Sub SaveFile() 'Объявление переменных Dim CellValue As String Dim Path As String Dim FinalFileName As String 'Временно отключаем показ вспомогательных сообщений Application.DisplayAlerts = False 'Задаём каталог сохранения файла (в данном случае текущий каталог) Path = ThisWorkbook.Path & "" 'Проверка значения ячейки If ActiveCell.Value = "" Then MsgBox "В ячейке отсутствует значение", vbCritical, "Ошибка!" Exit Sub End If 'Получаем значение активной ячейки CellValue = ActiveCell.Value 'Формируем итоговый путь и название файла FinalFileName = Path & CellValue 'Сохраняем файл ActiveWorkbook.SaveAs FileName:=FinalFileName, _ FileFormat:=xlOpenXMLWorkbook 'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Для сохранения файла с макросом 'Включаем вывод сообщений Application.DisplayAlerts = True MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат" End Sub 

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

Как видим, все отработало.

Как сохранить макрос в личную книгу макросов

Чтобы создать и схоронить код в личной книге макросов:

  1. Выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Запись макроса».
  2. В появившемся диалоговом окне «Запись макроса», из выпадающего списка «Сохранить в:» выберите опцию «Личная книга макросов». И нажмите на кнопку OK.
  3. Теперь выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Остановить запись».
  4. Откройте редактор Visual Basic: «РАЗРАБОТЧИК»-«Код»-«Visual Basic». Или нажмите комбинацию горячих клавиш ALT+F11. В окне «Project-VBAProject», в дереве проектов появиться доступная еще одна книга Personal.xlsb. Кликните на «плюсик» слева на против этой книги, чтобы раскрыть проект книги Personal.xlsb. А после двойным щелчком отройте ее Module1.
  5. В результате откроется окно кода модуля с зарегистрированным макросом. Удалите его код и введите код своего макроса. Выберите инструмент в редакторе макросов: «File»-«Save Personal.xlsb», а потом закройте редактор Visual Basic.

Теперь у вас подключена скрытая книга для хранения макросов, к которым можно получить доступ из любой другой рабочей книги. Личная книга макросов где находится находиться в папке автозагрузки файлов Excel – XLSTART: C:Documents and SettingsUser_NameAppDataRoamingMicrosoftExcelXLSTARTPersonal.xlsb

Примечание. XLSTART – это папка для автозагрузки файлов вместе с запуском программы Excel. Если сохранить файл в данную папку, то он будет открываться вместе с программой Excel. Для версий старше 2007 путь к папке автозагрузки будет следующим: C:Program FilesMicrosoft OfficeOffice12Xlstart.

Если вам нужно записать в нее новый макрос просто откройте редактор, а потом откройте модуль книги Personal.xlsb. Уже записанные в нее макросы удалять не нужно. Они не будут между собой конфликтовать если соблюдать одно простое правило – в одном модуле нельзя хранить макросы с одинаковыми именами.

Предназначение Личной книги макросов

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

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

Подпрограммы, размещенные в Личной книге макросов, можно просмотреть в окне «Список макросов», открыв его из любой книги Excel (функции в этом окне не представлены). Они будут перечислены с приставкой «PERSONAL.XLSB!».

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

  Список пользовательских функций в Личной книге макросов

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

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

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

Скрытие / отображение персональной макрокоманды

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

  • Нажмите вкладку VIEW на ленте.

  • Нажмите Показать в группе окон.

Нажмите вкладку VIEW на ленте.

Нажмите Показать в группе окон.

Откроется диалоговое окно «Показать».

PERSONAL.XLSB появится в поле «Показать книгу» и нажмите «ОК».

Теперь вы можете просматривать макросы, сохраненные в личной книге макросов.

Чтобы скрыть личную книгу макросов, выполните следующие действия:

  • Нажмите на личную книгу макросов.
  • Нажмите вкладку VIEW на ленте.
  • Нажмите Скрыть на ленте.

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

Теперь давайте запишем очень простой макрос, который выбирает ячейку и вводит в нее текст, например “Excel”.

Вот шаги для записи такого макроса:

  1. Перейдите на вкладку “Разработчик”.
  2. В группе “Код” нажмите кнопку “Запись макроса”. Откроется одноименное диалоговое окно.
  3. В диалоговом окне “Запись макроса” введите имя для своего макроса, например “ВводТекста”. Есть несколько условий именования, которые необходимо соблюдать при назначении макроса. Например, вы не можете использовать пробелы между ними. Обычно я предпочитаю сохранять имена макросов как одно слово, с разными частями с заглавным первым алфавитом. Вы также можете использовать подчеркивание для разделения двух слов – например, “Ввод_текста”.
  4. Если вы хотите, то можете задать сочетание клавиш. В этом случае мы будем использовать ярлык Ctrl + Shift + N. Помните, что сочетание, которое вы указываете, будет отменять любые существующие горячие клавиши в вашей книге. Например, если вы назначили сочетание Ctrl + S, вы не сможете использовать это для сохранения рабочей книги (вместо этого, каждый раз, когда вы его используете, он выполняет макрос).
  5. В поле “Сохранить в” убедитесь, что выбрана опция “Эта книга”. Этот шаг гарантирует, что макрос является частью рабочей книги. Он будет там, когда вы сохраните его и снова откроете, или даже если вы поделитесь файлом с кем-то.
  6. Введите описание при необходимости. Обычно я этого не делаю, но если у вас много макросов, лучше указать, чтобы в будущем не забыть что делает макрос.
  7. Нажмите “ОК”. Как только вы нажмете OK, Excel начнет записывать ваши действия. Вы можете увидеть кнопку “Остановить запись” на вкладке “Разработчик”, которая указывает, что выполняется запить макроса.
  8. Выберите ячейку A2.
  9. Введите текст “Excel” (или вы можете использовать свое имя).
  10. Нажмите клавишу Enter. Вы попадете на ячейку A3.
  11. Нажмите кнопку “Остановить запись” на вкладке “Разработчик”.

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

Теперь давайте рассмотрим код который записал макрорекодер. Выполните следующие действия, чтобы открыть редактор кода:

  1. Удалите текст в ячейке A2. Это нужно, чтобы проверить будет ли макрос вставлять текст в ячейку A2 или нет.
  2. Выберите любую ячейку – кроме A2. Это нужно проверить, выбирает ли макрос ячейку A2 или нет.
  3. Перейдите на вкладку “Разработчик”.
  4. В группе “Код” нажмите кнопку “Макросы”.
  5. В диалоговом окне “Макрос” щелкните макрос “ВводТекста”.
  6. Нажмите кнопку “Выполнить”.

Вы увидите, что как только вы нажмете кнопку “Выполнить”, текст “Excel” будет вставлен в ячейку A2 и выбрана ячейка A3. Это происходит за миллисекунды. Но на самом деле макрос последовательно выполнил записанные действия.

Примечание. Вы также можете запустить макрос с помощью сочетания клавиш Ctrl + Shift + N (удерживайте клавиши Ctrl и Shift, а затем нажмите клавишу N). Это тот же самый ярлык, который мы назначили макросу при его записи.

Источники

  • https://vremya-ne-zhdet.ru/vba-excel/lichnaya-kniga-makrosov/
  • https://www.planetaexcel.ru/techniques/3/5201/
  • https://coderlessons.com/tutorials/bolshie-dannye-i-analitika/izuchite-excel-makrosy/makrosy-excel-makrosy-v-odnoi-knige
  • https://micro-solution.ru/excel/vba/first-macros
  • http://officeassist.ru/excel/kak-soxranit-makrosy-excel/
  • https://info-comp.ru/obucheniest/703-excel-save-as-file-on-vba.html
  • https://exceltable.com/vba-macros/lichnaya-kniga-makrosov

0 / 0 / 0

Регистрация: 13.04.2010

Сообщений: 8

1

Макрос для всех документов

13.04.2010, 17:29. Показов 28988. Ответов 8


Студворк — интернет-сервис помощи студентам

Здравствуйте!

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

Спасибо!!



0



496 / 130 / 19

Регистрация: 30.03.2010

Сообщений: 224

13.04.2010, 17:42

2

книгу с макросом нужно сохранить в папке ……Microsoft OfficeOFFICExxXLSTART
тогда она будет загружаться при каждом старте Excel’а и макрос из нее будет доступен для всех



0



0 / 0 / 0

Регистрация: 13.04.2010

Сообщений: 8

13.04.2010, 17:59

 [ТС]

3

Немного не тот результат получился, открываю файл экселя, у меня дополнительно открывается книга сохраненная в папке XLSTART. хотелось бы что бы который документ открыт там и был доступен макрос



0



1904 / 781 / 31

Регистрация: 11.02.2010

Сообщений: 1,567

13.04.2010, 18:48

4



0



0 / 0 / 0

Регистрация: 13.04.2010

Сообщений: 8

13.04.2010, 20:23

 [ТС]

5

А нельзя ли что-нибудь типа общего шаблона сделать, например в normal.dotm записать?



0



1904 / 781 / 31

Регистрация: 11.02.2010

Сообщений: 1,567

13.04.2010, 20:31

6

а. тебе для ворда. да. в нормал дот скопируй. гдето в ворде даже окошко есть для управления маросами.
чтото вроде. Alt+F8 — организатор



0



0 / 0 / 0

Регистрация: 13.04.2010

Сообщений: 8

13.04.2010, 20:40

 [ТС]

7

Точно нормал дот он для ворда только?) а я туда пытался сохранить макрос, мне действительно для экселя надо.



0



Частенько бываю

749 / 330 / 42

Регистрация: 20.06.2007

Сообщений: 854

14.04.2010, 09:25

8

Разработчики рекомендуют сохранять общие макросы в личную книгу макросов Personal.xls. Она будет подгружаться также с запуском Excel, но будет является скрытой для самого приложения. В VBE код будет виден, но это относится и к надстройкам.



0



0 / 0 / 0

Регистрация: 13.04.2010

Сообщений: 8

14.04.2010, 09:47

 [ТС]

9

Попробую с Personal.xls, так то неважно виден код или нет главное что бы работал абсолютно для всех книг.



0



Одна из примечательнейших функций в табличном редакторе Microsoft Excel – это макросы, средство записи последовательностей пользовательских действий, которые впоследствии можно повторить и применить к выбранным при записи или другим ячейкам. И автоматизировать таким образом множество рутинных операций, на которые, если таблица большая, может уйти просто масса времени. Макросы можно использовать для запуска разных операций на ленте меню Excel, операций сохранения, импорта-экспорта данных, смежных операций с другими приложениями MS Office и пр. Давайте же подробнее узнаем про макросы в Excel.

Содержание

  1. Макросы в Microsoft Excel
  2. Как создать макрос в Excel
  3. Как выполнить макрос в Excel
  4. Особенности макросов Excel с другими действиями
  5. Сохранение файла Excel с макросами

Макросы в Microsoft Excel

Итак, макросы в Excel – это запись определённой последовательности действий пользователя в табличном редакторе для автоматического выполнения этих же действий уже в дальнейшем. Работа макросов в Excel базируется на инструменте программирования Visual Basic для приложений VBA. А действия пользователей, которые можно автоматизировать с помощью макросов, могут быть разные. Это ввод данных в ячейки, выбор конкретных ячеек, строк или столбцов. Это запуск операций в ленте меню Excel, особенно макросы эффективны еще в применении к операциям форматирования. Это вставка диаграмм, рисунков, иллюстраций и прочих объектов. Это импорт разных данных, например, из Microsoft Access или SQL Server. Это сохранение и экспорт таблицы в определённые форматы файлов, например, в PDF или CSV. Единожды записав последовательность определённых действий, можно потом автоматически запускать эти же действия и для других ячеек, других данных, в отношении других таблиц или файлов Excel. А поскольку Visual Basic для приложений VBA поддерживают и другие приложения Microsoft Office, то в числе записываемых макросами операций могут быть и такие, что взаимодействуют с другими приложениями Microsoft Office. Можно, например, записать макрос открытия таблицы в Microsoft Outlook для отправки по почте.

При записи макроса, чтобы он впоследствии корректно срабатывал, необходимо выполнять все действия чётко и корректно, не выходя за рамки Excel (и других приложений Microsoft Office, если в число записываемых действий включаются их операции).

В современных приложениях Microsoft Excel инструменты макросов добавлены во вкладку «Вид». Здесь можно запускать и останавливать создание макросов, и можно открыть окошко макросов для их выполнения или управления ими.

Макросы в Microsoft Excel

А если у вас в приложении Excel во вкладке «Вид» нет инструментов макроса, то жмите «Файл – Параметры». В параметрах приложения кликните «Настроить ленту» и установите галочку ленты «Разработчик». По итогу нажмите «Ок».

Макросы в Microsoft Excel

И ищите инструменты макросов в активированной ленте меню «Разработчик».

Макросы в Microsoft Excel

Впоследствии, если работа с макросами будет уже активной, их операции можно добавить и на панель быстрого доступа. Помимо этого, открыть окно управления макросами можно ещё и горячими клавишами Alt+F8.

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

Как создать макрос в Excel

Если при записи макроса произвести над одной ячейкой таблицы определённые операции форматирования – установить нужный формат для данных, нужный стиль, цвет, шрифт, жирное или курсивное начертание, выравнивание текста и т.п., потом можно применять всю подборку форматирующих операций к любым указанным ячейкам, в любой таблице и в любом документе Excel.

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

Для примера есть таблица Excel с данными рейтинга браузеров. Чтобы зрительно выделить долю рынка только интересующих нас десктопных браузеров, давайте применим к их ячейкам какое-нибудь из витиеватых оформлений. Кликнем на одну из ячеек таблицы. Запускаем запись макроса.

Макросы в Microsoft Excel

В форме для записи макроса даём ему имя. Можно обратить внимание на опцию назначения горячих клавиш для него. И если вы будете активно пользоваться в дальнейшем конкретно этим макросом, тогда можно назначить любую удобную вам строчную или прописную букву, которая будет использоваться в сочетании с клавишей Ctrl. По итогу, нажимаем «Ок».

Макросы в Microsoft Excel

Запись макроса пошла. Применим к ячейке форматирование и зададим стиль.

Макросы в Microsoft Excel

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

Макросы в Microsoft Excel

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

Макросы в Microsoft Excel

Как выполнить макрос в Excel

Теперь давайте применим этот макрос. Для этого, выбираем ячейки, к которым хотим применить записанные в макросе операции форматирования.

Макросы в Microsoft Excel

Запустим окошко управления макросами (либо жмём клавиши Alt+F8). Выберем наш макрос, жмём «Выполнить».

Макросы в Microsoft Excel

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

Макросы в Microsoft Excel

Особенности макросов Excel с другими действиями

По рассмотренному принципу можно записывать макросы для любых действий в Excel. Но нужно понимать, что макросы — это всё же топорное и примитивное программирование. Записанная определённая последовательность из действий будет применяться только в определённых и конкретных условиях. Т.е., если мы запишем, например последовательность действий для нескольких ячеек, тогда макрос будет работать только для них и только в исходной таблице. Или другой пример – сохранение таблицы в определённом формате, макрос будет работать только по указанному пути сохранения на диске компьютера.

Сохранение файла Excel с макросами

Чтобы записанные макросы были доступными в дальнейшем в исходном файле Excel и других, исходный файл нужно сохранять как книгу Excel и с поддержкой макросов. Для этого, нажимаем «Файл – Сохранить как».

Макросы в Microsoft Excel

Указываем путь сохранения.

Макросы в Microsoft Excel

В типе сохраняемого файла выбираем «Книга Excel с поддержкой макросов».

Макросы в Microsoft Excel

Если у вас остались вопросы, оставляйте их в комментариях ниже. А пока… пока.

В некоторых случаях вам может понадобиться использовать один макрос VBA несколько раз в будущем. Это возможно сохраните как-нибудь модуль VBA в любой новый документ чтобы он был доступен во всех книгах? Ответ положительный. В этом уроке мы познакомим вас с простым способом достижения вашей цели.
doc save-use-vba-macros-in-all-workbooks 1

Сохраните и используйте код VBA во всех книгах


Сохраните и используйте код VBA во всех книгах

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

1. нажмите Alt + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули и вставьте следующий макрос в окно модуля.

Код VBA: преобразование чисел в слова

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. Нажмите Сохраните значок в верхнем левом углу ленты или нажмите Ctrl + S для открытия Сохранить как окно.doc save-use-vba-macros-in-all-workbooks 2

4. в Сохранить как введите имя книги в поле Имя файла коробка. И выберите Надстройка Excel (*.xlam) вариант в Сохранить как выпадающий список.
doc save-use-vba-macros-in-all-workbooks 3

5. Затем нажмите Сохраните кнопку, чтобы сохранить книгу с кодом VBA в качестве Надстройка Excel.
doc save-use-vba-macros-in-all-workbooks 4

6. Вернемся к Excel, закройте пустую книгу, которая была сохранена как надстройка Excel.

7. Откройте новую книгу с данными, которые необходимо преобразовать. Введите формулу = Число слов (A2) в ячейке В2. # ИМЯ? будет возвращено значение ошибки, поскольку код VBA еще не был применен во всех книгах.
doc save-use-vba-macros-in-all-workbooks 5

8. К Застройщик вкладку нажмите Надстройки Excel в Надстройки группа.
doc save-use-vba-macros-in-all-workbooks 6

9. Добавить в всплывает диалоговое окно. Щелкните значок Приложения кнопку.
doc save-use-vba-macros-in-all-workbooks 7

10. Выберите надстройку, которую вы только что сохранили, затем нажмите OK кнопку.
doc save-use-vba-macros-in-all-workbooks 8

11. Затем Надстройка «Преобразование чисел в слова» настроенный вами вставлен и включен. Нажмите на OK кнопку, чтобы завершить настройку.
doc save-use-vba-macros-in-all-workbooks 9

12. Теперь при вводе формулы = Число слов (A2) в ячейке B2 и нажмите кнопку Enter ключ, будут возвращены соответствующие английские слова. Перетащите маркер автозаполнения вниз, чтобы получить все результаты.
doc save-use-vba-macros-in-all-workbooks 10

Заметки:

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

  1. Вы можете добавить код в Быстрая панель инструментов и запускайте код каждый раз, когда на панели инструментов нажимается кнопка кода.
    doc save-use-vba-macros-in-all-workbooks 11
  2. Вы также можете напрямую нажать Alt + F11 чтобы открыть окно операции с кодом, найдите код и нажмите F5 бежать.

Прочие операции (статьи)

Код VBA для отображения всех надстроек в Excel
В Excel вы можете добавлять или вставлять надстройки для более удобной работы с данными. Как мы знаем, мы можем перейти в окно «Параметры», чтобы просмотреть все надстройки, но есть ли способ перечислить все надстройки на листе? Теперь в этом руководстве он предоставляет код VBA для перечисления всех надстроек в Excel.

Как защитить/заблокировать код VBA в Excel?
Точно так же, как вы можете использовать пароль для защиты книг и рабочих листов, вы также можете установить пароль для защиты макросов в Excel.

Как использовать временную задержку после запуска макроса VBA в Excel?
В некоторых случаях вам может потребоваться установить задержку таймера для запуска макроса VBA в Excel. Например, если щелкнуть для запуска указанного макроса, он вступит в силу через 10 секунд. Эта статья покажет вам способ ее достижения.


Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Группировка сводной таблицы по номер недели, день недели и другое … Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя

вкладка kte 201905


Вкладка Office — предоставляет интерфейс с вкладками в Office и значительно упрощает вашу работу

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

Понравилась статья? Поделить с друзьями:
  • Как сохранить макрос в excel visual basic
  • Как сохранить созданную таблицу в excel
  • Как сохранить макет в word
  • Как сохранить смету в гранд смете в формате excel
  • Как сохранить макет в excel