我想使用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