Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Федор от 26 октября 2019, 08:59

Название: VBA Макросы: Макрос не входит в цикл While...Wend.
Отправлено: Федор от 26 октября 2019, 08:59
Нужно написать функцию, которая вычисляет значение функции приблизительно в зависимости от заданной точности (e). Как только новый член ряда будет меньше заданной точности e, поместить его в сумму и прекратить суммирование.

Написал код, но выясняется, что макрос не входит в цикл While - Wend. Фрагмент кода:

While slag >= e
    slag = n / (x ^ n)
    posslag = (n + 1) / (x ^ (n + 1))
    n = n + 1
Wend
Название: Re: VBA Макросы: Макрос не входит в цикл While...Wend.
Отправлено: Администратор от 26 октября 2019, 09:20
Используйте цикл Do...Loop:

Do
Loop While slag >= e
Название: Re: VBA Макросы: Макрос не входит в цикл While...Wend.
Отправлено: Федор от 26 октября 2019, 09:43
Спасибо вам, программа заработала.