Excel. Трюки и эффекты

После помещения кода, представленного в листинге 5.6, в модуль формы необходимо сформировать ее внешний вид, как показано на рис. 5.10.

Рис. 5.10. Пользовательская форма

При работе с формой необходимо выполнить следующие действия (для присвоения значений свойствам используется панель VBA Properties (Свойства)):

• форме присвоить имя f rmColorCalc;

• двенадцати кнопкам (в правой верхней части формы) присвоить названия от cmbColorl до cmbColorl2;

• текстовому полю для указания диапазона суммирования присвоить следующее имя: txtRange;

• текстовому полю для указания адреса ячейки с результатом присвоить имя txtResCell;

• раскрывающемуся списку Другой присвоить имя cboOtherColor, а его свойству ColumnCount – значение 2;

• кнопке, расположенной справа от этого списка, присвоить имя cmbApplyColor;

• раскрывающемуся списку Тип вычислений присвоить имя cboCalcTypes, а его свойству ColumnCount – значение 2;

• флажку Проверять присвоить имя chkVarif у;

• элементу управления ToggleButton с надписью Шрифт присвоить имя tglType.

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

Теперь создадим кнопку запуска программы на панели быстрого доступа, для чего выполним щелчок правой кнопкой мыши на этой панели и выберем команду контекстного меню Настройка панели быстрого доступа. В появившемся диалоговом окне (окно настройки Excel в режиме Настройка) в раскрывающемся списке Выбрать команды из выберем Макросы. При этом среди доступных команд дожна быть показана CalcColors, которую и нужно добавить на панель. На этом процесс создания программы можно считать завершенным.

Работа с программой

Для запуска созданной программы нажмем кнопку, которой назначен макрос CalcColors – в результате откроется окно, соответствующее пользовательской форме, которая приведена на рис. 5.10. Предварительно следует выделить обрабатываемый диапазон – в этом случае поле Диапазон суммирования будет заполнено автоматически. В противном случае в данном поле следует с клавиатуры ввести требуемый диапазон (например, А5: С15). С помощью параметра Признак суммирования определяется, какой цвет шрифта или заливки будет применяться в качестве критерия отбора. При этом справа в поле Выберите цвет отображается перечень цветов, входящих в обрабатываемый диапазон; для выбора достаточно щелкнуть кнопкой мыши на кнопке соответствующего цвета. В расположенном ниже поле Другой из раскрывающегося списка можно выбрать какой-либо другой цвет. Список включает в себя следующие варианты: Красный, Оранжевый, Желтый, Зеленый, Голубой, Синий, Фиолетовый, Белый, Черный. Справа от поля Другой расположена кнопка, при нажатии которой выбранный цвет будет применен.

В поле Адрес ячейки ввода формулы следует указать адрес ячейки, в которой будет показан результат расчетов.

Если установлен флажок Проверять, то будет включен «обратный фильтр». Иначе говоря, при установленном данном флажке в расчет принимаются те ячейки диапазона, которые не соответствуют указанному цвету. Например, если выбран красный цвет, то ячейки с красным шрифтом (заливкой) не будут приниматься в расчет.

В поле Тип вычислений из раскрывающегося списка выбирается требуемый вид операции. Возможен выбор одного из следующих вариантов:

• Сумма;

• Среднее;

• Максимум;

• Минимум;

• Количество ячеек;

• Сумма положительных (значений);

• Сумма отрицательных (значений);

• Количество непустых (ячеек);

• Количество непустых ненулевых (ячеек);

• Количество положительных (значений);

• Количество отрицательных (значений).

По умолчанию в поле Тип вычислений установлено значение Сумма.

Функция, которая создается в результате работы программы и результат применения которой отображается в ячейке, указанной в поле Адрес ячейки ввода формулы, выглядит примерно следующим образом:

=ColorCalc(«D14:F17»;255;0;0;0)

Эта формула включает в себя следующие элементы:

• ColorCalc – имя функции;

• D14:F17– обрабатываемый диапазон (можно ввести несколько диапазонов – в этом случае их следует указать через запятую);

• 255 – цвет, используемый в качестве критерия отбора (в рассматриваемом примере – красный);

• 0 (первый) – указывает на то, что параметру Признак суммирования установлено значение Шрифт (при выборе значения Заливка в формуле будет отображаться 1);

• 0 (второй) – указывает на операцию, выбранную в поле Тип вычислений (в данном случае – Сумма); соответствующие константы перечислены в начале модуля, содержащего код функции CalcColor;

• 0 (третий) – указывает, что в расчет принимаются данные, соответствующие выбранному цвету (если указано 1, значит, включен «обратный фильтр»; иначе говоря, в окне настройки параметров установлен флажок Проверять).

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

Глава 6 Полезные советы