Код, заменяющий все двойные пробелы

Затем Вам нужно сделать следующие шаги:

1. Введите переменную, в которой будет храниться результат запроса на наличие двойных пробелов в тексте.

2. До тех пор, пока есть двойные пробелы, заменяйте их на одинарные.

3. Здесь же проверьте, остались ли еще двойные пробелы.

Например, если Вы хотите иметь в своем распоряжении полноценный инструмент для исправления чужих ошибок, добавьте в макрос удаление знаков абзаца (ввод) в конце каждой строки. Задача часто встречается при конвертации DOS’овских документов.

Сохраните созданный Вами документ под названием «Практическое занятие № 21».

2.22. Создание макросов в Microsoft Excel и их последующее редактирование

Цель занятия – обучение использованию макросов в Microsoft Excel.

Задача № 1. С заданной точностью (0.000001) найти корень уравнения: F(x) = 2x⁴-3x³-4x² +5x -6 =0, используя метод Ньютона. Построить графики функции и ее производной на заданном отрезке.

Метод Ньютона – основан на рекурсивном соотношении X_k+1 = X_k - h*F(X_k) / F'(X_k)

Задача № 2. Выполните задание без использования макросов.

Начальные условия: h=1, x₀=1. Заполните таблицу

X

F(X)

F'(X)

до тех пор, пока F(X) не будет меньше заданного значения (0.000001). Здесь x рассчитывается по рекурсивной формуле, F(x) = 2x^4-3x^3-4x^2 +5x –6, F`(x) – производная F(X).

Строим графики функции и ее производной по рассчитанным значениям.

Задача № 3. Создайте макрос Newton. Задайте переменные x0 и h типа single. Значения в x0 и h вводите c клавиатуры с помощью функции InputBox. Пример: x0 = InputBox(«Enter x0»)

Напишите подпрограммы, рассчитывающие значение функции F(x) = 2x^4-3x^3-4x^2 +5x -6 и ее производной.

Public Function F(X As Variant) As Variant

F = -6 + X * (5 - X * (4 + X * (3 - 2 * X)))

End Function

Public Function Pr(X As Variant) As Variant

Pr = 5 - X * (8 + X * (9 - 8 * X))

End Function

Теперь функции F и Pr можно использовать как стандартную функцию Microsoft Excel.

Найдите Xk, рассчитайте для них значения функции и производной и выведите результат. Для этого воспользуйтесь циклом while или Do ….Loop Until (с пост. условием). Например, таким образом:

Теперь постройте график функции и ее производной.

Рекомендация. Создать новый макрос, строящий график с помощью макрорекодера, а затем скопировать код в свой макрос.

Замечание. Недостаток этого метода в том, что теперь вы жестко привязаны к «Лист1». Если хотите, чтобы макрос выполнялся в любом месте, нужно вместо Лист1 использовать имя листа, на котором строится диаграмма. Исчерпывающую информацию по данному вопросу можно найти в справке.

Назначение выполнения макросов на кнопки. Выполнение макросов можно назначать на комбинацию клавиш, на кнопку в панели или на кнопку на листе. Добавим кнопку на лист.

Добавляем панель «Формы».

Добавляем кнопку на лист и назначаем ей макрос.

Сохраните созданный Вами документ под названием «Практическое занятие № 22».