[求助]如何等待计算结束再运行以后的程序

龙biscuit

excel自带的规划求解就有这一过程，代码实现优化算法给单元格参数，目标单元格根据参数单元格计算结果，之后优化代码读入目标单元格中目标函数值，然后优化代码再根据目标函数值生成新的参数输出到参数单元格，依次循环。查看solver的vba代码（密码为：Wildebeest!!，Solver模块中SolverCalls类--Solve函数--Solve = Solv(Me, Application, ThisWorkbook, x) ），而Solv的定义：

Private Declare PtrSafe Function Solv Lib "Solver32.dll" (ByVal object, ByVal app, ByVal wkb, ByVal x As Long) As Long

然后Solv调用dll执行优化，所以并不能看到dll中如何实现的这种操作。

bin7918436

Do
  sleep(1)
Loop While Application.CalculationState <> xlDone