Запуск программ на выполнение

или щелкнуть по инструментальной кнопке .

Динамические массивы

Если заранее не известно, сколько элементов потребуется в массиве, можно объявить его динамическим. Для этого достаточно при объявлении (с помощью Dim) в скобках не указывать размерность, а указать ее позже (перед использованием массива) с помощью оператора ReDim.

Например,

Dim Прибыль () As Single, Затраты() As Single

……….

n = 5

m = 20

……….

ReDim Прибыль (16), Затраты(n, m)

……….

Здесь оператором Dim объявлены два массива данных вещественного типа Прибыль и Затраты, а затем с помощью оператора ReDim указано, что массив Прибыль – одномерный, а массив Затраты – двухмерный, причем размер массива Прибыль задан константой 16, а размер массива Затраты задан переменными n и m.

Диалоговый ввод и вывод данныхс помощью

Стандартных функций

Ввод и вывод данных может осуществляться по-разному. Диалоговый ввод (или вывод) означает, что для этих целей используются диалоговые окна, в которых пользователь читает сообщения или указывает данные, которые хочет ввести. В VBA имеются соответствующие разнообразные возможности. Проще всего для этого использовать стандартные функции InputBox (диалоговый ввод данных) и MsgBox (диалоговый вывод).

Ввод данных

Функция InputBox автоматически создает диалоговое окно, в котором имеется поле ввода и две командные кнопки: OK (подтверждение ввода) и Cancel (отмена). От пользователя требуется указать константу в поле ввода и щелкнуть по кнопке OK. В результате, эта функция возвращает введенную константу. Общий формат этой функции имеет следующий вид:

InputBox (< текст > [, < заголовок >] [, < default >])

Здесь

< текст > – обязательный аргумент с текстом комментария в окне;

< заголовок > – текст заголовка окна (по умолчанию – MS Excel);

< default > – значение константы, которое выводится в окне в поле ввода (для “умолчания”).

Например, оператор

Затраты = InputBox("Введите размер затрат", "Ввод данных", 30000)

приведет к выводу на экран диалогового окна

Пользователь может изменить значение, указанное в поле ввода. После щелчка по кнопке OK переменной Затраты автоматически будет присвоено введенное пользователем число.

Значение < текст > и < заголовок > могут быть заданы текстовыми константами, переменными или выражениями с оператором “ конкатенация ” (обозначается знаком &). Этот оператор можно применять для объединения значений как текстовых, так и числовых переменных или констант. Например,

number = 5

Q = InputBox("Введите количество " & number & "-го товара", "Ввод данных", 0)

приведет к выводу на экран диалогового окна

Текст комментария (< текст >) может быть многострочным. Для этого используется функция Chr с аргументом 13. Например, оператор

Затраты = InputBox("Введите размер затрат" & Chr(13) & "в июне", "Ввод данных", 0)

приведет к выводу на экран диалогового окна

Если объединяются только текстовые данные, можно вместо знака & указывать знак +. Например, в последнем примере можно было написать

Затраты = InputBox("Введите размер затрат" + Chr(13) + "в июне", "Ввод данных", 0)

Однако следует иметь в виду, что в этом случае попытка указать числовое данное приведет к ошибке. Этого можно избежать, прообразовывая числовые данные в строковые с помощью функции CStr. Например, если тип переменной number – integer (целый), то оператор

Q = InputBox("Введите количество " + number + "-го товара", "Ввод данных", 0)

будет восприниматься интерпретатором как ошибочный. Чтобы этого не произошло, следует преобразовать тип переменной number в строковый (string):

Q = InputBox("Введите количество " + CStr(number) + "-го товара", "Ввод данных", 0)

Вывод данных

Функция MsgBox выводит на экран диалоговое окно с текстовым сообщением и набором командных кнопок (Ok, Отмена, Да, Нет и т.д.). После выбора пользователем одной из этих кнопок MsgBox возвращает результат этого выбора.

Общий формат этой функции имеет следующий вид:

MsgBox (< текст > [, < кнопки >] [, < заголовок >])

Здесь аргументы < текст > и < заголовок > имеют такой же смысл, что и в функции InputBox, и оформляются аналогично. Значение аргумента < кнопки > определяет набор кнопок в окне:

vbOkOnly – кнопка “ Ok ”;

vbOkCancel – кнопки “ Ok ” и “ Отмена ”;

vbYesNo – “ Да ” и “ Нет ”;

vbYesNoCancel – “ Да ”, “ Нет ” и “ Отмена ”;

vbAbortRetryIgnore – “ Прервать ”, “ Повтор ” и “ Пропустить ”;

vbRetryCancel – “ Повтор ” и “ Отмена ”.

По умолчанию – vbOkOnly.

Данная функция возвращает результат “нажатия” кнопки пользователем: