 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Понятие макроса. Создание макроса
Макрос - процедура на внутреннем языке приложения, в которой записаны действия пользователя приложения. В приложении MC Excel макрос записывается на VBA [10,11,12].
Чтобы начать запись макроса, необходимо (рис.21.):
¾ активизировать приложение;
¾ открыть документы, используемые при записи макроса;
¾ выбрать команду Вид\Макрос;
¾ выбрать команду Начать запись. Выводится диалоговое окно Запись макроса;
¾ ввести имя записываемого макроса в поле Имя макроса;
¾ выбрать в списке Макрос доступен для документ, в который требуется поместить макрос;
¾ нажать ОК, чтобы начать запись.
Рис.21. Запись макроса
После этого записываются все выполняемые в приложении действия. По завершении выполнения требуемых действий необходимо:
- нажать на панели инструментов Остановка записи кнопку Остановить запись;
- или выбрать команду Вид\Макрос\Остановить запись.
Вновь созданный макрос содержится в документе, который был активным при запуске макроса. При записи документа на диск макрос сохраняется вместе с проектом.
Для выполнения записанного макроса необходимо:
- выбрать команду Сервис\Макрос\Макросы. Выводится диалоговое окно Макрос.
- выбрать имя требуемого макроса;
- нажать кнопку Выполнить для запуска макроса.
Для редактирования записанного макроса необходимо:
- выбрать команду Вид\Макрос\Макросы. Выводится диалоговое окно Макрос;
- выбрать имя требуемого макроса;
- нажать кнопку Изменить. Макрос выводится в окне редактора Visual Basic for Applications.
Пример 1. Создание макроса
- 
, Параметры Excel, Показывать вкладку «Разработчик»,
- 
(окно VBA), View / Immediate Window, View / Code,
- ê! - безопасность макроса, добавить кнопку, включить все макросы,
- задача: вычислить при x=6.678; y=7.565,
- вывести исходные данные и результаты расчетов, полученные результаты округлить до 2-х знаков после запятой, набрать программу, 4 (Выполнить).
| Код макроса | Комментарий |
| Option Explicit | Объявление необходимости задания переменной |
| Public Sub Execute() | Начало процедуры |
| Dim x As Single, y As Single | DIM - оператор объявления (задания) переменной, Single – тип переменной (с плавающей запятой) |
| Dim z As Single, d As Single | |
| x = 6.678 | Исходные данные |
| y = 7.565 | |
| z = Sqr(x ^ 2 + y ^ 2) | Расчетные формулы |
| d = z ^ 3 | |
| Debug.Print "X="; x; " Y="; y | Вывод результатов |
| Debug.Print "Z="; Format(z, _ "###0.00"); "D="; Format(d, _ "###0.00") | Вывод результатов с округлением (- перенос строки) |
| End Sub | Окончание процедуры |
Пример 2. Выполнить вычисления (макрос) по формуле
- данные вводятся с клавиатуры,
- если данные не числа – сообщение об ошибке,
- после вычислений вывести запрос на продолжение.
| Код макроса | Комментарий |
| Option Explicit | |
| Public Sub ExecDialog() | Начало процедуры |
| Dim a As Single, b As Single | Задание переменных |
| Dim z As Single | |
| Dim strA As String, strB As String | |
| Dim response | |
| newInput: | Ввод данных в диалог |
| strA = InputBox("InputA") | |
| strB = InputBox("InputB") | |
| If Not IsNumeric(strA) Or Not _ IsNumeric(strB) Then | Проверка ввода (условие) (если данные не числа - сообщение об ошибке в диалоге с пиктограммой (х)) |
| MsgBox "Error!" & Chr(10) & Chr(13) & "Not _ number data!", vbCritical, "" | |
| Exit Sub | |
| End If | |
| a = CSng(strA): b = CSng(strB) | Преобразование a и b в число с плавающей запятой |
| z = Sqr(a ^ 2 + b ^ 2) | Формула |
| MsgBox "Z=" & Format(z, "###0.00") & "A=" & _ a & "B=" & b, vbInformation, "" | Вывод результатов работы в диалог с пиктограммой (!) |
| response = MsgBox("Input new data", _ vbQuestion + vbYesNo, "") | Запрос на повторный ввод данных в диалоге с пиктограммой (?) и кнопками Да, Нет |
| If response = vbYes Then GoTo newInput | Если Да, новый ввод данных |
| End Sub | Окончание процедуры |
Пример 3. Разместить в диапазоне ячеек B5 - I5 целые положительные и отрицательные числа. Разработать макрос для определения минимального числа. Окрасить ячейки с минимальным числом в зеленый цвет (рис. 22.).
Рис. 22. Результат программы примера 3.
Пример 4. Разработать макрос для вывода в ячейки B6- I6 целых случайных чисел. Числа выводятся случайным образом. Границы диапазона чисел задаются на рабочем листе. Ячейки с положительными числами окрашиваются в зеленый цвет, а с отрицательными значениями в красный. Отсортировать полученную последовательность чисел по возрастанию и вывести ее в ячейки B8 – I8 (рис. 23.).
Рис. 23. Результат программы примера 4.
Поиск по сайту: