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


         

Ввод данных на рабочем листе


/p>



Рис. 3.14. Ввод данных на рабочем листе при решении нелинейного уравнения



































Шаг 2



Выберите команду Сервис, Подбор параметра (Tools, Goal Seek). В появившемся диалоговом окне Подбор параметра (Goal Seek) (рис. 3.15)

  • В поле Установить в ячейке (Set cell) введите ссылку на ячейку А2

  • В поле Изменяя значение ячейки (By changing cell) — ссылку на ячейку A1

    В поле значение введите 3. В поле Значение (То value) вводится величина правой части уравнения. В методе Goaiseek аргумент Goal отвечает за правую часть уравнения. В данном случае присвоим аргументу Goal значение 3. Таким образом, имеем":

    Range ("A2") .GoalSeek Goal:=3,

    ChangingCell := Range ("A1")





  • Рис. 3.15. Диалоговое окно Подбор параметра



































    Шаг3



    Нажатие кнопки OK вызовет выполнение команды Подбор параметра (GoalSeek), результат расчета которой будет помещен в ячейки A1 (значение корня, в данном случае 1.731856) и А2 (значение левой части уравнения при найденном значении корня, в данном случае оно равно 2 .999325) (рис. 3.16). В силу того, что решение находится приближенно с указанной точностью, в ячейке А2 получилось 2.999325, а не ровно 3. Увеличивая точность, можно найти лучшее приближение к корню.





    Рис. 3.16. Результат вычислений команды Подбор параметра


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