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

           

ПХЯ У5 1 Диалоговое окно Нелинейное уравнение с параметром



пХЯ. У5.1. Диалоговое окно Нелинейное уравнение с параметром


О решаемом уравнении предполагается, что оно преобразовано к виду, когда только левая часть зависит от неизвестной и параметра. Правая же часть -постоянна. При вводе левой части уравнения в поле ввода элемента управления RefEdit вместо переменной х надо давать ссылку на ячейку В2, а вместо параметра — А2. Кроме того, формула должна быть составлена по тем же правилам, по которым пишутся формулы рабочего листа. Например, для упомянутого выше уравнения в поле надо ввести:

=В2^3-В2-А2

либо эквивалентную формулу с абсолютными ссылками на ячейки.

Обсудим, как приведенная ниже программа решает перечисленные задачи и что происходит в программе.

UserForm_Initialize
  1. Активизирует диалоговое окно.
  2. Назначает клавише <Esc> функцию кнопки отмена, а клавише <Enter> - вычислить.

Нажатие кнопки вычислить запускает на выполнение процедуру

CommandButtonl_Click
  1. При выполнении щелчка в соответствующей ячейке в поле элемента управления Re f Edit вводится абсолютная ссылка на эту ячейку. При выделении ячейки с формулой и протаскивании ее маркера заполнения вниз вдоль столбца для получения корректного результата нужна не абсолютная, а относительная ссылка. С этой целью из строки с формулой, присвоенной строковой переменной Формула, удаляются все знаки $, тем самым превращая все абсолютные ссылки в относительные.
  2. Удаляются с рабочего листа ранее введенные данные и создаются заголовки полей отчета.
  3. Устанавливаются предельное число итераций и относительная погрешность метода Goal Seek.
  4. Методом DataSeries в диапазоне создается арифметическая профессия изменения значений параметра от начального до конечного значения с указанным шагом.
  5. Вводится начальное приближение в диапазон.
  6. Вводится в диапазон левая часть уравнения при различных значениях параметра.
  7. Последовательно для каждой ячейки, имеющей формулу с левой частью уравнения, методом GoalSeek, находится корень уравнения.
  8. Вызывается процедура ПостроениеГрафика для построения графика (Рисунок У5.2).

Нажатие кнопки отмена запускает на выполнение процедуру

CommandButton2 _Click

11 . Закрывает диалоговое окно.

Процедура

ПостроениеГрафика

12. Строит график.



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