Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.76
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.76

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

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

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

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

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

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

Sub Макрос1()

' Макрос1 Макрос

' Макрос записан 06.12.99 (Иванов ) Range("В8Н).GoalSeek

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

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

17. Расчет маргинальной процентной ставки__131

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

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

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

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta