表单代码中的VBA msgbox，从模块子中获取变量答案

【问题标题】：VBA msgbox in Form code, get variable from Module sub表单代码中的VBA msgbox，从模块子中获取变量
【发布时间】：2017-04-03 21:43:00
【问题描述】：

在用户表单代码中，用户点击“确定”后，有一个消息框 IE。 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

【问题讨论】：

【解决方案1】：

All 表示您没有在执行Price 计算的地方调用Sub。我建议你这样做：

在你的模块中：

Public Price As Currency

Sub Test1()

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

End Sub

在您的用户表单代码中：

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

在您的用户表单代码中：

Private Sub cmdOK_click()

    Call Test1

End Sub

请让我知道它是否对您有帮助。

【讨论】：