VBA Макросы: Макрос не входит в цикл While...Wend.

[Федор]

Нужно написать функцию, которая вычисляет значение функции приблизительно в зависимости от заданной точности (e). Как только новый член ряда будет меньше заданной точности e, поместить его в сумму и прекратить суммирование.

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

While slag >= e
    slag = n / (x ^ n)
    posslag = (n + 1) / (x ^ (n + 1))
    n = n + 1
Wend

[Администратор]

Используйте цикл Do...Loop:

Do
Loop While slag >= e

[Федор]

Спасибо вам, программа заработала.