Самоучитель VBA


         

и при помощи раскрывающегося списка



  • Выберем ячейку Bi и при помощи раскрывающегося списка Цвет заливки (Fill Color) панели инструментов Форматирование (Formatting) окрасим эту ячейку в желтый цвет.

  • Выберем диапазон А2:Д9 и при помощи раскрывающегося списка Цвет заливки (Fill Color) панели инструментов Форматирование (Formatting) окрасим этот диапазон в светло-бирюзовый цвет.

  • Выберем столбец д, изменим его ширину так, чтобы введенный в диапазон А2: Д9 текст помещался в этом столбце.

  • Выберем диапазон А2:В9 и при помощи мастера диаграмм, вызываемого кнопкой Мастер диаграмм (Chart Wizard) панели инструментов Стандартная (Standard), создадим диаграмму.

    Рабочий лист теперь будет выглядеть так, как показано на рис. В.1. Остановим запись макроса, нажав кнопку Остановить запись (Stop Recording).

    Заполним ячейки таблицы исходными данными, расчет суммарных расходов и построение диаграммы теперь будет происходить автоматически.

    Для просмотра записанной процедуры необходимо выбрать команду Сервис, Макрос, Макросы (Tools, Macro, Macros), которая вызовет диалоговое окно Макрос (Macro) (рис. В.З).

    В этом диалоговом окне в списке выделим макрос и нажмем кнопку Изменить (Edit). Это вызовет появление главного окна редактора VBA (рис. В.4). Ниже приведен полный текст записанного макроса.



    Рис. В.З. Диалоговое окно Макрос



    Рис. В.4. Главное окно редактора VBA

    Sub Расходы()

    '

    ' Расходы Макрос

    ' Расчет месячных расходов '

    '

    Range("Bl").Select

    ActiveCell.FormulaRlCl = "Расходы"

    Range("A2").Select

    ActiveCell.FormulaRlCl = "Транспорт"

    Range("A3").Select

    ActiveCell.FormulaRlCl = "Коммунальные"

    Range("A4").Select

    ActiveCell.FormulaRlCl = "Еда"

    Range("A5").Select

    ActiveCell.FormulaRlCl = "Развлечения"

    Range("A6").Select

    ActiveCell.FormulaRlCl = "Одежда"

    Range("A7").Select

    ActiveCell.FormulaRlCl = "Компьютер"

    Range("A8").Select

    Содержание  Назад  Вперед