Excel VBA Макросы: Табулирование функции одной переменной средствами VBA.

[kkk]

Помогите выполнить табулирование функции одной переменной средствами VBA.
Формула в экселе выглядит так, нужно её переделать в код VBA:
=ЕСЛИ(X<=0;КОРЕНЬ(1+X^2);2*X+2*(COS(X)^2)/(3+X)).

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

Макрос

Sub Макрос()
   
    'Создание в оперативной памяти компьютера поименованной области "a".
        'В программировании поименованная область в оперативной памяти компьютера
        'называется "переменная".
        'Переменную можно сравнить с файлом на компьютере - файл находится
        'на жёстком диске компьютера, а переменная - в оперативной памяти компьютера.
    'Double - означает, что в переменной могут быть только числа.
        'Числа могут быть целые и дробные.
    Dim a As Double, b As Double, n As Double
    Dim h As Double
    Dim x As Double, y As Double
   
    'Помещение в переменную "a" числа.
    a = -10
    b = 2
    n = 20
   
    'Расчёт шага функции.
    h = (b - a) / n
   
    'Помещение в переменную "x" числа из переменной "a".
    x = a
   
    'Do ... Loop - это цикл. Цикл используется,
        'чтобы делать одну и ту же команду несколько раз.
    Do
       
        'Расчёт "y".
        'If ... Then ... ElseIf ... End If - используется для выбора действия.
        If x <= 0 Then
            'Расчёт "y".
            y = Math.Sqr(1 + x ^ 2)
        ElseIf x > 0 Then
            y = 2 * x + Math.Cos(x) ^ 2 / (3 + x)
        End If
       
        'Вывод "x" и "y" на монитор, чтобы посмотреть.
        'Символ "&" используется, чтобы соединять фрагменты текста в одну строку.
        'vbCr - используется, чтобы переносить текст на следующую строку.
        MsgBox "x = " & x & vbCr & "y = " & y
       
        'Изменение переменной "x" на шаг.
        x = x + h
   
    '"While x <= b" - означает: делать то тех пор, пока "x" меньше или равно "b".
    Loop While x <= b
   
End Sub

[свернуть]

[kkk]

спасибо