Форум по VBA и MS Office

Sub макрос()

    ' Создание в оперативной памяти компьютера поименованной области - переменной "sum".
        ' Переменная нужна, чтобы в неё что-нибудь записывать. Переменную можно сравнить
        ' с файлом, но файл находится на жёстком диске компьютера, а переменная в оперативной памяти.
    ' Double означает, что в переменной могут быть только числа (текст не может быть).
        ' Причём числа могут быть как целые, так и дробные.
    Dim sum As Double, slagaemoe As Double, x As Double
    ' Long означает, что в переменной могут быть только числа. Причём числа могут быть только целые.
    ' String означает, что данные, которые будут в переменной, будут считаться текстом.
    Dim n As Long, InputText As String, factorial As Double
    ' Создание в оперативной памяти компьютера константы "e". Константа это такая же переменная,
        ' только в неё можно записать данные один раз.
    Const e As Double = 10 ^ (-7)
   
   
    '1. Юзер записывает "x" в переменную "InputText".
    InputText = InputBox("Введите ""x"":")
    ' Если юзер щёлкнул "Cancel", то выход из процедуры "макрос" и тем самым завершение работы макроса.
        ' If ... Then ... End If используется для выбора действия.
    If InputText = "" Then
        Exit Sub
    End If
   
    '2. Копирование данных из переменной "InputText" в переменную "x", чтобы
        ' число было в виде числа, а не в виде текста, чтобы было логично.
    x = InputText
   
    '3. Сразу записываем в переменную "factorial" число 1. По умолчанию там ноль.
        ' А если будет ноль, то далее при расчётах факториала всегда будет ноль,
        ' т.к. при умножении на ноль будет ноль.
    factorial = 1
   
    '4.
    ' Do .. Loop - это цикл. Цикл используется, чтобы запускать одну и ту же команду несколько раз.
    Do
        '1) Запись в переменную "n" числа. В неё записывается число из переменной "n" плюс 1.
        n = n + 1
        '2) Расчёт факториала.
        factorial = factorial * n
        '3) Расчёт слагаемого для текущего "n".
        slagaemoe = n ^ Sqr(n) - x / factorial
        '4) Если абсолютное значение слагаемого меньше заданной точности.
        If Abs(slagaemoe) < e Then
            ' Сумма рассчитана и выход из цикла с Do.
            Exit Do
        '5)  Если абсолютное значение слагаемого не меньше заданной точности.
        Else
            ' Добавление слагаемого к имеющейся сумме.
            sum = sum + slagaemoe
        End If
    Loop
   
    '5. Сообщение.
    MsgBox "Сумма равна: " & sum, vbInformation
   
End Sub