возникает а как вообще строится умл по данному примеру

все устраивает просто вопрос это соотвествует условию задания  как у меня написано пошагово а, A+H, A+N*H. отдельное спасибо и за это

Вот дана функция y = (2 * X ^ 2 + 3 * X - Sqr(X ^ 2 - 1)) / (X ^ 2 - 4)  
Надо про табулировать функцию если заданы начальное значение аргумента данной функции а , шаг изменения аргумента и b и число шагов n. Надо наити значение функции в n точках:    
a  
a+b  
a+2*b

никого не заставляю если можете напишите последний пункт

Sub esimene()  
'  
' esimene Macro  
'  
'  
 
'  
Range("B5").Select  
ActiveCell.FormulaR1C1 = "X"  
Range("C5").Select  
ActiveCell.FormulaR1C1 = "Y"  
Range("B5:C5").Select  
With Selection  
.HorizontalAlignment = xlCenter  
.VerticalAlignment = xlBottom  
.WrapText = False  
.Orientation = 0  
.AddIndent = False  
.IndentLevel = 0  
.ShrinkToFit = False  
.ReadingOrder = xlContext  
.MergeCells = False  
End With  
Range("B6").Select  
End Sub  
Sub algandmed()  
Dim Sammude_arv As Integer  
x_alg = InputBox("; X = " & x_alg, , " Info "  
Cells(1, 2) = x_alg  
End Sub  
 
Sub Sag()  
Dim Sammude_arv As Integer  
x_sag = InputBox(";", 0)  
MsgBox "; = " & x_sag, , " Info "  
Cells(2, 2) = x_sag  
End Sub  
 
Sub kolisestvo()  
Dim Sammude_arv As Integer  
n_kolisestvo = InputBox(";", 0)  
MsgBox "; n = " & n_kolisestvo, , " number "  
Cells(3, 2) = n_kolisestvo  
 
End Sub  
Sub Arvutamine()  
x_alg = Cells(1, 2)  
X = x_alg  
If X ^ 2 < 1 Then  
Cells(6, 3) = "kompleksarv"  
Else  
y = (2 * X ^ 2 + 3 * X - Sqr(X ^ 2 - 1)) / (X ^ 2 - 4)  
Cells(6, 3) = y  
End If  
Cells(6, 2) = X  
If ABC(X) = 2 Then  
Cells(6, 3) = "nulliga jagamine"  
Else  
y = (2 * X ^ 2 + 3 * X - Sqr(X ^ 2 - 1)) / (X ^ 2 - 4)  
Cells(6, 3) = y  
End If  
End Sub

Sub esimene()  
'  
' esimene Macro  
' Macro recorded 24.10.2008 by www.PHILka.RU  
'  
 
'  
   Range("B5").Select  
   ActiveCell.FormulaR1C1 = "X"  
   Range("C5").Select  
   ActiveCell.FormulaR1C1 = "Y"  
   Range("B5:C5").Select  
   With Selection  
       .HorizontalAlignment = xlCenter  
       .VerticalAlignment = xlBottom  
       .WrapText = False  
       .Orientation = 0  
       .AddIndent = False  
       .IndentLevel = 0  
       .ShrinkToFit = False  
       .ReadingOrder = xlContext  
       .MergeCells = False  
   End With  
   Range("B6").Select  
End Sub  
Sub algandmed()  
Dim Sammude_arv As Integer  
x_alg = InputBox("Ââåñòè íà÷àëüíîå çíà÷åíèå Õ", "Ââîä çíà÷åíèÿ", 0)  
MsgBox "Âû ââåëè íà÷àëüíîå çíà÷åíèå X = " & x_alg, , " Info "  
Cells(1, 2) = x_alg  
End Sub  
 
Sub Sag()  
Dim Sammude_arv As Integer  
x_sag = InputBox("Ââåñòè øàã èçìåíåíèÿ àðãóìåíòà Õ", "Ââîä øàãà", 0)  
MsgBox "Âû ââåëè øàã èçìåíåíèÿ àðãóìåíòà Õ = " & x_sag, , " Info "  
Cells(2, 2) = x_sag  
End Sub  
 
Sub kolisestvo()  
Dim Sammude_arv As Integer  
n_kolisestvo = InputBox("Ââåñòè ÷èñëî øàãîâ n", "Ââîä øàãà", 0)  
MsgBox "Âû ââåëè øàã èçìåíåíèÿ àðãóìåíòà n = " & n_kolisestvo, , " number "  
Cells(3, 2) = n_kolisestvo  
 
End Sub  
Sub Arvutamine()  
x_alg = Cells(1, 2)  
X = x_alg  
If X ^ 2 < 1 Then  
Cells(6, 3) = "kompleksarv"  
Else  
y = (2 * X ^ 2 + 3 * X - Sqr(X ^ 2 - 1)) / (X ^ 2 - 4)  
Cells(6, 3) = y  
End If  
Cells(6, 2) = X  
If ABC(X) = 2 Then  
Cells(6, 3) = "nulliga jagamine"  
Else  
y = (2 * X ^ 2 + 3 * X - Sqr(X ^ 2 - 1)) / (X ^ 2 - 4)  
Cells(6, 3) = y  
End If  
End Sub  
Вот мое начало я просто незнаю как дальше задать чтобы автоматически вычисляло значения Х по шагам и соотвествующие Х значения Y

Вот дана функция y = (2 * X ^ 2 + 3 * X - Sqr(X ^ 2 - 1)) / (X ^ 2 - 4)  
Надо про табулировать функцию если заданы начальное значение аргумента данной функции а , шаг изменения аргумента и b  и число шагов n. Надо наити значение функции в n  точках: a  
a+b  
a+2*b

Кто может помочь как табулируются функции в вба?полезный материал подкиньте

Добрый день, имеется такая задача:  
 
есть 2 листа в файле Excel  
на этих листах находятся одинаковые таблички, в одной таблице подставляются данные в виде значении (1,2,3,4,5 или допустим буквами А,Б,В,Г,Д), нужно чтобы во второй таблице в соответсвующую ячейку, в зависимости от условия в первой табличке вставлялся рисунок (если в таблице 1, в ячейке C3 = A, то во второй таблице в ячейку C3 должен ставится рисунок "a.jpeg") Сколько разных условий, столько разных рисунков...  
 
Буду любезен любой помощи, спасибо