ユーザーフォーム～標準モジュール間で変数を共有したい

Question

#最初はpublicなら大丈夫と思っていた
最初はpublicでoptionexplicitに配置すればできる（ユーザーフォーム側）と思っていたのですが、
できませんでした。
どうすれは、同じ変数を扱えるようになるのでしょうか？
以下のプログラムは、コピペできなかったので
手書きです。誤字などがありましても、
本来のプログラムはないので、そこは気にしないでください。

UserForm側-------------------------------------------------
Option Explicit
Public hensu As Currency
-----------------------------------------------------------
Private Sub Commmandbutton1_click()
hensu = Textbox1.Text
End Sub
-----------------------------------------------------------
標準モジュール側--------------------------------------------
Sub 初期化()
Userform1.Show
End Sub
-----------------------------------------------------------
Sub 処理()
Dim a As Variant
Call 初期化
a = hensu
End Sub
-----------------------------------------------------------

エラー:変数が定義されていません（hensu）

Answer 1

今回の例ではsysjojo さんの方法が適切ですが、蛇足としてユーザーフォーム側に変数を持たせる場合の方法を書いておきます。

変数へのアクセス方法

以下のようにフォームオブジェクト.変数名とすれば変数にアクセスはできます（実際にはプロパティ扱い）。

a = UserForm1.hensu

注意点

この時注意すべき点として、普通にユーザーフォームを閉じると、その時点でhensuも初期化されてしまいます（質問のコードを書き換えただけだと0しか取得できない）。

対処案1：初期化される前に情報を確保する

ユーザーフォーム内に以下のようなメソッドを定義し、初期化を呼ばずに直接a = UserForm1.ShowDialog()と代入します。

'UserForm側
Function ShowDialog() As Currency
    Call Me.Show(vbModal)
    Let ShowDialog = hensu
    'Let ShowDialog = CCur(Me.TextBox1.Text)
End Function

Sub 処理()
Dim a As Variant
'Call 初期化
a = UserForm1.ShowDialog()
Stop 'break point 確認用
End Sub

対処案2：初期化されないようにする

ユーザーフォームを普通に閉じた場合は、Unload ユーザーフォーム相当の処理となり、初期化されてしまいます。
代わりにHideメソッドで隠すことで初期化を防ぐことができます。

Private Sub CommandButton1_Click()
hensu = TextBox1.Text
Me.Hide
End Sub

この時、自分でUnloadしないとユーザーフォームがメモリ内に残り続けてしまいます。
Unloadを忘れてしまうと2回目以降の表示時に前回の情報が残った状態で表示されます。

Answer 2

Public変数を標準モジュール側に持っていったら上手くいきませんか？
http://home.att.ne.jp/zeta/gen/excel/c04p10.htm

Comments

[jun_endo]

コンパイルが通りました！
ただ、ユーザーフォームに値を入力して
実行しても何の反応もありませんでした。
一応念のために"Sub 処理()"側で、End Subの前に
msgbox(hensu)
を入力してもう一度実行しましたが、
ウィンドウは表示されませんでした。
おそらく、標準モジュール側に処理が回っていないっぽいのですが、
どうすればいいでしょうか？

[sysjojo]

ボタンを押したときに処理()が走ればいいですか？
Commmandbutton1_clickの中で処理()をCallしてやればいいですよ。

処理()はただのSubではなくPublic Subにしないとフォーム側から呼べないですが。