Чтобы создать, добавить и включить надстройку с макросом, вам необходимо:
SubMyMakros()
ДимпользовательAs String
Dimdata_segodnyaAs Данные
пользователь = Application.UserName
data_segodnya = Сейчас
MsgBox «Пользователь запустил макрос:» & пользователь & vbNewLine & data_segodnya
Конец подзаголовка
Надстройка VBA готова! Теперь во всех открытых книгах вы сможете использовать макросы из вашего * .xla файла. Чтобы проверить это, снова откройте редактор Visual Basic (ALT + F11).
Как видите, теперь вы всегда можете найти его в списке проектов и использовать все его макросы в любом другом файле.
Самый простой способ запустить редактор Visual Basic в Excel — нажать комбинацию клавиш Alt + F11 (то есть нажать клавишу Alt и, удерживая ее, нажать клавишу F11). Откроется окно редактора Visual Basic, как показано на рисунке ниже. Обратите внимание, что окно Excel остается открытым и находится за окном редактора.
В процессе работы в редакторе Visual Basic в Excel вы можете открывать различные окна. Окна управляются из меню «Вид», расположенного в верхней части окна редактора VBA. Ниже приводится описание отдельных окон.
Окно проекта открывается в левой части редактора VBA (показано на изображении выше). В этом окне для каждой открытой книги создается проект VBA. Проект VBA — это набор всех объектов и модулей VBA, связанных с текущей книгой. Изначально в него входят:
Вы можете добавить в проект объекты Userform, Module и Class Module. Если вы посмотрите на изображение выше, вы увидите, что объект Module с именем Module1 был добавлен в проект VBA для Book1.xlsm.
Вот как создать новый объект Userform, Module или Class Module:
Для каждого из описанных выше объектов предусмотрено специальное окно, в котором будет создан и сохранен новый код VBA. Порядок следующий:
Двойной щелчок по любому объекту в окне проекта открывает соответствующее окно кода для ввода кода VBA с клавиатуры. На одном из рисунков выше показано окно кода для Module1.
Когда вы вставляете код VBA в окно кода, редактор Visual Basic отслеживает ввод, ищет ошибки в коде и выделяет код, который необходимо исправить.
Стоит отметить, что в Excel 2010 редактор Visual Basic устанавливается как отдельный компонент пакета общих инструментов Office и называется Visual Basic для приложений. Очень легко узнать, установлен ли у вас редактор Visual Basic. Мы должны запустить это! О том, как это сделать, можно прочитать отдельно. Если редактор Visual Basic не запускается, переустанавливаем его. Итак, приступим к установке надстроек в Excel!
вы можете установить надстройку в Excel 2010 так же, как и в Excel 2007.
Шаг 1. Сохраните файл надстройки на свой компьютер и запомните, где он хранился (местоположение).
Шаг 2. Запустите Excel 2010, выберите вкладку «Файл», затем «Параметры Excel», как показано на рисунке
Шаг 3. В открывшемся окне «Параметры Excel» в поле «Контроль:» выберите «Надстройки Excel» и нажмите «Перейти…”
Шаг 4. В следующем окне с названием «Надстройки» отображается список доступных надстроек, которые можно включать и отключать, устанавливая и снимая флажки перед соответствующими названиями надстроек. Чтобы добавить (подключить) новые надстройки, нажмите кнопку «Обзор”.
Появится окно «Обзор», отправляющее нас искать надстройки в папке с названием «Надстройки», и это имеет смысл.
Именно в этом месте должны быть размещены дополнительные файлы для максимально быстрого доступа как для приложения, так и для самих пользователей. Размещение надстроек в папке надстроек ускоряет загрузку Excel и подключение к нему компонентов при последующих запусках. Перемещаем (добавляем) в это окно (в эту папку) файл, который присутствовал на шаге 1. Если по какой-то причине вы не могли или не хотели помещать свои дополнения в папку Add-ons, то через » В окне «Обзор» вы переместитесь в то место, где изначально был сохранен файл надстройки. Дважды щелкните выбранный файл, и надстройка будет добавлена в список доступных надстроек. Все, надстройка установлена. Обращаю ваше внимание на то, что если после установки файл надстройки будет перемещен в другое место на жестком диске или изменится имя папки, в которой он находится, весь процесс установки придется повторить.
Если вы установили готовые надстройки для Excel 2010 с этого сайта, после завершения установки на ленте будет сформирована новая вкладка «Надстройки». Появятся кнопки, запускающие макросы на настраиваемой панели инструментов.
Начиная с Excel 2010 появилась возможность устанавливать надстройки из вкладки «Разработчик”.
Надстройки в Excel 2013 устанавливаются через Файл / Параметры / Надстройки, после чего нажимается кнопка «Перейти» и необходимые надстройки связываются в диспетчере надстроек. Окно диспетчера дополнений можно вызвать с помощью кнопки, расположенной на вкладке «Разработчик”.
Начиная с Excel 2010, на вкладку «Разработчик» была добавлена новая группа кнопок надстроек. По умолчанию эта вкладка отсутствует на ленте Excel; чтобы просмотреть его, перейдите в «Файл» / «Параметры» / «Настроить ленту» и установите флажок перед полем «Разработчик» в правой части диалогового окна. Затем на ленте приложения появляется одноименная вкладка с группой кнопок надстроек. С помощью одного из них вызывается менеджер надстроек, в котором вы можете выбрать файл надстройки для установки.
Используя расположенную рядом кнопку, вы можете управлять надстройками COM.
Итак, из окна выше мы узнали текущее состояние надстройки, которую собираемся удалить. Надстройка test.xla активна, поэтому перейдите в поле «Управление», выберите «Надстройки Excel» из списка и нажмите кнопку «Перейти». Снимите флажок перед названием надстройки.
Все, надстройка неактивна, мы отключили ее. Теперь вы можете удалить файл. Местонахождение файла мы уже выяснили чуть ранее, поэтому остается только перейти в указанную папку и удалить этот файл (вы можете переместить файл в другую папку или переименовать его, если надстройка будет использоваться в будущее). Вот и все, на самом деле надстройка уже удалена, но продолжает оставаться в списке доступных надстроек, а в некоторых случаях может вызвать некоторые неудобства, заставляя Excel отображать сообщение с текстом «Не удалось найти файл. Убедитесь, что имя и расположение файла указаны правильно. При попытке открыть файл из списка недавно использованных файлов убедитесь, что файл не был переименован, перемещен или удален».
В результате вкладка с надстройкой исчезнет с вашего компьютера и больше не будет загружаться с помощью Excel.
Вы можете подключить надстройку, когда вам это нужно.
Наша надстройка подключена к Excel и работает нормально, но пока не содержит макросов. Заваливаем. Для этого откройте редактор Visual Basic, нажав Alt + F11 или нажав кнопку Visual Basic на вкладке «Разработчик». Если вкладка «Разработчик» не отображается, ее можно просмотреть в меню «Файл» — «Параметры» — «Настроить ленту» («Файл -« Параметры »-« Настроить ленту).
В левом верхнем углу редактора должно быть окно проекта (если оно не отображается, включите его через меню View — Project Explorer):
В этом окне отображаются все открытые книги и запущенные надстройки Microsoft Excel, включая наш проект VBA (MyExcelAddin.xlam). Выберите его с помощью мыши и добавьте новый модуль через меню «Вставка — Модуль». В этом модуле мы будем хранить код VBA наших дополнительных макросов.
Вы можете набрать код с нуля (если умеете программировать) или скопировать где-нибудь готовый код (что намного проще). Давайте поместим простой, но полезный макрос в пустой модуль, который мы только что добавили, чтобы проверить его:
После ввода кода не забудьте нажать кнопку сохранения (дискета) в верхнем левом углу.
Наш макрос FormulasToValues, как вы легко понимаете, преобразует формулы в значения в предварительно выбранном диапазоне. Иногда эти макросы также называют процедурами. Для его запуска необходимо выделить ячейки с формулами и открыть специальный диалог макроса на вкладке «Разработчик» — «Макрос» или нажав Alt + F8. В этом окне обычно отображаются макросы, доступные из всех открытых книг, но дополнительные макросы здесь не отображаются. В любом случае, мы можем ввести имя нашей процедуры в поле Macro name, затем нажать кнопку Run, и наш макрос будет работать:
|
|
Здесь вы также можете назначить сочетание клавиш для быстрого запуска макроса — за это отвечает кнопка Параметры в окне макроса выше:
При назначении клавиш имейте в виду, что это чувствительно к регистру и раскладке клавиатуры. Поэтому, если вы назначаете комбинацию, например Ctrl + Y, фактически в будущем вам придется убедиться, что русская раскладка активирована, а также нажать Shift, чтобы получить заглавную букву.
Для удобства вы можете добавить кнопку для нашего макроса на панель быстрого доступа в верхнем левом углу окна. Для этого выберите Файл — Параметры — Панель быстрого доступа (Файл — Параметры — Настроить панель быстрого доступа), затем в раскрывающемся списке вверху окна выберите параметр Макрос. Затем наш макрос FormulasToValues можно разместить на панели с помощью кнопки Добавить и выбрать для него значок с помощью кнопки Изменить):
В дополнение к макропроцедурам существуют также макрофункции или, как их еще называют, UDF (функция, определяемая пользователем). Создадим в нашем аддоне отдельный модуль (команда меню Insert — Module) и вставим туда код следующей функции:
Нетрудно понять, что эта функция нужна для извлечения НДС из суммы с учетом НДС. Конечно, это не бином Ньютона, но он послужит примером, демонстрирующим основные принципы.
Обратите внимание, что синтаксис функции отличается от процедуры:
Также обратите внимание, что эта функция не требуется и не может быть выполнена, как предыдущая процедура макроса, через диалоговое окно «Макрос» и кнопку «Выполнить». Эту макрос-функцию следует использовать как стандартную функцию листа (СУММ, ЕСЛИ, ВПР…), например, просто введите любую ячейку, указав значение суммы с НДС в качестве аргумента:
. или доступ через стандартное диалоговое окно функции вставки (кнопка fx в строке формул), выбрав категорию, определяемую пользователем):
Единственный досадный момент — отсутствие привычного описания функции внизу окна. Чтобы добавить его, вам нужно будет сделать следующее:
После перезагрузки функция должна отобразить введенное нами описание:
Добавим в стандартный модуль шаблон процедуры — его начальную и конечную строки, между которыми мы напишем нашу первую программу (процедуру, подпрограмму).
Откройте стандартную форму, дважды щелкнув ее ссылку в проводнике. Поместите в него курсор и нажмите кнопку «Процедура…» на вкладке «Вставить» главного меню. Эта же ссылка будет доступна, когда вы нажмете вторую кнопку после значка Excel на панели инструментов.
В результате откроется окно для добавления шаблона процедуры (Sub).
Введите имя процедуры в поле «Имя»: «Primer1» или скопируйте его отсюда и вставьте в поле «Имя». Нажмите кнопку ОК, чтобы добавить в форму первую и последнюю строки процедуры.
Название процедуры может быть написано как латиницей, так и кириллицей, может содержать цифры и знак подчеркивания. Он должен начинаться с буквы и не содержать пробелов, вместо которых должен использоваться символ подчеркивания.
Вставьте следующую строку в шаблон процедуры: MsgBox «Hello».
Функция MsgBox отображает информационное сообщение с указанным текстом. В нашем примере это «Привет».
Убедитесь, что курсор находится внутри процедуры, и выполните ее, нажав клавишу «F5». Кроме того, вы можете запустить процедуру, щелкнув треугольник (на изображении под пунктом меню «Отладка») или кнопку «Запустить Sub / UserForm» на вкладке «Выполнить» главного меню редактора Excel VBA.
Если вы видели сообщение, подобное изображенному на картинке, поздравляем — вы написали свою первую программу!
Чтобы использовать переменные в процедуре, они должны быть объявлены с помощью ключевого слова «Dim». Если вы не укажете типы данных при объявлении переменных, они могут принимать любое значение, доступное в VBA Excel. Комментарии в тексте процедуры начинаются с «’» (апостроф).
Пример 2
Присвоение числовых значений переменным:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Public Sub Primer2 () ‘Объявляет переменные x, y, z Dim x, y, z’ Присваивает значение переменной xx = 25 ‘Присваивает значение переменной yy = 35’ Присваивает сумму ‘значений переменных x и yz = x + y ‘Вывод информационного сообщения’ со значением переменной z MsgBox z End Sub |
Пример 3
Присваивание строковых значений переменным:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Public Sub Primer3 () ‘Объявить переменные x, y, z Dim x, y, z’ Назначить строку переменной xx = «Good» ‘Назначить строку переменной yy = «day!» ‘Присвойте переменной z строку’, состоящую из строк x и y ‘с пробелом между ними z = x & «» & y’ Отображение информационного сообщения ‘со значением переменной z MsgBox z End Sub |
Скопируйте примеры процедур в стандартную форму и запустите их.
Регистратор макросов — это небольшая программа, встроенная в Excel, которая переводит любое действие пользователя на язык программирования VBA и записывает полученную команду в программный модуль. Если мы включим регистратор макросов для записи, а затем начнем создавать наш еженедельный отчет, регистратор макросов начнет записывать команды после каждого нашего действия, и в результате мы получим макрос, который создает отчет, как если бы он был написан программист. Этот метод создания макросов не требует от пользователя знаний программирования и VBA и позволяет использовать макросы как своего рода аналог видеозаписи: включить запись, выполнить операцию, перемотать ленту и снова начать выполнять те же действия. Конечно, у этого метода есть свои плюсы и минусы:
Чтобы включить регистрацию, вам необходимо:
Затем необходимо настроить параметры записываемого макроса в окне «Запись макроса:
После того, как вы начнете запись и выполните действия, которые хотите записать, вы можете остановить запись с помощью команды «Остановить запись).
Чтобы не запоминать сочетание клавиш для запуска макроса, лучше создать кнопку и назначить ей нужный макрос. Кнопка бывает разных типов:
Кнопка панели инструментов в Excel 2003 и более ранних версиях
Откройте меню Инструменты — Настройка и перейдите на вкладку Команды. В категории «Макро» легко найти забавного желтого «колобка» — кнопку Custom):
Перетащите его на панель инструментов и затем щелкните по нему правой кнопкой мыши. В контекстном меню вы можете назначить макрос кнопке, выбрать другой значок и имя:
Кнопка на панели быстрого доступа в Excel 2007 и более поздних версиях
Щелкните правой кнопкой мыши панель быстрого доступа в верхнем левом углу окна Excel и выберите «Настроить панель быстрого доступа):
Затем в открывшемся окне выберите категорию макросов и с помощью кнопки Добавить перенесите выбранный макрос в правую половину окна, например, на панель быстрого доступа:
Пуговица на листе
Этот способ подходит для любой версии Excel. Мы добавим кнопку запуска макроса прямо на рабочий лист в виде графического объекта. Из-за этого:
Выберите объект Button):
Затем нарисуйте кнопку на листе, удерживая левую кнопку мыши. Автоматически появится окно, в котором нужно выбрать макрос, который должен запускаться при нажатии на нарисованную кнопку.
