Использование элементов управления

В Excel имеется возможность использовать две группы управляющих элементов.

Первая – расположена на панели форм. Все вышеприведенные примеры построены на использовании именно этих элементов. Такие элементы представляют собой компоненты ActiveX и предназначены для запуска пользовательских макросов.

Вторая группа – это «истинные» управляющие элементы Visual Basic for Application (VBA). Они обладают всеми свойствами элементов визуальных систем программирования.

В целом – элементы группы VBA имеют больше возможностей и большую палитру свойств. Главная их особенность – это способность реагировать на события типа OnClick, OnChange и т.д. Однако их использование требует от пользователя определенной программистской квалификации.

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

Покажем возможности элементов VBA на предыдущем примере формирования сводной таблицы.

Недостатком сформированного там интерфейса является то, что пользователь должен знать о поочередности нажатия кнопок «Сформировать» и «Очистить». В противном же случае произойдет сбой в работе макросов.

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

1. Командой Вид > Панели инструментов > Элементы управления вызовем панель «Элементы управления».

2. Используя элемент «Кнопка» этой панели создадим две новых кнопки.

3. Нажмем на панели «Элементы управления» кнопку «Режим конструктора»

4. Щелчком ПКМ по первой кнопке вызовем ее контекстное меню.

5. В меню выберем пункт «Свойства» и в появившейся таблице свойств в свойстве Caption (заголовок) поменяем значение – вместо CommandButton1 напечатаем «Сформировать».

6. Аналогично поменять название второй кнопки – вместо CommandButton2 напечатаем «Очистить».

7. На панели «Элементы управления» нажать кнопку «Исходный текст»

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

 

Private Sub CommandButton1_Click()

End Sub

Private Sub CommandButton2_Click()

End Sub

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

Private Sub CommandButton1_Click()

Range("C13").Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _

"Данные_продаж").CreatePivotTable TableDestination:= _

"[Пример.xls]Отчеты!R13C3", TableName:="СводнаяТаблица2",

DefaultVersion:= _

xlPivotTableVersion10

ActiveSheet.PivotTables("СводнаяТаблица 2").AddFields RowFields:= _

"Наименование";

ActiveSheet.PivotTables("СводнаяТаблица 2").PivotFields("Количество"). _

Orientation = xlDataField

ActiveWorkbook.ShowPivotTableFieldList = False

End Sub

Private Sub CommandButton2_Click()

Range("C13:D21").Select

Range("D21").Activate

Selection.ClearContents

End Sub

10. Добавим в обе процедуры команды активации и дезактивации кнопок:

– в первую

CommandButton1.Enabled = False

CommandButton2.Enabled = True

– во вторую

CommandButton2.Enabled = False

CommandButton1.Enabled = True

 

11. Вернемся в Excel и на панели «Элементы управления» нажмем кнопку «Выход из режима конструктора»

12. Если отчет еще не сформирован, то щелкаем по «Сформировать». Должна появиться сводная таблица и кнопка «Сформировать» станет не активной.

Если затем щелкнуть по кнопке «Очистить», то сводная таблица будет удалена, кнопка «Очистить» станет не активной, а кнопка «Сформировать» станет активной.

Возникшая ситуация приведена на рис 5.7.

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