Основные положения

Лабораторная работа № 3

ОБРАБОТКА ДВУМЕРНЫХ МАССИВОВ В VBA

Цель работы: получить практические навыки по обработке двумерных массивов в MS Excel с помощью VBA; освоить использование элементов управления MS Excel.

Основные положения

Двумерный массив - упорядоченный набор пронумерованных элементов одного типа, которые расположены в несколько строк и столбцов. Обращение к элементу массива происходит путём указания имени массива и двух индексов, заключённых в круглые скобки. Первый индекс указывает на номер строки, а второй – на номер столбца, на пересечении которых находится элемент, например А(2, 3).

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

Объявление двумерного статического массива:

Dim Имя_Массива (N, M) As Тип_Элементов

где N и M – целые числа (нумерация элементов в этом случае начинается с нуля). Или:

Dim Имя_Массива (1 To N, 1 To M) As Тип_Элементов

Оператор Option Base позволяет задавать 0 или 1 как начальное число по умолчанию для индексов массива.

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

Объявление динамического массива:

Dim Имя_Массива ( ) As Тип_Элементов

ReDim Имя_Массива (N, M).

Элементы управления Excel – объекты графического интерфейса (кнопки, переключатели, флажки и др.), которые используются для автоматизации и упрощения работы (Рис. 1).

Добавление элементов управления:

1. Открыть рабочий лист MS Excel .

2. Перейти на вкладку Разработчик.

3. В группе Элементы управления нажать кнопку Вставить.

Рис. 1. Элементы управления

Панель управления содержит две категории элементов:

§ Элементы управления формы – объекты, входящие в состав самого программного обеспечения MS Excel;

§ Элементы ActiveX – надстройки, которые не входят в основную часть программного обеспечения, устанавливаются отдельно и могут поставляться с программами других фирм-производителей программного обеспечения.

Пример 1. Известны данные о количестве часов проката каждой из 5 различных марок легковых автомобилей 3 филиалами фирмы:

Необходимо разработать пользовательский интерфейс и составить программу на VBA, с помощью которой будут осуществляться:

1. Ввод исходных данных двумерного массива и их вывод в виде таблицы на рабочий лист.

2. Определение:

§ марки автомобиля, которая по общим часам проката у трёх филиалов больше всего уступает другим маркам;

§ среднего количества часов проката одного автомобиля в Центральном филиале, количества марок автомобилей Центрального филиала, для которых количество часов проката не превышало найденного среднего показателя, и марок таких автомобилей.

3. Вывод полученных результатов на тот же рабочий лист.

Последовательность выполнения

На первом рабочем листе сформируем таблицу и введём названия пяти марок автомобилей.

Щёлкнув по кнопке Свойства группы Элементы управления установим для каждой кнопки значение свойства Caption: Ввод и вывод данных, Определить, Очистить, соответственно.

Дальнейшее редактирование элементов управления осуществляется в Режиме конструктора.

Значения количества часов проката будем вводить с помощью функции InputBox (см. лаб. работу № 2) и присваивать соответствующим элементам двумерного массива.

Щёлкнем мышью дважды по каждой кнопке и введём в модуле Лист1 программный код обработки события нажатия кнопок:

Результаты работы программы:

Рис. 3. Результат нажатия кнопки «Ввод и вывод данных»

Рис. 4. Результат нажатия кнопки «Определить»

Пример 2. Составить программу на VBA, с помощью которой будут осуществляться:

1. Ввод элементов матрицы размерности 3´4 и их вывод в ячейки рабочего листа (с точностью до 2 знаков после запятой)

2. Определение наименьшего по модулю элемента каждого столбца матрицы и произведения элементов, значения которых по модулю не превышают 1,5;

3. Вывод полученных результатов на тот же рабочий лист.

Последовательность выполнения

Разместим на рабочем листе две кнопки CommandButton1и CommandButton2 из категории Элементы ActiveX из группы Элементы управления вкладки Разработчик.

Щёлкнув по кнопке Свойства группы Элементы управления установим для каждой кнопки значение свойства Caption: Вычислить,

Для обработки событий нажатия кнопок введём в модуле «Лист1» следующий программный код:

c

Результат работы программы: