6.4. Использование элементов управления форм в листах Excel

В VBA имеется обширный набор элементов управления форм. По своей сути они являются объектами, т. е. объединяют данные с кодом, предназначенным для их обработки. Их можно конструировать на рабочем листе, используя команду Разработчик ► Вставить.

Элементы управления обладают определенными свойствами, например такими, как размер, цвет, положение на экране.

Для инициализации элементов предусмотрен редактор кода. Он обрабатывает те или иные события, связанные с элементами управления (нажатие кнопки, выбор элемента из списка, установка флажка и т. д., которые автоматически приводят к обработке данных).

Приведем некоторые события элементов управления. Событие Click происходит, когда пользователь щелкает на элементе управления. Событие Change происходит при изменении значения элемента управления.

П

Рис. 40. Данные Лист2

Рис. 39. Данные Лист1

ример с кнопкой. Предположим, что есть книга, содержащая два числа (Лист1, рис. 39).

Необходимо сложить их, полученную сумму сравнить со значением первого столбца таблицы (Лист2, рис. 40) и вывести в ячейку B5 (Лист1) соответствующее значение из второго столбца.

Задание 32. 1. Создайте файл, сохранив его как «Книга Excel с поддержкой макросов». Заполните листы книги в соответствии с рис. 39 и 40.

2. На Лист1 нарисуйте Кнопку из элементов управления форм.

В появившемся окне Назначить макрос объекту назначьте имя макросу.

3. В редакторе Visual Basic запишите следующий код:

Sub Кнопка1_Щелчок()

q = Лист1.Cells(2,2)

w =Лист1.Cells(3,2)

s = q + w

Лист1.Cells(4,2)=s

For a = 1To 9

If Лист2.Cells(a,1)=s Then

Лист1.Cells(5,2) = Лист2.Cells(a,2)

End If

Next a

End Sub

4

Рис. 41. Элемент Кнопка

. Выполните макрос нажатием кнопки, рис. 41. Результат должен соответствовать значению столбца В из Листа2, которое расположено в той же строке где значение нашей суммы совпадает с значением столбца А.

Пример со списком. Предположим, что есть книга, содержащая список. Необходимо вывести в ячейку выбранный элемент списка.

Задание 33. 1. Введите в ячейки E1:E20 список предметов, подобный представленному на рис. 42.

2. Введите в ячейку A1 следующую формулу: =ИНДЕКС(E1:E20;D1;0). В формуле INDEX() значение в ячейке D1 используется для возврата необходимого элемента списка.

Задание 34. 1. Добавьте Список из элементов управления форм.

2. В контекстном меню элемента Список выберите пункт Формат объекта. В диалоговом окне укажите следующие данные.

В

Рис. 42. Размещение элемента список на рабочем листе

ведите E1:E20 в поле Формировать список по диапазону.

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

3. Воспользуйтесь списком: щелкните элемент списка, в ячейке D1 будет показан номер этого элемента в списке. В формуле INDEX в ячейке A1 этот номер будет использован для отображения названия элемента, рис. 42.

Задание 35. 1. Следуя схеме предыдущего задания, создайте на разных рабочих листах еще два элемента управления формы: Поле со списком и Счетчик.

2. Проверьте их работу.