Private Sub CommandButton1_Click()

Workbooks("Книга2").Worksheets("Лист1").Range("B1").Value = 24.6

End Sub

где Workbooks("Книга2") - обращение к рабочей книге с именем Книга2

WorkSheets("Лист1") - обращение к рабочему листу с именем Лист1

Range("B1") – обращение к ячейке В1

Value – свойство ячейки

Если активными являются рабочая книга2 и рабочий лист1, то процедура обработки события нажатия кнопки упрощается:

Private Sub CommandButton1_Click()

Range("B1") = 24.6

End Sub

Эта процедура будет выполняться лишь после выхода Excel из режима конструктора, т.е. нужно щелкнуть кнопку 3 (рис. 18.1).

Используя элементы управления, вставленные в рабочий лист и ячейки электронной таблицы для ввода и вывода информации можно создавать сценарии. Сценарий — это набор значений, которые Microsoft Excel сохраняет и может автоматически подставлять на листе. Сценарии можно использовать для прогноза результатов моделей и систем расчетов.

Пример 18.1. Создание сценария для выбора поставщика сырья, с целью минимизации затрат производства при выпуске продукции. Исходными данными для сценария являются:

1. Три поставщика, поставляют три вида сырья для производства трех видов продукции (см. табл. 18.1).

2. Каждый поставщик за сырье 1, 2 и 3-е выставляет свою цену за кг. Отсюда затраты на производство продукции будут различными.

Обычно составляется ЭТ, в ячейки которой вводят цены за сырье от 1 поставщика и выписывают из таблицы полученные затраты, затем аналогично выполняют для 2-го и 3-го поставщика. Из полученных результатов выбирают поставщика с минимальными затратами. Этот процесс можно автоматизировать, создав сценарий, по которому к ЭТ на рабочем листе добавляются три кнопки, при нажатии на каждую из которых в таблицу программно вставляются цены, предлагаемые соответствующими поставщиками. При этом затраты по каждому поставщику автоматически заносятся в отдельные от ЭТ ячейки, среди которых выбирается минимальное значение, т.е. поставщик. Интерфейс сценария составляют 4 кнопки.

1. Процедуры отклика на каждую кнопку приведены ниже:

Private Sub CommandButton1_Click() ' 1 поставщик

Range("E3") = 3.5 'Цена за кг. 1-го сырья 1-м поставщиком

Range("H3") = 4.5 'Цена за кг. 2-го сырья 1-м поставщиком

Range("K3") = 2.5 'Цена за кг. 3-го сырья 1-м поставщиком

Range("D10") = Range("L8") 'Передача затрат в ячейку D10