2023/01/09

ユーザーフォームへの値の渡し方・戻し方

• １．概要
• ２．ワークシートの準備
• ３．フォームのレイアウト
• ４．共通変数渡し式
• 　４－１．標準モジュール
• 　　よりみち（フォームをモーダルで起動する意味）
• 　４－２．フォームモジュール
• ５．フォーム変数渡し式
• 　５－１．標準モジュール
• 　５－２．フォームモジュール
• ６．セル渡し式
• 　６－１．標準モジュール
• 　６－２．フォームモジュール
• ７．フォーム記述式
• 　７－１．標準モジュール
• 　７－２．フォームモジュール
• ８．フォーム引数渡し式
• 　８－１．標準モジュール
• 　８－２．フォームモジュール
• 　　よりみち（Activateイベントを使用する場合）
• ９．まとめ
• アプリ実例
• サンプルファイル

ユーザーフォームは、ユーザーに入力や選択を促すツールとして良く使われます。常に同じフォームが起動することもありますが、セルの値などにより「その状況に合わせたフォーム」が起動することが多いと思います。
状況に合わせたフォームにする為には、フォームを起動する際に状況に合わせた「値」を渡してあげる必要があります。
今回は「ユーザーフォームへの値の渡し方・戻し方」を紹介します。

１．概要

今回は、「ユーザーフォームへの値の渡し方・戻し方」を図１のように５種類紹介します。なお、図１で〇〇式と名前を付けていますが一般的なものでは無く、私が勝手に名付けたものですので悪しからず。


図１別窓

１番目は「共通変数渡し式」です。フォームを起動する側である標準モジュール（シートモジュールやクラスモジュールの場合もあります）とフォームモジュールの間で「共通して使用できるPublic変数」を使う方法です。
２番目の「モジュール変数渡し式」は１番目と似ていますが、値をやり取りするPublic変数がフォーム上に存在する方法です。
３番目は「セル渡し式」です。「ワークシート上のセル」を使って、標準モジュールとフォームモジュールを繋ぐ方法です。
４番目は「フォーム記述式」で、標準モジュールから「フォーム上に値を直接書き込む」方法です。フォームから受け取る場合も、標準モジュールからフォーム上に書かれた値を読み取ります。
５番目は「引数渡し式」で、フォームモジュール上に置いた「Functionプロシージャ」を呼び出します。呼び出す際に値を引数として渡し、フォーム内での処理後に標準モジュール側は戻り値として値を受け取ります。

なお、渡し時と受け取り時で異なる手法を使うことも可能ですし、複数の手法で受け渡しをしてもOKです。但し今回は、分かりやすくする為に、同一手法での受け渡しを行っています。

上記５つの動きを確認するため、今回は図２のような簡単なシステムを作りました（「サンプルファイル」）。

図２別窓

シート上のボタンをクリックすることでユーザーフォームが起動し、A1セルの値がフォーム上の左端に表示されます。
フォーム内の処理は、テキストボックスに値を入力することで掛け算を行い、その結果を右端に表示します。
フォームを閉じると、その掛け算の結果がメッセージボックスに表示される　というものです。

このシステムの中では、標準モジュール側とユーザーフォーム側で２回の受け渡しがあります。
１回目は「標準モジュール側からフォームへ値を渡す」部分で、渡した値（A1セルの値）はフォームの左端に表示されます。
２回目は「フォームから標準モジュールへ値を戻す」部分で、戻された結果（フォームで計算した結果）は、メッセージボックスに表示させます

なお今回は「閉じるボタン」を設けていないので、ダイアログ右上×印で閉じて下さい。

２．ワークシートの準備（Sheet1）

「サンプルファイル」では、図３のようにシート上にボタンを並べ、クリック時に実行されるマクロとして、標準モジュールのSUBプロシージャ「Button1」「Button2」･･･を上から順に登録しています。
なお、各ボタンの表面Captionは、配置時に手動で書き換えています。

図３別窓

また黄色の背景色を付けた「A1セル」の値を、ユーザーフォームに渡すことにしました。

３．フォームのレイアウト

フォームのレイアウトは図４のようにしました。なお図４はUserForm1のものですが、他の方法で使用するフォームもレイアウトは同じですので省略しています。

図４別窓

