Процедура вызова диалогового окна. Поля Чистый текущий объем ссуды и

маргинальная процентная ставка

доступны для вывода информации, но не для ее ввода TextBoxS.Enabled = False TextBox6.Enabled = False

• Клавише Enter назначена функция кнопки Вычислить

• Кнопке Вычислить назначен текст всплывающей подсказки

With CommandButtonl /Default = True .ControlTipText =

"Расчет и составление отчета на рабочем листе" End With

• Клавише Esc назначена функция кнопки Отмена

• Кнопке Отмена назначен текст всплывающей подсказки With CoromandButton2

/Cancel = True

.ControlTipText = "Кнопка отмены" End With UserForml.Show End Sub

При написании программ, в которых используются те или иные возможности рабочего листа, а не только VBA, часто бывает удобным вариантом употребить средство MacroRecorder. Оно создаст макрос, описывающий на языке VBA осуществляемые вами действия. MacroRecorder является одним из интеллектуальных средств Microsoft Office, которое облегчает работу разработчиков приложений. Конечно, создаваемый им макрос будет во многих отношениях неоптимальным, но он даст хорошую подсказку, какие инструкции должны быть добавлены в программу, чтобы добиться требуемого эффекта.

Для активизации MacroRecorder выберите команду Сервис/Макрос/Начать запись и запустите MacroRecorder на запись. После задания всех параметров в появившемся диалоговом окне Запись макроса и нажатия кнопки ОК появится плавающая панель инструментов с кнопкой Остановить запись. Теперь все производимые действия будут записываться до тех пор, пока не будет нажата эта кнопка.

Предварительно решите уравнение, вычисляющее маргинальную процентную ставку. В ячейку В2 введено число вы-

плат, равное шести, ячейка В7 отведена под процентную ставку, а в ячейку В8 введена формула =ПЗ (В7 ; В2 ; В4), вычисляющая текущий объем ссуды. Требуется найти процентную ставку, при которой текущий объем ссуды равен 10 ООО.

Включите MacroRecorder и решите данную задачу вручную на рабочем листе и посмотрите на записанный макрос.

Решите задачу в соответствии со следующим алгоритмом:

1. Выберите команду Сервис/Подбор параметра.

2. В появившемся диалоговом окне Подбор параметра в поле Установить в ячейке укажите ссылку на ячейку В8, где содержится формула с левой частью решаемого уравнения. В поле Значение введите число 10 ООО, значение правой части решаемого уравнения. В поле Изменяя значение ячейки укажите ссылку на ячейку В7, которая отведена под неизвестную в решаемом уравнении.

3. Нажмите на кнопку ОК. Появится диалоговое окно Результат подбора параметра с информацией о найденном решении.

4. Нажмите на кнопку ОК диалогового окна Результат подбора параметра.

Перечисленные выше действия будут переведены MacroRecorder в следующий макрос:

Sub Макрос!()

• Макрос! Макрос

Макрос записан 0б.!2.99 (Иванов ) Range("В8").GoalSeek

Goal:=10000 , ChangingCell:=Range("В7") End Sub

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

При написании программы данного приложения MacroRecorder может также пригодиться для задания числовых форматов в ячейках ВЗ, В4, В6 и В7.

Для активизации MacroRecorder выберите команду Сервис/ Макрос/Начать запись и запустите MacroRecorder на запись.

Задавайте числовые форматы в ячейках ВЗ, В4, В5 и В7 по следующему алгоритму:

1. Выделите ячейку ВЗ. Выберите команду Формат/Ячейки. В появившемся диалоговом окне Формат ячеек (рис. 17.4) на вкладке Число в списке Числовые форматы выберите Денежный. В поле Число десятичных знаков введите О, а в раскрывающемся списке Обозначения выберите р. Нажмите кнопку ОК.

2. Выделите ячейку В4 и установите в ней числовой формат, как описано выше.

3. Выделите ячейку В5. Выберите команду Формат/Ячейки. В появившемся диалоговом окне Формат ячеек на вкладке Число в списке Числовые форматы выберите Процентный. В поле Число десятичных знаков введите 2. Нажмите кнопку ок.

4. Выделите ячейку В7 и установите в ней числовой формат, как описано в п. 3.

Перечисленные выше действия будут переведены MacroRecorder в следующий макрос:

Sub МакросЗ()

МакросЗ Макрос

Макрос записан 06.05.99 (Иванов)

Range("ВЗ").Select

Selection.NumberFormat = "#,##0$"

Range("В4").Select

Selection.NumberFormat = "#,##0$"

Range("B5").Select

Selection.NumberFormat = "0.00%"

Range("B7").Select

Selection.NumberFormat = "0.00%"

End Sub