表單代碼中的VBA msgbox，從模塊中獲得變量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

一切都預示你不打電話，你執行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 

請讓我知道，如果它可以幫助你或不正確。