编译错误：在vba中未定义Sub或Function

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

将calculateCost过程移动到标准模块（插入 - VBE中的模块）。类模块中的过程（包括表类模块）不能像这样调用。您可以通过其他方式从工作表的类模块中调用它，但我在您的过程中看不到任何需要它在工作表模块中的内容，因此它可能属于标准模块。