End Function

Программный код процедуры:

Public Sub Табуляция ()

Dim Tn As Single, Tk As Single, dT As Single

Dim T As Single, Y As Single

Dim n As Single

Tn = Range("B3")

Tk = Range("C3")

dT = Range("d3")

n = 6 'Номер строки листа Excel, начиная с которой

'выводятся результаты табулирования

'Очистка диапазона, в котором могут находиться результаты

'предыдущего выполнения процедуры табулирования

Range("B6", Range("C6").End(xlDown)).Clear

For T = Tn To Tk Step dT

Y = Func(T)

Cells(n, 2) = T

Cells(n, 3) = Y

n = n + 1

Next T

End Sub

Таблица Excel, содержащая исходные данные и результат вычисления процедуры, приведена на рис. 3.

Рис. 3. Таблица Excel с исходными данными и результатами вычислений