🗊Презентация Функции VBA

РХТУ им. Д.И. Менделеева Каф. ИКТ Курс создал: ст. преп. A.М. Васецкий

Пользовательские процедуры Процедура является самостоятельной частью кода, которая имеет имя и может содержать аргументы, выполнять последовательность инструкций и изменять значения своих аргументов. Синтаксис: [Private | Public][Static] Sub Имя[(СписокАргументов)] [Инструкции] [Exit Sub] [Инструкции] End Sub Инструкция Exit Sub приводит к немедленному выходу из процедуры

Элементы описания процедуры

Синтаксис элемента СписокАргументов

Синтаксис элемента СписокАргументов

Примеры Sub Main() Calc 99, 43 ‘один из вариантов вызова Call Calc(38, 49) ‘второй вариант вызова End Sub Sub Calc(x As Single, y As Single) If x * y < 0 Then MsgBox "Корень локализован" Else MsgBox "Корень не локализован" End If End Sub

ParamArray Sub AnyNumberArgs(strName As String, ParamArray intScores() As Variant) Dim intI As Integer Debug.Print strName; " Scores" For intI = 0 To UBound(intScores()) Debug.Print " "; intScores(intI) Next intI End Sub Примеры вызова: AnyNumberArgs "Jamie", 10, 26, 32, 15, 22, 24, 16 AnyNumberArgs "Kelly", "High", "Low", "Average", "High"

Конфликты имён Если в двух модулях находятся процедуры или функции с одинаковыми именами, то во избежание конфликтов их рекомендуется вызывать с использованием имени модуля: Sub Main() Module1.MyProcedure End Sub

Примеры

Пользовательские функции Синтаксис инструкции Function содержит те же элементы, что и sub. Инструкция Exit Function приводит к немедленному выходу из процедуры Function. Синтаксис: [Public | Private] [Static] Function Имя [(СписокАргументов)] [As Тип] [Инструкции] [Имя = Выражение] [Exit Function] [Инструкции] [Имя = Выражение] End Function

Подобно процедуре Sub, процедура Function является самостоятельной процедурой, которая может получать аргументы, выполнять последовательность инструкций и изменять значения своих аргументов. В отличие от процедуры sub, когда требуется использовать возвращаемое функцией значение, Function может применяться в правой части выражения, как и любая другая встроенная функция, например, cos. Подобно процедуре Sub, процедура Function является самостоятельной процедурой, которая может получать аргументы, выполнять последовательность инструкций и изменять значения своих аргументов. В отличие от процедуры sub, когда требуется использовать возвращаемое функцией значение, Function может применяться в правой части выражения, как и любая другая встроенная функция, например, cos. Процедура Function вызывается в выражении по своему имени, за которым следует список аргументов в скобках. Для возврата значения из функции следует присвоить значение имени функции. Любое число таких инструкций присвоения может находиться в любом месте процедуры.

Рекомендации по компоновке функции При вызове функций, помимо значения функции бывает полезно получить какую-либо информацию о ходе вычислений (достигнутая точность, возникшие ошибки и т.п.). Поэтому помимо входных переменных целесообразно заложить в заголовок одну или больше выходных переменных. Пример организации такой функции: Function SQRT(X As Double, flErr As Boolean) As Double 'Вычисление квадратного корня (модификация) flErr = (X < 0) 'возвращаем флаг ошибки SQRT = 0 'Задаём значение по умолчанию If Not flErr Then SQRT = Sqr(X) End Function

Передача массивов, как аргументы функции Синтаксис: (ByVal | ByRef) Arrayname() As type Arrayname – имя передаваемого массива type – представляет любой допустимый тип VBA или определенный пользователем тип. Круглые скобки являются обязательными. Прим. Лучше передавать массивы через ByRef (по ссылке), чтобы не увеличивать объёмы задействованной памяти. Пример: Function Fun(ByVal A() as Byte) as Boolean

Операторы перехода и выбора

Операторы перехода и выбора

Операторы перехода и выбора

IF. Примеры

Примеры В зависимости от значения Cityname возвращает язык Matchup = Switch(CityName = "London", "English", CityName = "Rome", "Italian", CityName = "Paris", "French") Если Test>10, то много, иначе, мало IIf(Test > 10, "много", "мало") Choose(1, "Верх", "Низ", "Бок") Вернёт "Верх"

Select Case Select Case sDayOfWeek Case "Понедельник" MsgBox "Пн" Case "Вторник" MsgBox "Вт" … Case Else MsgBox "Нет такого" End Select

