Информатика: Применение электронных таблиц в инженерно-технических расчетах. Кузнецов В.В - 39 стр.

                               -38-

     Пример выполнения этого пункта задания:
    - Скопировать в отдельный блок таблицы границы интерва-
       ла изоляции корня и соответствующие им значения функ-
       ций системы и их разности.
    - Записать последовательность макрокоманд: стартуя из вы-
       бранной пользователем ячейки, вставить между границами
       интервала строку из четырех пустых ячеек.
    - Записать в них новую координату середины интервала
       изоляции корня и соответствующие значения функций.
     Этот вариант макроса для начальных данных, скопирован-
ных в блок F30:I31, приведен на рис.15, а результаты его работы -
на рис. 12.
    5.7. Для проверки правильности вычислений найдите ис-
комые решения помощи функции электронных таблиц "Сер-
вис/Подбор параметра", сравните их с полученными результа-
тами, занеся в итоговую таблицу.
    Sub Счетчик()
    '
    ' Счетчик Макрос
    ' Макрос записан 28.11.99 (Pevtsov)
    '
    ' Сочетание клавиш: Ctrl+f
    '
       Range("F31:I31").Select
       Selection.Insert Shift:=xlDown
       Range("F31").Select
       ActiveCell.FormulaR1C1 = "=R[-1]C+(R[1]C-R[-1]C)/2"
       Range("G30:I30").Select
       Selection.AutoFill         Destination:=Range("G30:I31"),
  Type:=xlFillDefault
       Range("G30:I31").Select
       Range("F34").Select
  End Sub
 Рис. 15. Пример макроса для поиска решения методом деления
              интервала изоляции корня пополам.