插入解決引起#VALUE犯錯

功能calIRR（）作爲變

SolverOk SetCell:="$E$47", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$48", Engine _ 
    :=1, EngineDesc:="GRG Nonlinear" 
SolverSolve 
    SendKeys "~"

calIRR =範圍（「$ d $ 48」） .value的

端功能

但它一直引起#VALUE錯誤。當我更改爲程序時，一切正常。

請指定範圍所屬的工作簿和sorksheet。試試下面的代碼：。

callRR = ThisWorkbook.Sheets（「工作表Sheet1」）範圍（「D48」）值

工作表Sheet1在哪裏你SHEETNAME

2014-09-25 06:20:35

感謝您的快速的答案，但它仍然不起作用，當我調試時，在光標移動到第二行（SolverOk ....）之後，它僅僅出來並且沒有結果。如果我繼續按幾次F8鍵，現在它開始移動到下一行。太奇怪了！ – 2014-09-25 06:55:58

Wheres your error point？它是與SolverOk還是callRR = ... – 2014-09-25 07:03:52

回答