Function integral(x As Range, y As Range, ilk, son)
On Error Resume Next
Dim Hareket_Adımı
Dim Yazı
Dim i
Hareket_Adımı = (son - ilk) / 10000
If Hareket_Adımı <= 0.00001 Then Hareket_Adımı = 0.00001
Yazı = (Application.WorksheetFunction.Substitute(y.Formula, "$", ""))
adres = (Application.WorksheetFunction.Substitute(x.Address, "$", ""))
Yazı = (Application.WorksheetFunction.Substitute(Yazı, adres, "i"))
For i = ilk To son Step Hareket_Adımı
b = (Application.WorksheetFunction.Substitute(Yazı, "i", i))
a = Application.Evaluate((Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Yazı, "i", i), ",", ".")))
integral = integral + Hareket_Adımı * a
Next
integral = Format(integral, "#0.00")
End Function

Function Türev(x As Range, y As Range)
On Error Resume Next
Dim Hareket_Adımı
Dim Yazı
Dim i
Dim x_adım
Dim y_adım
 
Hareket_Adımı = 1 / 100000
 
Yazı = (Application.WorksheetFunction.Substitute(y.Formula, "$", ""))
adres = (Application.WorksheetFunction.Substitute(x.Address, "$", ""))
Yazı = (Application.WorksheetFunction.Substitute(Yazı, adres, "i"))
For i = x.Value + Hareket_Adımı To x.Value + Hareket_Adımı ' Step Hareket_Adımı
b = (Application.WorksheetFunction.Substitute(Yazı, "i", i))
a = Application.Evaluate((Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Yazı, "i", i), ",", ".")))
y_adım = a
 
x_adım = x.Value + Hareket_Adımı
 
Next
Türev = (y_adım - y.Value) / Hareket_Adımı
 
 
End Function