如何通过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未出现在“可用引用”下，请单击“浏览”并在C：\ Program Files \ Microsoft Office \ Office14 \ Library \ SOLVER

中打开Solver.xlam。