フォーム上には、「Labelを２つ」＋「TextBoxを１つ」＋「Labelを２つ」並べて配置します。
図４で分かる通り「初期値　×　ユーザー入力値　＝　計算結果」という計算式になるように、左端の１つ目のLabelは標準モジュールからフォームへ渡された値を初期値として書き込みます。２つ目のLabelには「×」をフォーム作成時に書き込み、３つ目はユーザーが入力できるようにTextBoxとします。
TextBoxの後ろのLabelには「＝」を書き込み、一番右側のLabelには「掛け算の計算結果」をマクロ側から書き込みます。この計算結果をフォームから標準モジュールへの戻り値としています。

４．共通変数渡し式

４－１．標準モジュール

１番目のボタンをクリックした時に呼び出されるのが、図５のButton1プロシージャです。なお標準モジュールとフォームを繋ぐ役目をする共通変数「Val1」を、図５の０１行目でPublic宣言しておきます。

0. '==========　⇩(1)　共通変数宣言　============
1. Public Val1 As Long
3. '==========　⇩(2)　ボタン１による呼び出し　============
4. Sub Button1()
5. 　Val1 = CLng(Val(Range("A1").Value))
6. 　UserForm1.Show vbModal
7. 　MsgBox Val1
8. End Sub

図５別窓

０５行目「Val1 = CLng(Val(Range("A1").Value))」では共通変数Val1に、A1セルの値（図３では「100」）を代入します。A1セルに数値では無く文字列が入力されている場合は、Val関数で「ゼロ」に変換し、A1セルに小数点のある数値が入力されている場合はCLng関数で整数値に変換しています。
これは０１行目で「Val1変数をLong型で宣言」しているための処理であり、他のデータ型の場合には、それに合わせた処理が必要です。
０６行目「UserForm1.Show vbModal」では、UserForm1をモーダル（フォームを開いている間は、フォーム以外の操作が不可）で起動します。この行の実行後は図６のコードが実行され、フォーム内処理が終了（UserForm1を閉じる）した後、０７行目「MsgBox Val1」が実行されます。フォーム内で書き換えられた「共通変数Val1」の内容をメッセージとして表示します。

もしフォームをモードレスで起動してしまうと、０６行目でフォームを開く指示をした後は、制御は「０７行目のコード」に移動してしまうことになります。すると、フォーム内の処理が終わらずVal1の値が書き換えられていないので、メッセージとしては「A1セルの値のまま」が表示されることになってしまいます。 また「フォームをモードレスで起動」→「MsgBoxなどでユーザーの動作を待つ」という順番でコードを実行すると、フォームが起動した状態の上にMsgBoxが開くので、当然ながらそのMsgBoxを閉じないとフォームの操作は出来ません。 と同時に、フォーム起動時に発生するはずの「Initialize → Activate」イベントが、「Initialize」のみになってしまいます。そのため今回のように「Activateイベント」に記載したコードは実行されない為、Label類は文字列のままとなってしまい、MsgBoxを閉じた後でフォームを操作するとエラーが発生します。 この現象の原因をうまく説明することはできないのですが、「フォームをモードレスで起動」するコードと「MsgBox」のコードの間に「DoEvents」を１つ入れることで「Activateイベントが発生」してくれます。 もしモードレスでフォームを起動し、その直後にMsgBoxなどを表示させたい場合は、フォームの初期設定はInitializeイベントプロシージャに記載するか、DoEventsを間に入れるかすると良さそうです。

４－２．フォームモジュール

図５の０６行目によって起動されたフォーム（UserForm1）のモジュールに記述されているコードが図６です。
フォームが起動されると「Initializeイベント」→「Activateイベント」の順に実行されますが、今回はInitializeイベントプロシージャが有りませんので、２１行目のActivateイベントプロシージャが最初に実行されることになります。

20. '==========　⇩(3)　フォーム表示時の初期設定　============
21. Private Sub UserForm_Activate()
22. 　Me.Label1.Caption = Val1
23. 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))
24. End Sub
25. '==========　⇩(4)　TextBoxの値を変更した時　============
26. Private Sub TextBox1_Change()
27. 　Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)
28. 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))
29. End Sub
30. '==========　⇩(5)　フォームを終了する時　============
31. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
32. 　Val1 = CLng(Me.Label4.Caption)
33. End Sub

