Как сохранить макрос в 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 в автоматически открывались книги, грамматические ошибки. ДляСохранить в виде книги можно оперативнее обеспечивать
(*" & sExp 1) ' расширениеДостало постоянно выбиратьIf sFileName = как к имени
это "две большиеThe_PristWriteResPassword:="", _- сказать Ёкселюz_korch
редактор, а потом окне «Project-VBAProject», в конечном итоге будет
выполните указанные ниже нас важно, чтобы с поддержкой макросов
вас актуальными справочными & "), *" файла вместе с куда и какой ThisWorkbook.FullName Then файла при сохранении разницы" . : А кто мешает
ReadOnlyRecommended:=True, _ "Сохранить как. " и: Может я не
Создание и сохранение макросов в личной книге
откройте модуль книги дереве проектов появиться предложено сохранить изменения действия. эта статья была (XLSM-файл), выбрав материалами на вашем & sExp & точкой (например, ".xls") файл сохранять. MsgBox "Нельзя сохранить добавить перед расширениемThe_Prist перед этим вывести
Запись макроса для открытия определенных книг при запуске Excel
CreateBackup:=False указать с каким знаю как в Personal.xlsb. Уже записанные доступная еще одна в личной книгеОткройте вкладку вам полезна. ПросимНет языке. Эта страница ", All Files FileName = Left(FileName,Переделал макрос Save_Copy_As файл под имененм суффикс - дату: Я Вам уже диалог?End Sub именем, куда и редакторе открыть Personal?Когда в нее макросы книга Personal.xlsb. Кликните
Dim sFileName Asне подходят, т.к. с какими паролями в VBA открываю удалять не нужно. на «плюсик» слева "Да", чтобы макрос
и нажмите кнопку секунд и сообщить,Сохранить в виде книги ее текст может копии файла") 'задать & sSuff & последнего сохранения копии + vbYesNo, "Ошибка"
(ну, например, Имя_моего_рабочего_файла(01-06-2010 - чем он String, sExpansion As это как раз сохранить файл. А View->Project, то вижу Они не будут
на против этой запускался при каждомЗапись макроса
помогла ли она без поддержки макросов, содержать неточности и путь сохранения и
sExp ' например, запоминается в самомGoTo BEGIN_ 14-30).xls не устраивает? Выбор
String и есть описанный потом закрыть тот среди объектов только между собой конфликтовать
книги, чтобы раскрыть запуске Excel.. вам, с помощью выбрав
грамматические ошибки. Для имя копии файла "Книга1 [2012.02.06 15-24'39''].xls"
файле в коллекцииEnd IfThe_Prist через диалог, сохраняетBEGIN_: мною выше второй сетевой, видный для
Лист1,2,3,и ЭтаКнига. все. если соблюдать одно проект книги Personal.xlsb.
Каждый раз при запускеВ поле кнопок внизу страницы.Да нас важно, чтобы в окне выбора On Error Resume NamesThisWorkbook.Password = "1":SetAttr: SetAttr ThisWorkbook.FullName, vbReadOnly куда укажешь иsFileName = ThisWorkbook.Name случай. всех, файл и
Если Insert->Module?, то простое правило – А после двойным Excel автоматически будутИмя макроса
Для удобства также. эта статья была If VarType(FileName) = Next sDirPath =Два дня поюзал ThisWorkbook.FullName, vbReadOnlyAlex_ST
с паролем, даsExpansion = Right(sFileName,tolikt открыть свой рабочий.
Личная книга макросов в Excel и как ее использовать
тоже предлагает сохранить в одном модуле щелчком отройте ее открываться книги, включенныевведите приводим ссылку наЧтобы сохранить макрос как вам полезна. Просим vbBoolean Then Exit .Names(sPath_in_Names).Value ' считать - понравилось!ThisWorkbook.SaveCopyAs sFileName: К сожалению, свойство еще и предупреждает, Len(sFileName) - InStrRev(sFileName,: .SaveCopyAs чем не Это тоже не только в "Книга1-ЭтаКнига(Code)" нельзя хранить макросы Module1. в макрос.Auto_Open
Как сохранить макрос в личную книгу макросов
оригинал (на английском книгу с поддержкой вас уделить пару
- Sub ' если
- из коллекции .NamesSub Save_Copy_As() '---------------------------------------------------------------------------------------ThisWorkbook.Password = "":SetAttr vbReadOnly при SaveCopyAs если такой файл ".") + 1) устраивает?
- слишком удобно, т.к.kaa
- с одинаковыми именами.В результате откроется окноБольшинство пользователей Excel знают,. языке) . макросов, секунд и сообщить, нажали "Отмена", то значение, ранее сохраненное ' Procedure : ThisWorkbook.FullName, vbNormal задать не удаётся. есть.sFileName = Application.GetSaveAsFilenameThe_Prist
- требует много "мышкодвижений".: в экселе Сервис-Параметрыz_korch кода модуля с как создать иВ спискеПредположим, что вы хотитещелкните помогла ли она FileName = False,
записать макрос дляНет вам, с помощью если "Сохранить" - If Err Then : Alex_ST ': его задать для: The_Prist, вы с "False" Then ExitThisWorkbook.SaveCopyAs 'полный путь, себе прогу "PDF-Exchange" есть поле "каталог
за замечательный сайт!Много его код и файла одной рабочейвыберите пункт открытия книг, которые. кнопок внизу страницы. полный путь к .Names.Add sPath_in_Names, .Path Topic_HEADER : КакAlex_ST, про дату в уже созданного файла-копии? такой скоростью создаёте Sub включая расширение файла.
как записать макрос, чтобы он был доступен для всех книг?
и увидел там автозагрузки". указывате там полезного нашла,но с введите код своего книги. В случаи,Личная книга макросов используете каждый день,В окне Для удобства также файлу вместе с & "\": sDirPath макросом сохранить копию названии есть вThe_Prist свои ответы покаsFileName = sFileName ДОЛЖЕН БЫТЬ В возможность "Сохранить копию путь. этой проблемой не макроса. Выберите инструмент когда необходимо использовать. при запуске Excel.Сохранить как приводим ссылку на его именем If = .Names(sPath_in_Names).Value ' текущего файла? ' приёмах:: Алекс, ну чтоже я ввожу свои,
<> sExpansion, sExpansion, не было конфликтаОказалось очень удобно, кладете файл с правильно сохранить макрос, «File»-«Save Personal.xlsb», а
в других файлах доступен при каждом макроса "Авто_открыть", чтобы
Тип файла языке) . Then MsgBox "Здесь
Как макросом сохранить копию текущего файла?
удалось, значит путь ' 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
Путь сохранения копийSetAttr ActiveWorkbook.FullName, vbReadOnly пароль.
Скорее всего до открытого файла!", vbCritical
и имени сохранения, месте с указанными: По работе на нашла,что надо сохранять хранения макросов, к – Personal.xlsb. Она
Описание
что на лентеСохранить приложений (VBA). После ' путь к Len(sDirPath) - 3) хранится в коллекции устанавливать, т.к. этоТоже самое можно завтра, т.к.у нас + vbYesNo, "Ошибка"
а хотелось бы свойствами (всё это своём компе создаю/модернизирую/заполняю в Личной книге которым можно получить всегда открывается при. Можно также оставить доступна вкладка
. создания макроса следует папке сохранения копий
' убрать из .Names книги (в ничего не даёт сделать и с на работе сегодняGoTo BEGIN_ по вызову макроса
задаётся в стандартных
разные таблицы. макросов, но когда доступ из любой запуске программы Excel,
это поле пустым.РазработчикЧтобы макросы были доступны
сохранить его для
без имени файла
считанного значения в именованном диапазоне) '--------------------------------------------------------------------------------------- , а
другими атрибутами(только чтение
отмечается "День Корпорации"End If выйти на стандартное
ThisWorkbook.Password = "1" окно выбора путиВот и подумал, этапа КОПИЮ таблицы выдает ошибку:"Личн.кн.макр.в папке Личная книга макросов книга не является
ОК выполните указанные ниже Excel, создайте их в текущей или
' запомнить выбранный в конце " "Path4SaveCopyAs" ' имя задаёт пароль НАТ.е. сначала Вы на рабочих местах,ThisWorkbook.SaveCopyAs sFileName и имени сохранения а вдруг гуру надо выкладывать на
автозагрузки должна оставаться где находится находиться доступной по умолчанию. действия. в книге «Personal.xlsb». в других книгах. в диалоге путь sDirPath = sDirPath элемента коллекции .Names, ОТКРЫТИЕ
сохраняемой книги присваиваете а не наThisWorkbook.Password = "" . форума посоветуют как общий диск с открытой-Запись невозможна"- Как в папке автозагрузки
в Excel, поэтомуОткройте вкладкуОткройте вкладку
Это скрытая книгаЕсли понадобится использовать макрос в коллекции .Names & IIf(Right(sDirPath, 1) в котором долженНадо вот так: все эти атрибуты, природе), поэтому, прошуThe_PristAlex_ST можно сделать макрос, паролем на изменение это сделать? Проблема
файлов Excel – ее нужно сначала
ФайлФайл на вашем компьютере, только в той
под именем sPath_in_Names = "\", "", храниться путь дляWith ActiveWorkbook
затем сохраняете, потом пардону, с ответами: Алекс, Вы хоть: Да и к осуществляющий аналогичную вункцию (ну, просто для в том,что записав XLSTART: C:\Documents and подключить., выберите пункт
и выберите пункт которая открывается при
книге, где он bReadOnlyRecommended = .ReadOnlyRecommended "\") ' на сохранения копий файла
.WritePassword = "1" убираете. немного торможу, хотя
посмотрели, что я тому же метод в Ёкселе? страховки одних пользователей макрос, я его Settings\User_Name\AppData\Roaming\Microsoft\Excel\XLSTART\Personal.xlsbЧтобы создать и схоронитьОткрытьПараметры
каждом запуске Excel. был создан, нажмите ' запомнить параметры всякий случай (если
Dim sSuff$: sSuff.ReadOnlyRecommended = TrueDim 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.В появившемся диалоговом окне могут находиться в
Если вы воссоздаете те же макрос, вы можете скопировать их в специальную книгуPersonal.xls b, сохраненную на компьютере. Любые макросы, хранимые в личной книге, становятся доступны вам при Excel на этом же компьютере.
Это поведение отличается от Excel по умолчанию, когда макрос работает только в книге, содержаной его.
Чтобы создать личную книгу, сначала нужно создать макрос и сохранить его в личной книге макроса. Перед началом работы убедитесь, что вкладка Разработчик доступна на ленте в Excel. Дополнительные сведения см. в этой вкладке.
Создание и обновление книги "Личные макросы"
На вкладке Разработчик в группе Код нажмите кнопку Запись макроса.
В диалоговом окне Запись макроса введите содержательное имя макроса в поле Имя макроса. Не используйте пробелы в имени.
В поле Сохранить в выберитеЛичная книга макроса.
Выполните действия, которые нужно записать.
На вкладке Разработчик в группе Код нажмите кнопку Остановить запись.
Каждый раз при создании нового макроса и сохранении его в личную книгу, а также при обновлении макроса в книге предлагается сохранить личную книгу.
Общий доступ к макросам
Если вы хотите скопировать макрос из личной книги в другую книгу или наоборот, это можно сделать в редакторе Visual Basic(VBE). Вы можете запустить редактор Visual Basic в Excel, нажав ALT+F11. Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.
Если вы хотите поделиться файлом Personal.xlsB с другими людьми, вы можете скопировать его в папку XLSTART на других компьютерах. В Windows 10, Windows 7 и Windows Vista эта книга будет сохранена в папке C:\Users\имя пользователя\AppData\Local\Microsoft\Excel\XLStart. В Microsoft Windows XP эта книга сохранена в папке C:\Documents and Параметры\имя пользователя\Application Data\Microsoft\Excel\XLStart. Книги в папке XLStart открываются автоматически при Excel, а все коды, сохраненные в личной книге макроса, будут перечислены в диалоговом окну Макрос.
Чтобы создать личную книгу, сначала нужно создать макрос и сохранить его в личной книге макроса. Перед началом работы убедитесь, что вкладка Разработчик доступна на ленте в Excel. Для этого:
В меню Excel выберите пункт Параметры. > ленты & панели инструментов. В категории Настройка ленты в списке Основные вкладки выберите разработчик и нажмите кнопку Сохранить.
Создание и обновление книги "Личные макросы"
Чтобы создать личную книгу, сначала нужно создать макрос и сохранить его в личной книге макроса.
На вкладке Разработчик нажмите кнопку Запись макроса.
В диалоговом окне Запись макроса введите содержательное имя макроса в поле Имя макроса. Не используйте пробелы в имени.
В поле Сохранить в выберитеЛичная книга макроса.
Выполните действия, которые нужно записать.
На вкладке Разработчик щелкните Остановить запись.
Сохраните изменения, закроем книгу и, наконец, закроем Excel.
Каждый раз, когда вы создаете новый макрос и сохраняете его в личной книге или обновляете макрос, который уже есть в нем, вам будет предложено сохранить личную книгу.
Общий доступ к макросам
Если вы хотите скопировать макрос из личной книги в другую книгу или наоборот, это можно сделать в редакторе Visual Basic(VBE). Чтобы запустить редактор Visual Basic в Excel, щелкните Visual Basic на вкладке Разработчик. Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.
Если вы хотите поделиться файлом Personal.xlsB с другими людьми, вы можете скопировать его в папку Excel на других компьютерах. Эта папка для Mac находится в домашней папке на сайте ~/Library/Containers/com.microsoft. Excel/Data/Library/Application Support/Microsoft/Roaming/Excel/.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
Когда вы впервые создаете макрос в книге, он работает только в ней. А если вам нужно использовать макрос в других книгах? Чтобы макросы были доступны при каждом запуске Excel, создайте их в книге с именем Personal.xlsb. Это скрытая книга, которая хранится на компьютере и открывается в фоновом режиме при каждом Excel.
Макросы и средства VBA находятся на вкладке Разработчик, которая по умолчанию скрыта, поэтому сначала нужно включить ее. Дополнительные сведения см. в статье Отображение вкладки "Разработчик".
Теперь создайте макрос. Мы зафиксим макрос, который ничего не делает, но создаст личную книгу макроса.
Дополнительные сведения о создании макросов см. в разделе Краткое руководство. Создание макроса.
Перейдите на вкладку Разработчик и нажмите кнопку Запись макроса.
В диалоговом окне Запись макроса не помешает ввести имя макроса в поле Имя макроса. Вы можете принять имя, которое Excel, например Макрос1, так как это просто временный макрос.
Когда вы начнете создавать собственные макросы, вам нужно будет дать им описательные имена, чтобы вы знали, что они делают.
В поле Сохранить в выберитеЛичная книга макроса и > ОК. Это самый важный шаг, так как если у вас еще нет личной книги макроса, Excel создаст ее.
Щелкните Разработчик > Остановитьзапись , Excel создайте личную книгу макроса.
При закрытии книги вам будет предложено сохранить как книгу, так и личную книгу макроса.
Чтобы увидеть созданный макрос:
Перейдите в >Visual Basic, чтобы запустить редактор Visual Basic (VBE),в котором хранятся макросы.
Книгу "Личные макросы" можно найти в области Project проводника слева. Если вы не видите его, перейдите в > Project проводник.
Дважды щелкните папку VBA Project (PERSONAL.xlsb) > Modules > Module1, и вы увидите пустой записанный макрос1. Вы можете удалить его или оставить, чтобы добавить код к более поздней.
Примечание: При записи макроса в новом экземпляре Excel VBA автоматически создает новую папку Module и ее номер прибавления. Поэтому если у вас уже есть Module1 и Module2, VBA создаст Модуль3. Модули можно переименовать в окне Свойства под обозревателем Project ,чтобы они лучше отражали то, что делают макрос внутри них.
Перемещение макросов на другой компьютер
Файл Personal.xlsB хранится в папке XLSTART. Если вы хотите поделиться макросами с другими, вы можете скопировать их в папку XLSTART на других компьютерах или скопировать некоторые или все макрос в файл Personal.xlsb на других компьютерах. Вы можете найти XLSTART в Windows проводнике.
Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.
Убедитесь, что на ленте отображается вкладка Разработчик. По умолчанию вкладка Разработчик не отображается, поэтому сделайте следующее:
Перейдите в Excel > параметры. > ленты & панель инструментов.
В категории Настроить ленту в списке Основные вкладки установите флажок Разработчик, а затем нажмите кнопку Сохранить.
Теперь создайте макрос. Мы зафиксим макрос, который ничего не делает, но создаст личную книгу макроса.
Дополнительные сведения о создании макросов см. в разделе Краткое руководство. Создание макроса.
Перейдите на вкладку Разработчик и нажмите кнопку Запись макроса.
В диалоговом окне Запись макроса не помешает ввести имя макроса в поле Имя макроса. Вы можете принять имя, которое Excel, например Макрос1, так как это просто временный макрос.
Когда вы начнете создавать собственные макросы, вам нужно будет дать им описательные имена, чтобы вы знали, что они делают.
В поле Сохранить в выберитеЛичная книга макроса и > ОК. Это самый важный шаг, так как если у вас еще нет личной книги макроса, Excel создаст ее.
Щелкните Разработчик > Остановитьзапись , Excel создайте личную книгу макроса.
При закрытии книги вам будет предложено сохранить как книгу, так и личную книгу макроса.
Чтобы увидеть созданный макрос:
Книгу "Личные макросы" можно найти в области Project проводника слева. Если вы не видите его, перейдите в > Project проводник.
Дважды щелкните папку VBA Project (PERSONAL.xlsb) > Modules > Module1, и вы увидите пустой записанный макрос1. Вы можете удалить его или оставить, чтобы добавить код к более поздней.
Примечание: При записи макроса в новом экземпляре Excel VBA автоматически создает новую папку Module и ее номер прибавления. Поэтому если у вас уже есть Module1 и Module2, VBA создаст Модуль3. Модули можно переименовать в окне Свойства под обозревателем Project ,чтобы они лучше отражали то, что делают макрос внутри них.
Перемещение макросов на другой компьютер
Файл Personal.xlsB хранится в папке запуска системы. Если вы хотите поделиться макросами с другими, можно скопировать Personal.xlsb в папку запуска на других компьютерах или скопировать некоторые или все макрос макроса в файл Personal.xlsb на других компьютерах. В Finder выберите Перейти, а затем, удерживая клавишу OPTION, выберите Библиотека. В области Библиотека перейдите к группе Containers > xyz.Office (где xyz — это текстовая строка, например "UBF8T346G9") > User Content > Startup > Excel. В Personal.xlsb в Excel папку.
Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
Макрос – это код, написанный на встроенном в Excel языке VBA (Visual Basic for Application). Макросы могут создаваться как вручную, так и записываться автоматически с помощью так называемого макрорекодера.
Макрорекодер – это инструмент в Excel, который пошагово записывает все что вы выполняете в Excel и преобразует это в код на языке VBA. Макрорекодер создает очень подробный код (как мы увидим позже), который вы сможете при необходимости отредактировать в дальнейшем.
Записанный макрос можно будет запускать неограниченное количество раз и Excel повторит все записанные шаги. Это означает, что даже если вы ничего не знаете о VBA, вы можете автоматизировать некоторые задачи, просто записав свои шаги и затем повторно использовать их позже.
Теперь давайте погрузимся и посмотрим, как записать макрос в Excel.
Запись макроса в Excel
Теперь давайте запишем очень простой макрос, который выбирает ячейку и вводит в нее текст, например “Excel”.
Вот шаги для записи такого макроса:
Поздравляем! Вы только что записали свой первый макрос в Excel. Хотя макрос не делает ничего полезного, но он поможет нам понять как работает макрорекордер в Excel.
Теперь давайте рассмотрим код который записал макрорекодер. Выполните следующие действия, чтобы открыть редактор кода:
Вы увидите, что как только вы нажмете кнопку “Выполнить”, текст “Excel” будет вставлен в ячейку A2 и выбрана ячейка A3. Это происходит за миллисекунды. Но на самом деле макрос последовательно выполнил записанные действия.
Примечание. Вы также можете запустить макрос с помощью сочетания клавиш Ctrl + Shift + N (удерживайте клавиши Ctrl и Shift, а затем нажмите клавишу N). Это тот же самый ярлык, который мы назначили макросу при его записи.
Первая программа на VBA Excel
Добавляем на стандартный модуль шаблон процедуры – строки ее начала и завершения, между которыми мы и будем писать свою первую программу (процедуру, подпрограмму).
- Откройте стандартный модуль двойным кликом по его ссылке в проводнике. Поместите в него курсор и нажмите кнопку «Procedure…» во вкладке «Insert» главного меню. Та же ссылка будет доступна при нажатии на вторую кнопку после значка Excel на панели инструментов.
В результате откроется окно добавления шаблона процедуры (Sub).
Имя процедуры может быть написано как на латинице, так и на кириллице, может содержать цифры и знак подчеркивания. Оно обязательно должно начинаться с буквы и не содержать пробелы, вместо которых следует использовать знак подчеркивания.
- Вставьте внутрь шаблона процедуры следующую строку: MsgBox "Привет" .
- Проверьте, что курсор находится внутри процедуры, и запустите ее, нажав клавишу «F5». А также, запустить процедуру на выполнение можно, нажав на треугольник (на изображении под пунктом меню «Debug») или на кнопку «Run Sub/UserForm» во вкладке «Run» главного меню редактора VBA Excel.
Запуск редактора Visual Basic
Простейший способ запустить редактор Visual Basic в Excel – нажать комбинацию клавиш Alt+F11 (то есть нажать клавишу Alt и, удерживая её, нажать клавишу F11). После этого откроется окно редактора Visual Basic, как показано на картинке ниже. Имейте ввиду, что окно Excel остается открытым и находится позади окна редактора.
Альтернативный вариант открытия файла
При открытии файла можно использовать доп.параметры (приведу некоторые):
UpdateLinks – обновлять или нет внешние ссылки при открытии файла;
ReadOnly – открытие в режиме только для чтения;
Format – используемый при открытии разделитель (1 – символ tab, 2 – запятые, 3 – пробелы, 4 – точка с запятой, 5 – без разделителя, 6 – пользовательский разделитель, заданный в Delimiter);
Delimiter – пользовательский разделитель (в случае, если Format = 6);
Origin – тип операционной системы (xlMacintosh, xlWindows или xlMSDOS);
Local – использование в Excel языка такого же, как в открываемом файле.
Теперь можно выполнять какие-то действия с открытым файлом, просто обращаясь через wb и ws.
Создание «умной» таблицы
Создается «умная» таблица Excel с помощью следующего кода:
В данном примере:
ActiveSheet – лист, на котором создается таблица, может быть любой лист рабочей книги Excel.
Range(“$A$1:$L$15”) – диапазон, который преобразуется в таблицу. Можно использовать и такую форму: Range(Cells(1, 1), Cells(15, 12)), где индексы строк и столбцов можно заменить переменными.
xlNo – указывает, что первая строка выбранного диапазона не содержит заголовки столбцов (граф) будущей таблицы, и их необходимо добавить. В этом случае будет добавлена дополнительная строка с наименованиями столбцов по умолчанию: Столбец1, Столбец2, Столбец3 и т.д., которые в дальнейшем можно переименовать (количество строк в таблице, включая строку заголовков, получится на одну больше, чем в указанном диапазоне). Если в диапазоне уже содержатся заголовки столбцов будущей таблицы, то следует указать вместо xlNo значение xlYes. В этом случае первая строка указанного диапазона будет преобразована в строку заголовков, а если она будет не заполнена, то добавятся названия столбцов по умолчанию: Столбец1, Столбец2, Столбец3 и т.д. (количество строк в таблице, включая строку заголовков, будет то же, что и в указанном диапазоне).
МояТаблица1 – имя, присваиваемое создаваемой таблице. Имя должно быть без пробелов: при указании в коде VBA названия таблицы с пробелами, во время его выполнения Excel заменит пробелы знаками подчеркивания (по крайней мере, так происходит в Excel 2016).
Таблица будет создана со стилем по умолчанию (TableStyleMedium2 в Excel 2016).
Стиль «умной» таблицы
Присвоение стиля таблице (изменение стиля) осуществляется с помощью свойства TableStyle объекта ListObjects:
Макрос записывается двумя способами: автоматически и вручную. Воспользовавшись первым вариантом, вы просто записываете определенные действия в Microsoft Excel, которые выполняете в данный момент времени. Потом можно будет воспроизвести эту запись. Такой метод очень легкий и не требует знания кода, но применение его на практике довольно ограничено. Ручная запись, наоборот, требует знаний программирования, так как код набирается вручную с клавиатуры. Однако грамотно написанный таким образом код может значительно ускорить выполнение процессов.
Создание макросов
В Эксель создать макросы можно вручную или автоматически. Последний вариант предполагает запись действий, которые мы выполняем в программе, для их дальнейшего повтора. Это достаточно простой способ, пользователь не должен обладать какими-то навыками кодирования и т.д. Однако, в связи с этим, применить его можно не всегда.
Чтобы создавать макросы вручную, нужно уметь программировать. Но именно такой способ иногда является единственным или одним из немногих вариантов эффективного решения поставленной задачи.
Создать макрос в Excel с помощью макрорекордера
Для начала проясним, что собой представляет макрорекордер и при чём тут макрос.
Макрорекордер – это вшитая в Excel небольшая программка, которая интерпретирует любое действие пользователя в кодах языка программирования VBA и записывает в программный модуль команды, которые получились в процессе работы. То есть, если мы при включенном макрорекордере, создадим нужный нам ежедневный отчёт, то макрорекордер всё запишет в своих командах пошагово и как итог создаст макрос, который будет создавать ежедневный отчёт автоматически.
Этот способ очень полезен тем, кто не владеет навыками и знаниями работы в языковой среде VBA. Но такая легкость в исполнении и записи макроса имеет свои минусы, как и плюсы:
- Записать макрорекордер может только то, что может пощупать, а значит записывать действия он может только в том случае, когда используются кнопки, иконки, команды меню и всё в этом духе, такие варианты как сортировка по цвету для него недоступна;
- В случае, когда в период записи была допущена ошибка, она также запишется. Но можно кнопкой отмены последнего действия, стереть последнюю команду которую вы неправильно записали на VBA;
- Запись в макрорекордере проводится только в границах окна MS Excel и в случае, когда вы закроете программу или включите другую, запись будет остановлена и перестанет выполняться.
Для включения макрорекордера на запись необходимо произвести следующие действия:
- в версии Excel от 2007 и к более новым вам нужно на вкладке «Разработчик» нажать кнопочку «Запись макроса»
- в версиях Excel от 2003 и к более старым (они еще очень часто используются) вам нужно в меню «Сервис» выбрать пункт «Макрос» и нажать кнопку «Начать запись».
Следующим шагом в работе с макрорекордером станет настройка его параметров для дальнейшей записи макроса, это можно произвести в окне «Запись макроса», где:
- поле «Имя макроса» — можете прописать понятное вам имя на любом языке, но должно начинаться с буквы и не содержать в себе знаком препинания и пробелы;
- поле «Сочетание клавиш» — будет вами использоваться, в дальнейшем, для быстрого старта вашего макроса. В случае, когда вам нужно будет прописать новое сочетание горячих клавиш , то эта возможность будет доступна в меню «Сервис» — «Макрос» — «Макросы» — «Выполнить» или же на вкладке «Разработчик» нажав кнопочку «Макросы» Sub MyMakros()
Dim polzovatel As String
Dim data_segodnya As Date
polzovatel = Application.UserName
data_segodnya = Now
MsgBox "Макрос запустил пользователь: " & polzovatel & vbNewLine & data_segodnya
End Sub
Примечание. Если в главном меню отсутствует закладка «РАЗРАБОТЧИК», тогда ее необходимо активировать в настройках: «ФАЙЛ»-«Параметры»-«Настроить ленту». В правом списке «Основные вкладки:» активируйте галочкой опцию «Разработчик» и нажмите на кнопку ОК.
Настройка разрешения для использования макросов в Excel
В Excel предусмотрена встроенная защита от вирусов, которые могут проникнуть в компьютер через макросы. Если хотите запустить в книге Excel макрос, убедитесь, что параметры безопасности настроены правильно.
Вариант 1: Автоматическая запись макросов
Прежде чем начать автоматическую запись макросов, нужно включить их в программе Microsoft Excel. Для этого воспользуйтесь нашим отдельным материалом.
Подробнее: Включение и отключение макросов в Microsoft Excel
Когда все готово, приступаем к записи.
-
Перейдите на вкладку «Разработчик». Кликните по кнопке «Запись макроса», которая расположена на ленте в блоке инструментов «Код».
Запуск макроса
Для проверки того, как работает записанный макрос, выполним несколько простых действий.
-
Кликаем в том же блоке инструментов «Код» по кнопке «Макросы» или жмем сочетание клавиш Alt + F8.
Редактирование макроса
Естественно, при желании вы можете корректировать созданный макрос, чтобы всегда поддерживать его в актуальном состоянии и исправлять некоторые неточности, допущенные во время процесса записи.
-
Снова щелкаем на кнопку «Макросы». В открывшемся окне выбираем нужный и кликаем по кнопке «Изменить».
Создание кнопки для запуска макросов в панели инструментов
Как я говорил ранее вы можете вызывать процедуру макроса горячей комбинацией клавиш, но это очень утомительно помнить какую комбинацию кому назначена, поэтому лучше всего будет создание кнопки для запуска макроса. Кнопки создать, возможно, нескольких типов, а именно:
- Кнопка в панели инструментов в MS Excel 2003 и более старше. Вам нужно в меню «Сервис» в пункте «Настройки» перейти на доступную вкладку «Команды» и в окне «Категории» выбрать команду «Настраиваемая кнопка» обозначена жёлтым колобком или смайликом, кому как понятней или удобней. Вытащите эту кнопку на свою панель задач и, нажав правую кнопку мыши по кнопке, вызовите ее контекстное меню, в котором вы сможете отредактировать под свои задачи кнопку, указав для нее новую иконку, имя и назначив нужный макрос.
- Кнопка в панели вашего быстрого доступа в MS Excel 2007 и более новее. Вам нужно клацнуть правой кнопкой мышки на панели быстрого доступа , которое находится в верхнем левом углу окна MS Excel и в открывшемся контекстном меню выбираете пункт «Настройка панели быстрого доступа». В диалоговом окне настройки вы выбираете категорию «Макросы» и с помощью кнопки «Добавить» вы переносите выбранный со списка макрос в другую половинку окна для дальнейшего закрепления этой команды на вашей панели быстрого доступа.
Создание графической кнопки на листе Excel
Данный способ доступен для любой из версий MS Excel и заключается он в том, что мы вынесем кнопку прямо на наш рабочий лист как графический объект. Для этого вам нужно:
- В MS Excel 2003 и более старше переходите в меню «Вид», выбираете «Панель инструментов» и нажимаете кнопку «Формы».
- В MS Excel 2007 и более новее вам нужно на вкладке «Разработчик» открыть выпадающее меню «Вставить» и выбрать объект «Кнопка».
После всего этого вы должны нарисовать кнопку на вашем листе при зажатой левой кнопке мыши. После окончания процесса рисования включится автоматически окошко, где вам нужно будет выбрать тот макрос, который обязан, выполнятся при нажатии на вашей кнопке.
Чтобы записать макрос, следует:
- Войти во вкладку «разработчик».
- Выбрать запись макроса.
- Выбрать имя макроса (в имени нельзя использовать пробелы и дефисы);
- Можно выбрать сочетание клавиш, при нажатии которых будет начинаться запись макроса;
- Выбрать место сохранения:
— при сохранении в «Эта книга» макрос будет работать только в текущем документе;
— при сохранении в «Личная книга» макрос будет работать во всех документах на Вашем компьютере.
- Можно добавить описание макроса, оно поможет Вам вспомнить, какие действия совершает макрос.
- Нажать «Ок».
- Если вы не указали сочетание клавиш, запись начнется сразу после нажатия кнопки «Ок».
- Когда идет запись, Вы должны совершать требуемую последовательность действий.
- Когда закончите, нажимайте кнопку остановить запись.
Записанные макросы отображаются в книге макросов.
Чтобы их посмотреть следует нажать кнопку «макросы». В появившемся окне появится список макросов. Выберете нужный макрос и нажмите «Выполнить».
Макросы, находящиеся в книге можно редактировать. Для этого нужно выбрать макрос и нажать кнопку «Изменить». При нажатии на кнопку «Изменить» откроется редактор макросов с записанным на языке VBA скриптом.
Отображение вкладки “Разработчик” в ленте меню
Перед тем как записывать макрос, нужно добавить на ленту меню Excel вкладку “Разработчик”. Для этого выполните следующие шаги:
- Щелкните правой кнопкой мыши по любой из существующих вкладок на ленте и нажмите «Настроить ленту». Он откроет диалоговое окно «Параметры Excel».
- В диалоговом окне «Параметры Excel» у вас будут параметры «Настроить ленту». Справа на панели «Основные вкладки» установите флажок «Разработчик».
- Нажмите «ОК».
В результате на ленте меню появится вкладка “Разработчик”
Абсолютная и относительная запись макроса
Вы уже знаете про абсолютные и относительные ссылки в Excel? Если вы используете абсолютную ссылку для записи макроса, код VBA всегда будет ссылаться на те же ячейки, которые вы использовали. Например, если вы выберете ячейку A2 и введете текст “Excel”, то каждый раз – независимо от того, где вы находитесь на листе и независимо от того, какая ячейка выбрана, ваш код будет вводить текст “Excel” в ячейку A2.
Если вы используете параметр относительной ссылки для записи макроса, VBA не будет привязываться к конкретному адресу ячейки. В этом случае программа будет “двигаться” относительно активной ячейки. Например, предположим, что вы уже выбрали ячейку A1, и вы начинаете запись макроса в режиме относительной ссылки. Теперь вы выбираете ячейку A2, вводите текст Excel и нажмите клавишу Enter. Теперь, если вы запустите этот макрос, он не вернется в ячейку A2, вместо этого он будет перемещаться относительно активной ячейки. Например, если выбрана ячейка B3, она переместится на B4, запишет текст “Excel” и затем перейдет к ячейке K5.
Теперь давайте запишем макрос в режиме относительных ссылок:
Макрос в режиме относительных ссылок будет сохранен.
Теперь сделайте следующее.
Как вы заметите, макрос записал текст “Excel” не в ячейки A2. Это произошло, потому что вы записали макрос в режиме относительной ссылки. Таким образом, курсор перемещается относительно активной ячейки. Например, если вы сделаете это, когда выбрана ячейка B3, она войдет в текст Excel – ячейка B4 и в конечном итоге выберет ячейку B5.
Вот код, который записал макрорекодер:
Обратите внимание, что в коде нет ссылок на ячейки B3 или B4. Макрос использует Activecell для ссылки на текущую ячейку и смещение относительно этой ячейки.
Не обращайте внимание на часть кода Range(«A1»). Это один из тех случаев, когда макрорекодер добавляет ненужный код, который не имеет никакой цели и может быть удален. Без него код будет работать отлично.
Расширение файлов Excel, которые содержат макросы
Когда вы записываете макрос или вручную записываете код VBA в Excel, вам необходимо сохранить файл с расширением файла с поддержкой макросов (.xlsm).
До Excel 2007 был достаточен один формат файла – .xls. Но с 2007 года .xlsx был представлен как стандартное расширение файла. Файлы, сохраненные как .xlsx, не могут содержать в себе макрос. Поэтому, если у вас есть файл с расширением .xlsx, и вы записываете / записываете макрос и сохраняете его, он будет предупреждать вас о сохранении его в формате с поддержкой макросов и покажет вам следующее диалоговое окно:
Если вы выберете “Нет”, Excel сохранить файл в формате с поддержкой макросов. Но если вы нажмете “Да”, Excel автоматически удалит весь код из вашей книги и сохранит файл как книгу в формате .xlsx. Поэтому, если в вашей книге есть макрос, вам нужно сохранить его в формате .xlsm, чтобы сохранить этот макрос.
Что нельзя сделать с помощью макрорекодера?
Макро-рекордер отлично подходит для вас в Excel и записывает ваши точные шаги, но может вам не подойти, когда вам нужно сделать что-то большее.
- Вы не можете выполнить код без выбора объекта. Например, если вы хотите, чтобы макрос перешел на следующий рабочий лист и выделил все заполненные ячейки в столбце A, не выходя из текущей рабочей таблицы, макрорекодер не сможет этого сделать. В таких случаях вам нужно вручную редактировать код.
- Вы не можете создать пользовательскую функцию с помощью макрорекордера. С помощью VBA вы можете создавать пользовательские функции, которые можно использовать на рабочем листе в качестве обычных функций.
- Вы не можете создавать циклы с помощью макрорекордера. Но можете записать одно действие, а цикл добавить вручную в редакторе кода.
- Вы не можете анализировать условия: вы можете проверить условия в коде с помощью макрорекордера. Если вы пишете код VBA вручную, вы можете использовать операторы IF Then Else для анализа условия и запуска кода, если true (или другой код, если false).
Редактор Visual Basic
В Excel есть встроенный редактор Visual Basic , который хранит код макроса и взаимодействует с книгой Excel. Редактор Visual Basic выделяет ошибки в синтаксисе языка программирования и предоставляет инструменты отладки для отслеживания работы и обнаружения ошибок в коде, помогая таким образом разработчику при написании кода.
Запускаем выполнение макроса
Чтобы проверить работу записанного макроса, нужно сделать следующее:
- В той же вкладке (“Разработчик”) и группе “Код” нажимаем кнопку “Макросы” (также можно воспользоваться горячими клавишами Alt+F8).
- В отобразившемся окошке выбираем наш макрос и жмем по команде “Выполнить”. Примечание: Есть более простой вариант запустить выполнение макроса – воспользоваться сочетанием клавиш, которое мы задали при создании макроса.
- Результатом проверки будет повторение ранее выполненных (записанных) действий.
Корректируем макрос
Созданный макрос можно изменить. Самая распространенная причина, которая приводит к такой необходимости – сделанные при записи ошибки. Вот как можно отредактировать макрос:
Читайте также: