32. Макросы в ms Excel. Понятие макроса. Запись и удаление макросов.

Создание и удаление макросов

Для автоматизации выполнения повторяющихся задач в Microsoft Office Excel можно быстро записать макрос. Макрос можно создать, используя редактор Visual Basic в среде Microsoft Visual Basic или путем копирования всего макроса или его части в новый макрос. После создания макроса его можно назначить объекту (например, кнопке панели инструментов, графическому объекту или элементу управления), чтобы можно было запускать этот макрос по щелчку объекта. Если макрос больше не нужен, его можно удалить.

Предполагаемое действие:

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

Создание макроса в среде Microsoft Visual Basic

Копирование части макроса для создания другого макроса

Назначение макроса объекту, графическому объекту и элементу управления

Удаление макроса

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

При записи макроса все необходимые действия записываются программой записи макроса. Перемещение по ленте не включается в записанные шаги.

ПРИМЕЧАНИЕ. Лента — это компонент Пользовательский интерфейс Microsoft Office Fluent.

Если вкладка Разработчик недоступна, выполните следующие действия для ее отображения.

Нажмите кнопку Microsoft Office Значок кнопки, а затем щелкните Параметры Excel.

В категории Личная настройка в группе Основные параметры работы с Excel установите флажок Показывать вкладку "Разработчик" на ленте, а затем нажмите кнопку ОК.

Для установки уровня безопасности, временно разрешающего выполнение всех макросов, выполните следующие действия:

На вкладке Разработчик в группе Код нажмите кнопку Безопасность макросов.

Изображение ленты Excel

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

ПРИМЕЧАНИЕ. Для предотвращения запуска потенциально опасного кода по завершении работы с макросами рекомендуется вернуть параметры, отключающие все макросы. Дополнительные сведения см. в разделе Изменение параметров безопасности макросов в Excel.

На вкладке Разработчик в группе Код нажмите кнопку Запись макроса.

В поле Имя макроса введите имя макроса.

ПРИМЕЧАНИЕ. Первым символом имени макроса должна быть буква. Последующие символы могут быть буквами, цифрами или знаками подчеркивания. В имени макроса не допускаются пробелы; в качестве разделителей слов следует использовать знаки подчеркивания. Если используется имя макроса, являющееся ссылкой на ячейку, может появиться сообщение об ошибке, указывающее на недопустимое имя макроса.

Чтобы назначить в сочетании с клавишей CTRL клавишу быстрого вызова для запуска макроса, в поле Сочетание клавиш введите любую строчную или прописную букву.

ПРИМЕЧАНИЕ. Выбранное сочетание клавиш заменит все совпадающие стандартные сочетания клавиш Excel на то время, пока книга, содержащая данный макрос, открыта. Список уже заданных в приложении Excel сочетаний клавиш быстрого вызова с использованием клавиши CTRL см. в статье Клавиши быстрого вызова и функциональные клавиши Excel.

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

СОВЕТ. Если нужно, чтобы данный макрос был всегда доступен при работе в приложении Excel, выберите вариант Личная книга макросов. При выборе варианта Личная книга макросов создается скрытая личная книга макросов (Personal.xlsb) (если она еще не существует), в которой сохраняется данный макрос. В Microsoft Windows Vista эта книга сохраняется в папке C:\Users\имя_пользователя\Application Data\Microsoft\Excel\XLStart. В Microsoft Windows XP эта книга сохраняется в папке C:\Documents and Settings\имя_пользователя\Application Data\Microsoft\Excel\XLStart, откуда она будет автоматически загружаться при каждом запуске приложения Excel. Если необходимо автоматически выполнять макрос из личной книги в другой книге, необходимо также сохранить эту книгу в папке XLStart, чтобы при запуске приложения Excel открывались обе книги.

Введите описание макроса в поле Описание.

Для начала записи макроса нажмите кнопку ОК.

Выполните действия, которые нужно записать.

На вкладке Разработчик в группе Код нажмите кнопку Остановить запись Изображение кнопки.

СОВЕТ. Можно также нажать кнопку Остановить запись Изображение кнопки слева от строки состояния.

К началу страницы К НАЧАЛУ СТРАНИЦЫ

Создание макроса в среде Microsoft Visual Basic

Если вкладка Разработчик недоступна, выполните следующие действия для ее отображения:

Нажмите кнопку Microsoft Office Значок кнопки, а затем щелкните Параметры Excel.

В категории Личная настройка в группе Основные параметры работы с Excel установите флажок Показывать вкладку "Разработчик" на ленте, а затем нажмите кнопку ОК.

Для установки уровня безопасности, временно разрешающего выполнение всех макросов, выполните следующие действия:

На вкладке Разработчик в группе Код нажмите кнопку Безопасность макросов.

Изображение ленты Excel

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

ПРИМЕЧАНИЕ. Для предотвращения запуска потенциально опасного кода рекомендуется по завершении работы с макросами вернуть параметры, отключающие все макросы.

На вкладке Разработка в группе Код выберите команду Visual Basic.

При необходимости в меню Insert выберите команду Module.

ПРИМЕЧАНИЕ. Модули будут созданы автоматически для всех листов книги.

В окне программы модуля введите или скопируйте нужный текст макроса.

Для запуска данного макроса из окна модуля нажмите клавишу F5.

Когда макрос будет создан, в меню File выберите команду Close and Return to Microsoft Excel.

К началу страницы К НАЧАЛУ СТРАНИЦЫ

Копирование части макроса для создания другого макроса

Если вкладка Разработчик недоступна, выполните следующие действия для ее отображения:

Нажмите кнопку Microsoft Office Значок кнопки, а затем щелкните Параметры Excel.

В категории Личная настройка в группе Основные параметры работы с Excel установите флажок Показывать вкладку "Разработчик" на ленте, а затем нажмите кнопку ОК.

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

На вкладке Разработчик в группе Код нажмите кнопку Безопасность макросов.

Изображение ленты Excel

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

ПРИМЕЧАНИЕ. Для предотвращения запуска потенциально опасного кода по завершении работы с макросами рекомендуется вернуть параметры, отключающие все макросы.

Откройте книгу, содержащую макрос, который нужно скопировать.

На вкладке Разработчик в группе Код нажмите кнопку Макросы.

В поле Имя макроса выберите имя макроса, который нужно скопировать.

Нажмите кнопку Изменить.

В окне редактора Visual Basic выделите строки макроса, которые нужно скопировать.

СОВЕТ. Для копирования макроса целиком включите в выделенную часть строки слова Sub и End Sub.

В меню Edit выберите команду Copy.

СОВЕТ. Можно также щелкнуть правой кнопкой мыши, а затем в контекстном меню выбрать команду Copy или нажать клавиши CTRL+C.

В поле Procedure окна кода выберите модуль, куда нужно поместить текст.

В меню Edit выберите команду Paste.

СОВЕТ. Можно также щелкнуть правой кнопкой мыши, а затем в контекстном меню выбрать команду Paste или нажать клавиши CTRL+V.

СОВЕТ. Личную книгу макросов (Personal.xls) редактировать нельзя, поскольку она является скрытой книгой, которая всегда открыта. Сначала его необходимо отобразить с помощью команды Показать. Файл также можно открыть в редакторе Visual Basic, нажав клавиши ALT+F11.

К началу страницы К НАЧАЛУ СТРАНИЦЫ

Назначение макроса объекту, графическому объекту и элементу управления

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

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

К началу страницы К НАЧАЛУ СТРАНИЦЫ

Удаление макроса

Выполните одну из процедур, описанных ниже.

Откройте книгу, содержащую макрос, который нужно удалить.

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

На вкладке Вид в группе Окно нажмите кнопку Отобразить окно.

В разделе Показать скрытое окно книги выберите пункт "PERSONAL" и нажмите кнопку ОК.

Если вкладка Разработчик недоступна, выполните следующие действия для ее отображения:

Нажмите кнопку Microsoft Office Значок кнопки, а затем щелкните Параметры Excel.

В категории Личная настройка в группе Основные параметры работы с Excel установите флажок Показывать вкладку "Разработчик" на ленте, а затем нажмите кнопку ОК.

На вкладке Разработчик в группе Код нажмите кнопкуМакросы.

Изображение ленты Excel

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

В поле Имя макроса выберите имя макроса, который нужно удалить.

Нажмите кнопку Удалить.

33. Численные методы решения прикладных математических задач.

34. Численное решение нелинейных уравнений. Отделение и уточнение корней. Метод половинного деления – дихотомии.

Для того чтобы уточнить корни уравнения cos(2x)+x-5=0 методом половинного деления, используя Excel, необходимо выполнить следующие действия:

Заполнить ячейки A1:H1 последовательно следующим образом: a, b, c=(a+b)/2, f(a), f(b), f(c), |b-a|<=2*e, e.

Ввести в ячейку A2 число 5, в ячейку B2 - число 6.

В ячейку B2 ввести формулу: =(A2+B2)/2.

В ячейку D2 ввести формулу: =cos(2*A2)+A2-5, скопировать эту формулу в ячейки E2:F2.

Ввести в ячейку G2 формулу: =ЕСЛИ(ABS(B2-A2)<=2*$H$2;C2;"-").

Ввести в ячейку H2 число 0,00001.

В ячейку A3 ввести формулу: =ЕСЛИ(D2*F2<0;A2;C2).

В ячейку B3 ввести формулу: =ЕСЛИ(D2*F2<0;C2;B2).

Диапазон ячеек C2:G2 скопировать в диапазон ячеек C3:G3.

Выделить диапазон ячеек A3:G3 и с помощью маркера заполнения заполнить все нижестоящие ячейки до получения результата в одной из ячеек столбца G (это ячейки A3:G53).

В итоге получаем следующее:

Изображение полученного результата решения задачи

Ответ: Корень уравнения cos(2x)+x-5=0 равен 5,32977.