図６別窓

２１～２４行目のActivateイベントプロシージャでは、まず２２行目「Me.Label1.Caption = Val1」で、標準モジュールから渡された値（共通変数Val1）をLabel1に書き込みます。
そして２３行目「Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))」で、フォーム上に書かれた計算式「初期値　×　ユーザー入力値」を計算し、計算結果をLabel4に書き込みます。
なおActivateイベントが発生した時点では「TextBox1は空欄」ですので、「CLng(Val(Me.TextBox1.Value))」での処理結果はゼロとなり、よって計算結果（Label4）もゼロとなります。

ユーザーがTextBox1に値を入力（全角で入力した際には、Enterキーを押した時）すると、２６行目のChangeイベントが発生します。Changeイベントプロシージャ内では、まず２７行目「Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)」で、入力した値を「半角文字列」に変換します。これは、２８行目の式中のVal関数が「全角数字＝文字列＝ゼロ」と判断してしまうためです。
この処理の代わりに、Activateイベント内等で「Me.TextBox1.IMEMode = fmIMEModeDisable」と全角での入力ができない様にしてもOKです。

２８行目「Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))」は、２３行目のコードと全く一緒でフォーム上の計算式を計算し、計算結果をLabel4に書き込みます。

フォームを終了（今回の場合は、ダイアログ右上×印をクリック）時には、３１行目のQueryCloseイベントプロシージャが呼び出されます。
終了時には、３２行目「Val1 = CLng(Me.Label4.Caption)」で、計算結果であるLabel4の値を共通変数Val1に代入しています。このVal1の値が標準モジュールに戻される形になり、図５の０７行目でメッセージとして表示されることになります。

なお３２行目の代わりに、２３行目・２８行目の後ろで「Val1 = CLng(Me.Label4.Caption)」を実行し、初回及びTextBox1の値を変更するたびに共通変数Val1を置き換える方法でもOKです。

５．フォーム変数渡し式

５－１．標準モジュール

２番目のボタンをクリックした時に呼び出されるのが、図７のButton2プロシージャです。

40. '==========　⇩(6)　ボタン２による呼び出し　============
41. Sub Button2()
42. 　UserForm2.Val2 = CLng(Val(Range("A1").Value))
43. 　UserForm2.Show vbModal
44. 　MsgBox UserForm2.Val2
45. End Sub

図７別窓

４２行目「UserForm2.Val2 = CLng(Val(Range("A1").Value))」では、A1セルの値（図３では「100」）をUserForm2上のPublic変数Val2に代入します。フォーム上の変数なので、変数名の前に所在として「UserForm2.」を指定する必要があります。

４３行目「UserForm2.Show vbModal」では、UserForm2をモーダルで起動します。この行の実行後は、図８のコードが実行されます。
UserForm2が閉じられた後に４４行目「MsgBox UserForm2.Val2」が実行され、フォーム内で書き換えられた「フォーム変数Val2」の内容をメッセージとして表示します。

５－２．フォームモジュール

図７の４３行目によって起動されたフォーム（UserForm2）のモジュールに記述されているコードが図８です。

50. '==========　⇩(7)　フォーム変数宣言　============
51. Public Val2 As Long
53. '==========　⇩(8)　フォーム表示時の初期設定　============
54. Private Sub UserForm_Activate()
55. 　Me.Label1.Caption = Val2
56. 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))
57. End Sub
59. '==========　⇩(9)　TextBoxの値を変更した時　============
60. Private Sub TextBox1_Change()
61. 　Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)
62. 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))
63. End Sub
65. '==========　⇩(10)　フォームを終了する時　============
66. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
67. 　Cancel = True
68. 　Val2 = CLng(Me.Label4.Caption)
69. 　Me.Hide
70. End Sub

図８別窓

図７の４２行目でフォームレベル変数Val2に値が代入されると、まずフォームが生成され、Initializeイベントが発生した後で、変数Val2に値が代入されます。今回はInitializeイベントプロシージャが有りませんので、４２行目でフォームを起動すると、変数Val2に値が代入された後に最初にActivateイベント（５４行目）が呼び出されます。

