我正在尝试为5000次试验建立蒙特卡洛模型。我似乎有个奇怪的问题
g = WorksheetFunction.Norm_S_Inv(Rnd())
在( 5000次试验中)循环的运行过程中,起初它是工作的,但随后出现了错误消息:
Run-time error "1004": Method 'Norm_S_Inv' of object 'WorksheetFunction' failed
我已经检查了许多VBA站点,但我似乎没有找到解决方案。我还测试了
Application.WorksheetFunction.Norm_S_Inv(Rnd())
WorksheetFunction.Norm_S_Inv(Rnd())
WorksheetFunction.Norm.S.Inv
Application.WorksheetFunction.Norm.S.Inv(Rnd())
WorksheetFunction.NormSInv
先谢谢你,
发布于 2019-04-01 02:04:30
当您的Rnd()
返回值0
或1
时,就会发生这种情况,对于Rnd()
函数来说,这当然是一个可接受的值,但它不能作为Norm_S_Inv()
的输入。
我可以很容易地在我的计算机上重现(我的Excel是意大利语的,实际上我得到了1004
代码,但我这边的文本显示“找不到WorksheetFunction类的属性Norm_S_Inv”):
g = WorksheetFunction.Norm_S_Inv(0.14)
Debug.Print g
>>> -1.08031934081496
g = WorksheetFunction.Norm_S_Inv(0) 'or g = WorksheetFunction.Norm_S_Inv(1)
>>>
为了避免这种情况,请确保没有将0
或1
作为函数的输入:
myRand = Rnd()
Do Until (myRand <> 0 And myRand <> 1)
myRand = Rnd()
Loop
g = WorksheetFunction.Norm_S_Inv(myRand)
个人注释:这似乎是对此函数所做的相当糟糕的错误处理,错误消息完全不清楚,我理解您在寻找根本原因时的沮丧。
https://stackoverflow.com/questions/55441942
复制相似问题