excel - 如何通过 Selection_Change 事件调用过程

Question

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then Call calc09()  

Sub calc09() 在
我试过的表单代码模块（frm01）内：

If Target.Column = 6 Then Call frm01.calc09()   

我还将 Sub calc09() - 重命名为 Public Sub calc09() - 没有结果。
我收到一条错误消息：
编译错误：未定义子或函数

Answer 1

工具 - 参考 - 求解器复选框。

如果 Solver 未出现在 Available References 下，请单击 Browse 并在 C:\Program Files\Microsoft Office\Office14\Library\SOLVER 中打开 Solver.xlam