Гм.. что-то такое знакомое..:) Это случайно не трассировка функции с заданным шагом аргумента? Если да, то оператор For..Step...Next вам в помощь.

{quote}{login=jst}{date=25.10.2008 08:30}{thema=Есди кто знает подскажите}{post}Вот дана функция y = (2 * X ^ 2 + 3 * X - Sqr(X ^ 2 - 1)) / (X ^ 2 - 4)  
Надо про табулировать функцию если заданы начальное значение аргумента данной функции а , шаг изменения аргумента и b  и число шагов n. Надо наити значение функции в n  точках: a  
a+b  
a+2*b{/post}{/quote}  
В данном случае "протабулировать" - вывести соответствующие значения аргумента и функции на экран?

Вот так например:  
Sub Табуляция()  
Dim a#,n&,b#  
a = ...  
n = ...  
b = ...  
For arg = a To a + b*n Step b  
[a1].Offset((arg - a)/b) = arg
[a1].Offset((arg - a)/b, 1) = (2 * arg ^ 2 + 3 * arg - Sqr(arg ^ 2 - 1)) / (arg ^ 2 - 4)
Next  
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

2jst  
Прочитал ваш пост 5(!) раз. Не врубился и с 5-го)

Raptor, а с вопросами от девушек всегда так ))  
 
P.S. да простит меня прекрасный пол )

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

{quote}{login=Юрий М}{date=26.10.2008 12:13}{thema=Re: }{post}{quote}{login=}{date=25.10.2008 11:50}{thema=}{post})))) вот Раптору подвезло)) он палец, а ему уже руку, ногу и хвост уже заглатывают )  
 
Raptor, держись! Мы с тобой! ){/post}{/quote}  
Смотрю на аватар - рук не было изначально, хвост благоразумно спрятан, ноги пока целы :-){/post}{/quote}  
 
))) вот! руки и хвост уже сгрызла )) остались лишь ноги ), но Раптор уверенно держит натиск )

Вот эти 3 строчки кода нужно закомментировать или удалить:  
If a = "" Then Exit Sub  
If b = "" Then Exit Sub  
If n = "" Then Exit Sub

If X ^ 2 < 1 Then  
Cells(6, 3) = "kompleksarv"  
Else  
y = (2 * X ^ 2 + 3 * X - Sqr(X ^ 2 - 1)) / (X ^ 2 - 4)  
Вроде так если  меньше единицы то пишется что это коплексное число в противном случает вычисляется у по той же функции

Заменил "n/a" (подразумевалось "not available") на "kompleksarv".  
Остальное то устраивает? Если нет, то вылолжите файл, в котором вручную запишите, что нужно получить в результате.

Конечно, соответствует и в варианте Raptor-а, и в моем.  
Это легко проверить калькулятором или формулами в Excel-e.    
Если что-то не так, то лучше выложите Excel файл с просчитанными вручную данными, которые бы Вы хотели получить в итоге.