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


Объект Scenario - часть 2


Рис. 4.1. Расчет суммарных затрат

Таблица 4.1. Два варианта стоимостей

Вариант

Комплектующие

Расходные материалы

1

2

1000

800

200

300

Суммарные затраты вычисляются в ячейке В5 по формуле:

=СУММ(В3:В4)

Шаг 1

Выберите команду Сервис, Сценарии (Tools, Scenarios). Появится диалоговое окно Диспетчер сценариев (Scenario Manager) (рис. 4.2). Нажмите кнопку Добавить (Add).

Рис. 4.2. Диалоговое окно Диспетчер сценариев

Шаг 2

В появившемся диалоговом окне Добавление сценария (Add Scenario) (рис. 4.3):

  • В поле Название сценария (Scenario Name) вводится имя создаваемого сценария. Введите, например, вариант 1 .

  • В поле Изменяемые ячейки (Changing Cells) вводятся ссылки на ячейки, в которые будут заноситься значения, соответствующие данному сценарию. Введите ссылки на диапазон ячеек $В$3:$В$4.

  • Нажмите кнопку ОК.

ШагЗ

В появившемся диалоговом окне Значения ячеек сценария

(Scenario Values) в поля, помеченные именами изменяемых ячеек, . вводятся соответствующие значения (рис. 4.4). В данном случае в поле $в$з введите юоо, а в поле $в$4 введите 200. Нажатие кнопки Добавить (Add) приведет к появлению диалогового окна Добавление сценария (Add Scenario), в котором следует ввести параметры второго сценария и т. д. После создания требуемого количества сценариев нажмите кнопку ОК, которая приведет к завершению создания сценариев.

Рис. 4.3. Диалоговое окно Добавление сценария

Рис. 4.4. Диалоговое окно Значения ячеек сценария

Шаг 4

В появившемся диалоговом окне Диспетчер сценариев (Scenario Manager) выбором в списке Сценарии (Scenarios) соответствующего сценария и нажатием на кнопку Вывести (Show) производится ввод соответствующих этому сценарию значений в изменяемые ячейки (рис. 4.5).Приведенное выше создание вручную сценариев программируется следующими инструкциями:

ActiveSheet . Scenarios . Add Name := "Вариант 1", ChangingCells:=Range ("B3:B4") , Values:=Array("1000", "200") , Comment :="Автор: Андрей Гарнаев, 28.03.99", Locked:=True, Hidden:=False ActiveSheet. Scenarios. Add Name : ="Вариант 2", ChangingCells:=Range("B3:B4") , Values :=Array ("800", "300"), Comment :="Автор: Андрей Гарнаев, 28.03.99", Locked :=True, Hidden :=False Отображение сценариев на рабочем листе осуществляется следующими двумя инструкциями:

ActiveSheet . Scenarios ( "Вариант 1" ) . Show ActiveSheet . Scenarios ( "Вариант 2 " ) . Show


Рис. 4.5. Диалоговое окно Диспетчер сценариев после создания двух сценариев




- Начало -  - Назад -  - Вперед -