调用单元格的数值

Question

我想使用VBA调用单元格的数值，然后在另一个VBA函数中使用该值。我目前在代码第二行收到“无效的外部过程”编译错误。我试图通过使用各种解决方案来解决错误，我在网上遇到的主要是“ Worksheets（” Sheet1“）。Range（” E2“）和Dim num作为Range / Integer / String的不同变体，但我很茫然关于到底是什么导致了错误。

我的代码如下

Dim num As Range
num = Worksheets("Sheet1").Range("E2")

Function hold(x)
hold = 24 * x
End Function
Function vel(t)
vel = hold(1) * t - num * t ^ 2
End Function

Function Position(x0, t1, t2)

'define range of integral
int_range = t2 - t1

'discretize the integral into n slices dt wide
n = 1000
dt = int_range / n

'initialize variables
ta = t1
tb = ta + dt
Position = x0

'calculate areas using trapezoidal rule

'sum area under curve of each slice
For j = 1 To n
Position = Position + (tb - ta) * (vel(ta) + vel(tb)) / 2
ta = tb
tb = ta + dt
Next

End Function