9) Оператор Select Case.

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

Select Case sDayOfWeek

Case "Понедельник"

MsgBox "Салат из шпината"

Case "Вторник"

MsgBox "Салат из морской капусты"

…

Case Else

MsgBox "На этот день у нас ничего не предусмотрено"

End Select

Некоторые замечания по поводу Select Case:

• строка Case "Понедельник" на самом деле означает Case sDayOfWeek = "Понедельник", просто такое равенство подразумевается по умолчанию. Возможно использование набора операторов:

Case 0 To 5, 15, Is > 55

MsgBox "Напомнить о прививках"

• при использовании диапазона (0 To 5) включаются и границы диапазона (в данном случае 0 и 5).

11) Объявление одномерных массивов. Доступ к элементам одномерных массивов.

Как и в других языках программирования, в VBA вы можете использовать массивы.

Dim A(12) As Integer

Эта строка объявляет одномерный массив (вектор) из 12 целых чисел, причем по умолчанию первый элемент массива будет А(0), а последний А(11). В этом случае говорят, что 0 — базовый индекс. Можно изменить базовый индекс, написав в начале листа модуля инструкцию Option Base 1. После этого индексы массивов аив будут начинаться с единицы. Другим способом изменения базового индекса является использование ключевого слова то при объявлении массива:

Dim B(l То 3, 1 То 3) As Single

Dim A(l To 12) As Integer

Массив в программе определяется поэлементно. Например,

Dim B(l To 2, 1 То 2) As Single

B(1,1)=2

В(1,2)=4

В(2,1)=1

В(1,2)=6

12) Объявление многомерных массивов. Доступ к элементам многомерных массивов.

Массивы могут быть многомерными:

Dim MyArray (4, 9)

13) Инициализация массивов, функция Array

Массивы используются для хранения в памяти множества значений. Вместо того, чтобы объявлять множество похожих друг на друга переменных, часто гораздо удобнее воспользоваться массивом.

Объявление массива производится очень просто:

Dim MyArray (2) As Integer

Такой массив может хранить три целочисленных элемента. 2 – это верхняя граница массива. Количество элементов, которое может хранить массив, – от 0 до верхней границы включительно.

Массивы можно создавать и заполнять одновременно при помощи встроенной функции Array():

Dim MyArray

MyArray = Array(100, 200, 300, 400, 500)

Указывать размер массива необязательно – он будет автоматически настроен в соответствии с кол-вом передаваемых элементов.

Массив фиксированной длины просто очищается, динамический массив разинициализируется – его придется инициализировать (определять размер) заново.

14) Динамические массивы.

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

Dim R() as Single

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