Activateイベントプロシージャ内では５５行目「Me.Label1.Caption = Val2」で、既に値が代入されている変数Val2の値を計算式の先頭（Label1）に初期値として書き込みます。
５６行目「Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))」で、フォーム上に書かれた計算式「初期値　×　ユーザー入力値」を計算し、計算結果をLabel4に書き込みます。

ユーザーがTextBox1に値を入力すると、６０行目のChangeイベントが発生し、まず６１行目「Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)」で入力した値を「半角文字列」に変換します。
６２行目「Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))」では、フォーム上の計算式を計算し、計算結果をLabel4に書き込みます。

フォームを終了時には、６６行目のQueryCloseイベントプロシージャが実行されます。
今回の仕様は、計算結果を保存した変数Val2は「フォームレベル変数」であるため、「フォームをUnloadすると値が消えてしまう」ことになります。なので、フォームはUnloadでは無く「Hideメソッド」で閉じる（≒隠す）必要があります。
そこで、QueryCloseイベントが通常通り実行されてしまうとフォームがUnloadしてしまいますので、６７行目「Cancel = True」で、引数のCancelを有効（＝終了できなくする）にします。

６８行目「Val2 = CLng(Me.Label4.Caption)」では、計算結果であるLabel4の値をフォームレベル変数Val2に代入します。
最後に６９行目「Me.Hide」で、フォームを閉じ（≒隠し）ます。「フォームを隠している＝フォームは残っている」ために、フォームレベルの変数Val2の値を標準モジュール側から読み取ることができ、図７の４４行目でメッセージとして表示できることになります。

６．セル渡し式

６－１．標準モジュール

３番目のボタンをクリックした時に呼び出されるのが、図９のButton3プロシージャです。
なおフォーム→ワークシートへ値を戻すセル位置は、今回は「A6セル（３番目ボタンの横の位置）」としました。実際のアプリでは意味のある位置にすることが多いと思いますが、逆に（ボタンの裏に隠したり、Fontの文字色を背景色と同じにしたりして）「ユーザーには見えない」ようにする場合もあります。

80. '==========　⇩(11)　ボタン３による呼び出し　============
81. Sub Button3()
82. 　UserForm3.Show vbModal
83. 　MsgBox Range("A6").Value
84. End Sub

図９別窓

８２行目「UserForm3.Show vbModal」では、UserForm3をモーダルで起動します。この行の実行後は、図１０のコードが実行されます。
UserForm3が閉じられた後で８３行目「MsgBox Range("A6").Value」が実行され、フォーム側から書き換えたA6セルの値をメッセージとして表示します。

６－２．フォームモジュール

図９の８２行目によって起動されたフォーム（UserForm3）のモジュールに記述されているコードが図１０です。

90. '==========　⇩(12)　フォーム表示時の初期設定　============
91. Private Sub UserForm_Activate()
92. 　Me.Label1.Caption = CLng(Val(Sheets("Sheet1").Range("A1")))
93. 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))
94. End Sub
96. '==========　⇩(13)　TextBoxの値を変更した時　============
97. Private Sub TextBox1_Change()
98. 　Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)
99. 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))
100. End Sub
102. '==========　⇩(14)　フォームを終了する時　============
103. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
104. 　Sheets("Sheet1").Range("A6").Value = CLng(Me.Label4.Caption)
105. End Sub

図１０別窓

フォームが起動されると９１行目のActivateイベントプロシージャが呼び出されます。
９２行目「Me.Label1.Caption = CLng(Val(Sheets("Sheet1").Range("A1")))」では、標準モジュールから渡される値は、ワークシート上のセル（今回はA1セル）を通して受け取り、フォーム上の計算式の先頭（Label1）に書き込みます。
なお今回は、値がA1セルに最初から入力されているので「標準モジュールから渡された」印象が薄くなってしまいましたが、図９の８２行目のフォームを起動する直前に「A1セルに、フォームに渡す値を書き込んだ」と想像して頂ければ良いかと思います。
９３行目「Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))」では、フォーム上の計算式を計算し、計算結果をLabel4に書き込みます。

ユーザーがTextBox1に値を入力すると、９７行目のChangeイベントが発生し、まず９８行目「Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)」で、ユーザーが入力した値を「半角文字列」に変換します。
９９行目「Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))」では、フォーム上の計算式を計算し、計算結果をLabel4に書き込みます。

