excel - 编译错误: Sub or Function not defined in vba

Question

我有一个带有三个按钮的用户表单。单击“确定”按钮后，我编写了以下代码:

Private Sub CommandButton2_Click()
   Call calculateCost
End Sub

我在Sheet1中编写的子方法是:

Public Sub calculateCost()
    Dim kilo As String
    kilo = Worksheets("Sheet1").TextBox1.Text
    MsgBox "value" & kilo
End Sub

当我运行代码时，我收到错误。在调用calculateCost 附近未定义子或函数。为什么会发生这种情况？怎么解决这个问题。谢谢

Answer 1

将计算成本过程移至标准模块(VBE 中的插入 - 模块)。类模块(包括工作表类模块)中的过程不能这样调用。您可以通过其他方式从工作表的类模块中调用它，但我在您的过程中没有看到任何需要它位于工作表模块中的内容，因此它可能属于标准模块。