如何用vba在excel中自定义一个函数

我是来学习的，因为我不太清楚什么是插值 什么是直线 什么是线性 ，
我猜测直线插值，就是按比例插值（如果这里猜测错了，楼主就不用往下看了,但请指教)
150焓值=(266.36-132.43)/(200-100)*(150-100)+132.43=199.395

自定义公式为：
Function ForecastII(x, known_y, known_x) As Integer

Dim xRange
Dim xMin
Dim xMax
Dim yRange
Dim yMin
Dim yMax
Dim i

xRange = known_x
yRange = known_y

For i = 1 To UBound(xRange)
If xMin <> "" Then
xMax = xRange(i, 1)
yMax = yRange(i, 1)
Exit For
Else
End If
If x > xRange(i, 1) Then
xMin = xRange(i, 1)
yMin = yRange(i, 1)
Else
End If
Next

ForecastII = (yMax - yMin) / (xMax - xMin) * (x - xMin) + yMin
End Function

'（forecasetII 和forecaset的用法一样
'=ForecasetII(150,"焓值表","温度区间表"）

sub
end sub
用function
end function替换之后你做的就是函数了，可以像sum一样在表格里应用了