フォームを終了時には、１０３行目のQueryCloseイベントプロシージャが実行されます。
フォーム終了後は、フォームから（セルを通して）標準モジュールに値を渡す必要がありますので、フォーム側としての仕事は、セルに戻り値を書き込む事になります。
１０４行目「Sheets("Sheet1").Range("A6").Value = CLng(Me.Label4.Caption)」では、決められたセル位置（今回はA6セル）に「フォーム上の数式の計算結果（Label4）の値」を書き込みます。

この書き込んだA6セルの値を、図９の８３行目でメッセージとして表示しています。ですのでそのセル位置は、送る側（１０４行目）と受け取る側（図９の８３行目）で合わせておく必要があります。

７．フォーム記述式

７－１．標準モジュール

４番目のボタンをクリックした時に呼び出されるのが、図１１のButton4プロシージャです。

110. '==========　⇩(15)　ボタン４による呼び出し　============
111. Sub Button4()
112. 　UserForm4.Label1.Caption = CLng(Val(Range("A1").Value))
113. 　UserForm4.Show vbModal
114. 　MsgBox UserForm4.Label4.Caption
115. End Sub

図１１別窓

１１２行目「UserForm4.Label1.Caption = CLng(Val(Range("A1").Value))」では、A1セルの値をフォーム上の計算式の先頭（Label1）に、直接書き込んでいます。
フォームに直接書き込んで「値を渡す処理」が終わったあとで、１１３行目「UserForm4.Show vbModal」でUserForm4をモーダルで起動します。この行の実行後は、図１２のコードが実行されます。

UserForm4が閉じられた後に１１４行目「MsgBox UserForm4.Label4.Caption」で、フォーム上の処理結果（今回はLabel4の計算結果の値）を呼び出してメッセージとして表示します。

７－２．フォームモジュール

図１１の１１３行目によって起動されたフォーム（UserForm4）のモジュールに記述されているコードが図１２です。

120. '==========　⇩(16)　フォーム表示時の初期設定　============
121. Private Sub UserForm_Activate()
122. 　Me.TextBox1.Value = ""
123. 　Me.Label4.Caption = CLng(Me.Label1.Caption) * CLng(Val(Me.TextBox1.Value))
124. End Sub
126. '==========　⇩(17)　TextBoxの値を変更した時　============
127. Private Sub TextBox1_Change()
128. 　Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)
129. 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))
130. End Sub
132. '==========　⇩(18)　フォームを終了する時　============
133. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
134. 　Cancel = True
135. 　Me.Hide
136. End Sub

図１２別窓

フォームが起動されると１２１行目のActivateイベントプロシージャが呼び出されます。
但し、１１３行目のフォーム起動の前に１１２行目で「フォームのLabel1に値が書き込まれ」ますので、動く順番としては「Initializeイベント」→「Label1への値書き込み」→「Activateイベント」の順になります。ですので、１２１行目のActivateイベントを実行する時点では、Label1には値が入っています。

先に１２３行目の説明をします。
１２３行目「Me.Label4.Caption = CLng(Me.Label1.Caption) * CLng(Val(Me.TextBox1.Value))」では、標準モジュール側から書き込まれた値を元に「フォーム上の数式」の計算をし、その結果をLabel4に書き込んでいます。

戻って１２２行目の説明です。
今回の方式は「フォームを閉じた後で、フォーム上の値を読み取る方法」のため、フォームはHideで閉じて（≒隠して）います。Unloadしてしまうと、戻すはずの値まで消えてしまうためです。
このHideでフォームを閉じる事で、計算結果（Label4）も残るのと併せて「TextBox1の値も残る」ことになります。そのため「再度フォーム（UserForm4）を起動」すると、１つ前のTextBox1の値が見えてしまうのです。
（Label1は標準モジュール側から書き換えられますし、またLabel4は１２３行目で再計算されますが、TextBox1を初期化するコードが無いため）
そこで１２２行目「Me.TextBox1.Value = ""」で、TextBox1を初期化（空欄）しています。

ユーザーがTextBox1に値を入力すると、１２７行目のChangeイベントが発生し、まず１２８行目「Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)」で入力した値を「半角文字列」に変換します。
１２９行目「Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))」では、フォーム上の計算式を計算し、計算結果をLabel4に書き込みます。

