表单代码中的VBA msgbox，从Module sub获取变量

Question

在USER FORM代码中，用户单击“确定”后，会出现一个msgbox 即。 MsgBox ("The total price is " & Price & "")

问题是，我在MODULE子中计算了Price变量。

如何确保价格实际显示？如何将模块子变量连接到表单？

更一般地说，在用户点击“确定”之后，如何显示消息框。我的代码中是否需要两个消息框？

代码示例：

在模块中：

Dim Price As Currency

Sub Test1()
    Price = wsSheet.Range("A1").End(xlDown).Value
End Sub

表格：

Sub cmdOK_click
   MsgBox ("The total price is " & Price & "")
End Sub

Answer 1

全部表示您没有调用执行Sub计算的Price。我建议你这样做：

在你的模块中：

Public Price As Currency

Sub Test1()

    Price = wsSheet.Range("A1").End(xlDown).Value

End Sub

在您的Userform代码中：

Private Sub cmdOK_click()

    Call Test1
    MsgBox ("The total price is " & Price & "")

End Sub

如果您的代码计划允许，您也可以在模块中显示MsgBox。所以你有类似的东西：

在你的模块中：

Public Price As Currency

Sub Test1()

    Price = wsSheet.Range("A1").End(xlDown).Value
    MsgBox ("The total price is " & Price & "")

End Sub

在您的Userform代码中：

Private Sub cmdOK_click()

    Call Test1

End Sub

请告诉我这是否对您有所帮助。