VBA msgboxフォームコードで、モジュールサブ

Question

から変数を取得します。ユーザーフォームコードで、ユーザーが「OK」をクリックすると、msgbox ieがあります。 MsgBox ("The total price is " & Price & "")

私はMODULEサブのPrice変数を計算しました。

価格の値が実際に表示されるようにするにはどうすればよいですか？どのように変数をモジュールサブからフォームに接続するのですか？

さらに一般的には、ユーザーが「OK」をクリックした後に表示するメッセージボックスを作成するにはどうすればよいですか。コード内に2つのメッセージボックスが必要ですか？

コードサンプル：モジュールで

：フォームで

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 

は、それが適切にあなたを助けたりない場合は私に知らせてください。