フォームを終了時には、１３３行目のQueryCloseイベントプロシージャが実行されます。
フォーム終了後は、標準モジュール側から処理結果（今回はLabel4の値）を取得する必要がありますので、フォームはHideで閉じておく（≒隠す）必要があります。
ですので１３４行目「Cancel = True」でフォーム終了処理をキャンセルし、１３５行目「Me.Hide」でフォームを隠します。

Hideで閉じた後、図１１の１１４行目でフォーム上の処理結果（Label4）を読み取り、メッセージとして表示します。

８．フォーム引数渡し式

８－１．標準モジュール

５番目のボタンをクリックした時に呼び出されるのが、図１３のButton5プロシージャです。

140. '==========　⇩(19)　ボタン５による呼び出し　============
141. Sub Button5()
142. 　Dim Val5 As Long 　 '←フォームからの戻り値
144. 　Val5 = UserForm5.UFstart(CLng(Val(Range("A1").Value)))
145. 　MsgBox Val5
146. End Sub

図１３別窓

今回の仕様は、標準モジュール側から「フォーム内にある関数プロシージャを呼び出す」形です。その呼び出す関数に「引数」という形で値を渡し、関数内（＝フォーム内）で処理した結果を「戻り値」という形で受け取るものです。

１４４行目「Val5 = UserForm5.UFstart(CLng(Val(Range("A1").Value)))」の右辺では、フォーム（UserForm5）内のUFstart関数プロシージャを呼び出しています。引数として「CLng(Val(Range("A1").Value))」という「A1セルの数値」を渡します。
UFstart関数の戻り値（＝フォーム内で処理した結果）は、左辺の変数Val5で受け取ります。

１４５行目「MsgBox Val5」では、受け取った戻り値をメッセージとして表示しています。

なお、図１４の１５１行目でのデータ型指定を見て分かるように、UFstart関数の引数及び戻り値はLong型としていますので、引数はCLng関数を使い、また戻り値であるVal5は１４２行目「Dim Val5 As Long」でLong型指定にしています。

８－２．フォームモジュール

図１３の１４４行目の右辺から呼び出されるのが、図１４のフォーム（UserForm4）モジュールです。
１５１行目のUFstart関数プロシージャは、引数（Val5）として値（今回は、掛け算の元データ）を受け取ります。

150. '==========　⇩(20)　フォーム表示時の初期設定　============
151. Public Function UFstart(Val5 As Long) As Long
152. 　Me.Label1.Caption = Val5
153. 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))
154. 　Me.Show vbModal
155. 　UFstart = CLng(Me.Label4.Caption)
156. End Function
158. '==========　⇩(21)　フォーム表示時の初期設定　============
159. Private Sub TextBox1_Change()
160. 　Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)
161. 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))
162. End Sub

図１４別窓

標準モジュール側からUFstart関数プロシージャを呼び出すと、まずフォームが生成され、「Initializeイベント」が発生した後で「UFstart関数プロシージャ」が呼び出されます。関数プロシージャを呼び出しただけではフォームは起動しませんので、関数プロシージャ内で「Showメソッド」を使ってフォームを起動させる必要があります。

１５２行目「Me.Label1.Caption = Val5」では、引数で受け取った値（Val5）をフォーム上の計算式の先頭（Label1）に書き込みます。
１５３行目「Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))」では、フォーム上の計算式を計算し、計算結果をLabel4に書き込みます。

１５４行目「Me.Show vbModal」では、自分（UserForm5）をモーダルで起動します。フォームを起動させると、次には「Activateイベント」が発生する、という順序になります。しかし今回は１５２～１５３行目で既に計算式のセットは完了していますので、Activateイベントプロシージャは不要です。

異なる方法として図１５のように、Activate内で１５２～１５３行目の処理を行う方法でもOKです。しかしUFstart関数が受け取った引数（Val5）をActivateイベントプロシージャへ引き渡してやる必要が出てくるので、「フォームレベル変数の設置」などの手間が増えます。 '==========　⇩(22)　フォームレベル変数の宣言　============ Dim Val6 As Long 　 '←フォームレベル変数 '==========　⇩(23)　フォーム内関数　============ Public Function UFstart(Val5 As Long) As Long '　Me.Label1.Caption = Val5 '　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value)) 　Val6 = Val5 　 '←関数で受け取った引数をフォームレベル変数にする 　Me.Show vbModal 　UFstart = CLng(Me.Label4.Caption) End Function '==========　⇩(24)　フォーム表示時の初期設定　============ Private Sub UserForm_Activate() 　Me.Label1.Caption = Val6 　 '←フォームレベル変数値をLabel1に書き込む 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value)) End Sub '==========　⇩(25)　TextBoxの値を変更した時（全く同じ）　============ Private Sub TextBox1_Change() 　Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow) 　Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value)) End Sub 図１５別窓

フォーム上での処理が完了し、ユーザーがダイアログ右上×印をクリックするとフォームが閉じますので、コードは１５４行目→１５５行目「UFstart = CLng(Me.Label4.Caption)」に移ります。１５５行目では、計算結果であるLabel4の値を「UFstart関数プロシージャの戻り値」に設定し、終了します。

フォーム終了後は図１３の１４５行目で、戻り値を使ってメッセージ表示をします。

話が前後する形になりますが、ユーザーがTextBox1に値を入力すると、１５９行目のChangeイベントが発生し、まず１６０行目「Me.TextBox1.Value = StrConv(Me.TextBox1.Value, vbNarrow)」で入力した値を「半角文字列」に変換します。
１６１行目「Me.Label4.Caption = Me.Label1.Caption * CLng(Val(Me.TextBox1.Value))」では、フォーム上の計算式を計算し、計算結果をLabel4に書き込みます。

フォーム終了時のQueryCloseイベントを使った処理は、この仕様では不要です。１５５行目での「関数の戻り値設定」がその役目を果たしている形になります。

９．まとめ

以上の仕様をまとめると図１６のようになるかと思います。「適する場面」は、まだ私見の域です。

	共通変数渡し	ﾌｫｰﾑ変数渡し	ｾﾙ渡し	ﾌｫｰﾑ記述	ﾌｫｰﾑ引数渡し
受け渡しの仲介	ﾌﾟﾛｼﾞｪｸﾄのPublic変数	ﾌｫｰﾑのPublic変数	セル	－(直接書込み)	関数の引数･戻り値
ﾌｫｰﾑの閉じ方	Hide/Unload	Hideのみ	Hide/Unload	Hideのみ	Hide/Unload
メリット	変数をどこからでも使える	変数のｽｺｰﾌﾟが狭い	値の保存が可能	ﾌｫｰﾑ内でｺｰﾄﾞを完結できる	標準ﾓｼﾞｭｰﾙ側のｺｰﾄﾞが単純
デメリット	変数のｽｺｰﾌﾟが広く危険	ﾌｫｰﾑが生成されている間しか使えない	行挿入等でｾﾙ位置が動く可能性有り	隠しｺﾝﾄﾛｰﾙが必要な場合有り	引数をﾌｫｰﾑﾚﾍﾞﾙ変数に置き換えなければならない場合が多い
適する場面	共通変数をﾌﾟﾛｼﾞｪｸﾄ内で活用する場合	渡された値をﾌｫｰﾑ内で活用する場合	ｾﾙ値の置換。設定条件保存として使う場合	ﾌｫｰﾑ構造が複雑な場合	関数ﾌﾟﾛｼｰｼﾞｬを可変型にしたい場合

図１６別窓

どの方法がベストという事は無いと思いますし、「適する場面」が的を得ているかも自信がありません。ただ、他のサイトで良く紹介されているのは「共通変数式」「セル渡し式」「フォーム引数式」なので、決められない場合はこの辺で進めるのが良いかと思います。
なお、少なくとも同じアプリ内では同じ仕様で統一した方が分かり易いとは思います。

アプリ実例

「セルへの日付入力をカレンダー日付クリックで選定する」
「西暦・和暦対照表」
「年月をスクロールバーで選択する予定表ひな型」
「CSVファイルでデータを読み書きする月間予定表」
「グラフのＸ軸をスクロールバーで移動」
「複数行１データの並び替え」
「備品の予約・貸出・記録ができる貸出管理表」
「Excelで作った日報をPDFでそのままメール送信」
「先行予約可能な備品予約・貸出システム」
「図形カレンダーをクリックし日付入力」

サンプルファイル

ユーザーフォームへの値の渡し方・戻し方（its-023.xlsm）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始） 解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。