Простейший оператор принятия решений If

Управление выполненем программы

End Sub

Private Function Сложение(Val1 As Single, Val2 As Single) _ As Single

Еnd Sub

End Function

Операторы тела функции

Тип Function Имя_Функции(Аргументы) As Тип_Данных s

Создание и применение функций

Использование списка поименованных аргументов

Еnd Sub

Private Sub Сложение(Val1 As Single, Val2 As Single, _

Еnd Sub

Dim Result As Single Сложение 6, 12, Result

Передача процедуре величин

Аргументы в заголовке дают возможность определить имена и типы величин, которые должны быть переданы процедуре. Переменные, которые объявляются на уровне процедуры, считаются “частными” для данной процедуры и их значение не может быть прочитано или изменено вне тела процедуры. Исключением являются переменные, указанные в операторе объявления.

ПРИМЕР:

‘Вызывающая процедура

Public Sub Сводка()

‘Вызываемая процедура

Rez As Single) Rez = Val1 + Val2 End Sub Вызывающую процедуру можно записать иначе, с использованием списка переменных Public Sub Сводка()

Dim ValA As Single, ValB As Single, Result As Single ValA = 6 ValB = 12 Сложение ValA, ValB, Result

Числовые значения переменных ValA, ValB передаются процедуре Сложение(), и только после ее завершения, переменной Result присваивается значение.

Использование списка поименованных аргументов облегчает ввод данных в процедурах с большим количеством аргументов. С этой целью, после имени переменной, которое указано в строке заголовка, нужно ввести знак присваивания (:=) и значение, которое ей следует передать. Данный способ передачи данных позволяет изменять порядок следования аргументов, который может не соответствовать тому, что приведен в строке заголовка. Если использовать обычный знак равенства, то нарушение очередности становится невозможным.

ПРИМЕР: Сложение Val2:=ValB, Val1:=ValA, Rez:=Result

Процедура создания функций немного отличается от процедуры создания подпрограмм, ее вид:

Так как функция возвращает результирующее значение в своем имени, следует указать к какому Типу_Данных VBA следует отнести эту величину.

Вызов функции, также отличается от вызова подпрограмм - она может вызываться как часть формулы.

ПРИМЕР:

Public Sub Сводка()

Dim ValA As Single, ValB As Single, Result As Single ValA = 6: ValB = 12 Result= Сложение(ValA, ValB)

Сложение = Val1 + Val2

Принцип управление выполнением программы или принцип принятия решений в ходе выполнения программы состоит в сравнении двух величин и изменения последовательности выполнения программы в соответствии с результатом этого сравнения. Комбинация нескольких операторов сравнения позволяет создавать сложные логические выражения, с помощью которых организуется разветвление расчетного алгоритма. Если в программе нет операторов принятия решений, то ее операторы выполняются один за другим. Таким образом организуются линейные алгоритмы. Когда в программе встречаются операторы принятия решений, последовательность выполнения программы нарушается - часть операторов может быть пропущена или выполнена несколько раз.

Простейшим оператором принятия решений является оператор If, который записывается в следующем виде

If Выражение Then Оператор

Выражение обычно представляет собой оператор логического сравнения двух величин или формулу, результат которой имеет логическое значение - True или False.

Оператор любой оператор VBA или имя процедуры, которую следует вызвать, если получен логический результат Выражения - True.

Оператор If действует следующим образом. Сначала If проверяет Выражение. Если его результат оказывается True, то выполняется Оператор. В противном случае, когда получен результат False, Оператор пропускается и осуществляется переход к следующему за Оператором действию по ходу выполнения программы.

Операторы логического сравнения

В VBA различаются следующие операторы логического сравнения:

Оператор	Описание
=	Равно
<>	Не равно
<	Меньше
>	Больше
<=	Меньше или равно
>=	Больше или равно
Is	Идентично
Like	Сравнение строк с использованием подстановочных символов

Дата добавления: 2014-12-29