31.Синтаксис оператора For Each. Досрочный выход из цикла

Цикл For Each..Next не использует счетчик цилка. Циклы For Each..Next выполняются столько раз, сколько имеется элементов в определенной группе, такой как коллекция объектов или массив. Цикл For Each..Next выполняется один раз для каждого элемента в группе.

Синтаксис:

For Each Element In Group

Statements

Next [Element]

Element - переменная, используемая для итерации по всем элементам в определенной группе

Group - это объект коллекции или массив

Statements - один, несколько или ни одного оператора VBA (тело цикла).

С помощью операторов Exit... можно осуществить досрочный выход из цикла вне зависимости от значения, которое имеет в данный момент условие выхода.

Dim n As Integer

n = 10

Do While n > 1

&nbspn = n - 1

&nbspDebug.Print n

&nbspIf n = 5 Then Exit Do

32.Функции приведения типов. CStr, cdBl

В программах на VBA очень часто приходится преобразовывать значения из одного типа данных в другой. Несколько типичных ситуаций, когда этим приходится заниматься:

преобразование из строкового значение в числовое при приеме значения от пользователя через InputBox();

преобразование значения даты/времени в строковое, когда нам нужно отобразить дату или время единообразно вне зависимости от региональных настроек на компьютерах пользователей;

преобразование значения из строкового в дату/время для применения специальных функций даты/времени.

- CStr тип данных String возвращаемые значения функции CStr зависят от аргумента

Dim MyDouble, MyString

MyDouble = 437.324

MyString = CStr(MyDouble)

- CDbl тип данных Double

Dim MyCurr, MyDouble

MyCurr = CCur(234.456784)

MyDouble = CDbl(MyCurr * 8.2 * 0.01)

33.Основные математические функции vba

Abs(N) - Возвращает абсолютное значение аргумента N

Atn(N) - Возвращает арктангенс N (радиан)

Cos(N) - Возвращает косинус N (радиан)

Exp(N) - Возвращает константу е (натуральный логарифм = 2.718282...), возведенную в степень N

Fix(N) - Возвращает целую часть N. Не округляет число, а отбрасывает любую дробную часть. Если N отрицательное число, то возвращается ближайшее отрицательное целое большее, чем или равное N

Int(N) - Возвращает целую часть N. Не округляет число, а отбрасывает любую дробную часть. Если N отрицательное число, то возвращается ближайшее отрицательное целое меньшее, чем или равное N

Log(N) - Возвращает натуральный логарифм N

Rnd(N) - Возвращает случайное число: аргумент является необязательным. Используется только после инициализации генератора случайных чисел (оператор Randomize)

Sgn(N) - Возвращает знак числа: -1, если N - отрицательное; 1, если N - положительное; 0, если N равно 0

Sin(N) - Возвращает синус N (радиан)

Sqr(N) - Возвращает корень квадратный из N. Если N является отрицательным числом - возвращается ошибка времени исполнения

Tan(N) - Возвращает тангенс N (радиан)

34.Массивы одномерные и многомерные. Объявление, обращение к элементам массива

Объявление массива с использованием оператора Dim имеет следующий синтаксис:

Dim VarName([Subscripts]) [As Type]

VarName - любое имя массива, использующее допустимый идентификатор имени;

Subscripts - измерение массива. Если размерность массива больше единицы, то Subscripts разделяются запятыми.

Оператор Subscripts имеет следующий синтаксис:[lower To] upper [,[lower To] upper]..

lower - определяет нижний диапазон допустимых индексов для массива (необязательный аргумент);

upper - определяет верхний предел для индексов массива (обязательный аргумент).

Dim Array_Str (1 To 10) As String - одномерный статический строковый массив, включающий 10 элементов;

Dim Array_Var() - динамический массив;

Dim Array_Mult (0 To 5, 0 To 7) As Integer - двумерный статический массив целых чисел, включающий 6*8=48 элементов.

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

Dim a(1 To 10) as Single

A(1) = 1