🗊Презентация Макрос. Язык VBA

VBA Visual Basic for Application (лекции 1-3)

Для записи макроса с помощью Макрорекордера необходимо: Для записи макроса с помощью Макрорекордера необходимо: 1. Вкладка Разработчик, группа Код, кнопка Запись макроса . 2. В окне Запись макроса установить параметры записываемой процедуры , нажать ОК. Кнопка Запись макроса в группе КОД изменится на кнопку Остановить запись . 3. Выполнить действия, которые нужно записать. 4. Нажать кнопку Остановить запись

Для просмотра и редактирования созданного макроса: Для просмотра и редактирования созданного макроса: Вкладка Разработчик, группа Код, кнопка Макросы, в диалоговом окне Макрос выбрать имя макроса, нажать кнопку Изменить, откроется редактор VBA и окно Модуль с текстом макроса. Внести в текст макроса необходимые изменения и закрыть окно редактора.

Пример: создать макрос построения графиков функций Y1=|sin x|+|cos x| и Y2=3sin√x+0,35x – 1,8 на отрезке [-5; 5] с шагом h=0,5

Назначение макроса ГРАФИК командной кнопке Затем щелкнуть правой кнопкой мыши по создавшейся кнопке и в открывшемся контекстном меню выбрать команду «Свойства». Откроется окно «Properties», где изменить надпись на кнопке: «Графики». Еще раз щелкнуть правой кнопкой мыши на кнопке и в открывшемся контекстном меню выбрать команду «Исходный текст». Откроется окно кода рабочего листа, где после заголовка процедуры, ввести инструкцию: Call график. Private Sub CommandButton1_Click() Call график End Sub Чтобы запустить макрос достаточно будет нажать кнопку «Графики».

Редактор VBA Вкладка Разработчик

Окно Параметры EXCEL Окно Параметры EXCEL

Окно редактора VBA Окно редактора VBA

Работа в редакторе VBA Автоматизированный ввод текста программы

ФОРМЫ

Типы данных

Типы данных

Область действия переменных Переменные, описанные с помощью ключевого слова Dim на уровне модуля, доступны для всех процедур в данном модуле. Переменные, описанные на уровне процедуры, доступны только в данной процедуре. [Public |Private] используется на уровне модуля для описания констант ( доступных всем модулям | только внутри модуля) . Описание переменных: [Public |Private| Dim|Static ] ИмяПеременной As Тип 1. Длина <=255 символов. 2. Имя не может содержать точек, пробелов и следующих символов: %, !, &, #, @, $. 3. Имя может содержать любую комбинацию букв, цифр, и символов, начинающуюся с буквы. 4. Имена должны быть уникальны в области, в которой они определены. 5. Не следует использовать имена, совпадающие с ключевыми словами VBA и именами встроенных процедур и функций. Константы [Public |Private] Const ИмяКонстанты [As тип] = Выражение

ОПЕРАЦИИ Математические операции: + - * / \ Mod ^ Операции отношения : < <= > >= <> = obj1 is obj2 str1 Like str2 Логические операции: And Or Xor Eqv Imp Not

Встроенные диалоговые окна Окно сообщения ( используется для вывода, диалога) MsgBox (Сообщение,Атрибуты,Заголовок, справка) P=MsgBox(…..) Сообщение – выводимый текст. Атрибуты = Параметр1 + Параметр2 (по умолчанию только кнопка "ОК«)

Окно ввода

MsgBox "Привет!", vbYesNoCancel + vbInformation , "Мое первое окно" MsgBox "Привет!", vbYesNoCancel + vbInformation , "Мое первое окно" MsgBox "Первая программа", , "Окно сообщения”

Пример: Сумма двух чисел Sub Summa() Dim A As Integer Dim B As Integer Dim C As Integer A = Val(InputBox(“A=”)) B = Val(InputBox(“B=”)) C = A + B MsgBox C End Sub

Управляющие алгоритмические конструкции Конструкции ветвления (If и Select) Циклические конструкции

Оператор ветвления Однострочная форма: If U Then S1 Else S2 Блочная форма : If U Then S1> Else S2> End if

‘ Вложенные условные операторы Sub School() dim Age as integer Age=InputBox(“Укажите возраст”) If Age >7 Then If Age <=17 Then MsgBox “Школьник” Else MsgBox “Взрослый” End If Else MsgBox “Дошкольник” End If End Sub

SELECT CASE Sub Scase() Dim a as Integer A=InputBox(“Ваш рост в см”) Select Case A Case Is <160 MsgBox “У вас маленький рост” Case 161 to 180 MsgBox “Вы человек среднего роста” Case Is >180 MsgBox “Вы высокий человек” End Select End Sub

Циклы С предусловием; С постусловием

ЦИКЛЫ ЦИКЛ с предусловием While U Операторы Wend

ЧИСЛОВЫЕ ПОСЛЕДОВАТЕЛЬНОСТИ Последовательность — это набор элементов, расположенных в определенном порядке. Все элементы последовательности имеют номера, обычно начиная с 1. Для того, чтобы задать последовательность, используют два следующих способа. 1. Рекуррентную формулу, которая позволяет вычислить элемент с номером n, зная один или несколько предыдущих. Например, последовательность 1, 3, 5, 7, … можно задать рекуррентной формулой . 2. Формулу для n-ого члена последовательности. Для той же последовательности легко получить . Правая часть этой формулы зависит только от номера элемента n. Для хорошо известной арифметической прогрессии формула n-ого члена имеет вид Для геометрической прогрессии, соответственно,

Обработка последовательностей Найти максимальный элемент последовательности ненулевых целых чисел. 0 - признак конца последовательности.

Рекуррентные последовательности В 1202 г. итальянский математик Леонардо Пизанский, известный под именем Фибоначчи, предложил такую задачу: Задача Фибоначчи. Пара кроликов каждый месяц дает приплод – самца и самку, которые через 2 месяца снова дают такой же приплод. Сколько пар кроликов будет через год, если сейчас мы имеем 1 пару молодых кроликов? Количество кроликов меняется с каждым месяцем в соответствии с последовательностью 1, 1, 2, 3, 5, 8, 13, 21, 34, ..., которую называют последовательностью Фибоначчи. Она задается не общей формулой n-ого члена, а рекуррентной формулой, в которой n-ый член выражается через предыдущие. При этом надо определить начальные элементы:

Получить все числа Фибоначчи, не превышающие данного N. Sub Fibb() Dim N as integer Dim f1 as integer, f2 as integer f1=1 : f2=1 While f1 <= N MsgBox f1 f1=f1 +f2 f2=f1-f2 Wend End Sub