Операторы повтора For - Next

Операторы повтора For Each - Next

Пример Sub TestForEachNextRange() For Each iCell In Range("A1:C5") i = i + 1 iCell.Value = 10*Int(Rnd*10) & "_" & i Next MsgBox "Число ячеек : " & i End Sub iCell - переменная, которой присваиваются значения элементов группы (массива или семейства) Для работы с элементами массива переменная должна принадлежать к типу Variant.

Пример цикла For Each - Next

Операторы повтора. Do While | Until - Loop Синтаксис: Do [While | Until Условие] [Инструкции] [Exit Do] [Инструкции] Loop Повторяет выполнение набора инструкций, пока условие имеет значение True | False. Если условие ложно (т.е. False | True соответственно) уже при входе в цикл, то следует передача управления команде, следующей за Loop Альтернативный способ выхода из цикла предоставляет инструкция Exit Do

Операторы повтора. Do Loop - While | Until Синтаксис: Do [Инструкции] [Exit Do] [Инструкции] Loop [While | Until Условие] Повторяет выполнение набора инструкций, пока условие имеет значение True | False. Цикл выполнится по крайней мере 1 раз. Альтернативный способ выхода из цикла предоставляет инструкция Exit Do

Пример Цикла Do – Loop While Sub DoWhile() Const N = 1000 Dim A(N) As String, i As Integer i = 0 Do i = i + 1 A(i) = InputBox(i & " Value?") Loop While A(i) > 0 MsgBox "Read " & i & " values" End Sub

Операторы повтора. While - Wend While Условие [Инструкции] Wend Выполняет последовательность инструкций пока условие истинно. В отличие от других циклов не имеет альтернативного выхода. По возможности следует избегать его применения

Встроенные функции VBA В VBA имеется большой набор встроенных функций и процедур, использование которых существенно упрощает программирование. Эти функции можно разделить на следующие основные категории: Математические функции Функции проверки типов Функции преобразования форматов Функции обработки строк Функции времени и даты Прочие функции

Математические функции

Математические функции

Математические функции

Некорректные математические операции Есть минимум две математические операции, которые VBA, как и многие другие языки выполняют некорректно. 1. Возведение 0 в 0 степень с математической точки зрения не определено. Однако: Sub Pow() Dim x As Double, i As Integer i = 0 x = 0 ^ i MsgBox x End Sub

Некорректные математические операции 2. Корни нечётных степеней от отрицательных чисел в математике определены. Однако, из-за того, что они вычисляются при помощи соответствующих дробных степеней, реализованных, как и остальные степени в машинной арифметике через логарифмы, это вызывает ошибку. Sub SQ() Dim x As Double x = -9 x = x ^ (1 / 3) ‘даст ошибку x = Sgn(x)*Abs(x) ^ (1 / 3) ‘не даст ошибку MsgBox x End Sub

Производные функции Тригонометрические функции Sec(X) = 1/Cos(X) Cosec(X) = 1/Sin(X) Cotan(X) = 1/Tan(X) Arcsin(X) = Atn(X/Sqr(-X * X + 1)) Arccos(X) = Atn(-X/Sqr(-X * X + 1)) + + 2 * Atn(1) Arcsec(X) = Atn(X/Sqr(X * X – 1)) + Sgn((X) – 1) * (2 * Atn(1)) Arccosec(X) = Atn(X/Sqr(X * X - 1)) + + (Sgn(X) – 1) * (2 * Atn(1)) Arccotan(X) = Atn(X) + 2 * Atn(1)

Гиперболические функции Sinh(X) = (Exp(X) – Exp(-X)) / 2 Cosh(X) = (Exp(X) + Exp(-X)) / 2 Tanh(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X)) Sech(X) = 2 / (Exp(X) + Exp(-X)) Cosech(X) = 2 / (Exp(X) – Exp(-X)) Cotanh(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X)) Arcsinh(X) = Log(X + Sqr(X * X + 1)) Arccosh(X) = Log(X + Sqr(X * X – 1)) Arctanh(X) = Log((1 + X) / (1 – X)) / 2 Arcsech(X) = Log((Sqr(-X * X + 1) + 1) / X) Arccosech(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X) Arccotanh(X) = Log((X + 1) / (X – 1)) / 2 LogN(X) = Log(X) / Log(N) ‘Логарифм по основанию N

Функции даты и времени

Функции даты и времени

Функции даты и времени

Функции даты и времени (продолжение)

Функции даты и времени (продолжение)