VBAで別モジュールへの変数の受け渡し方法

質問

• VBAでセル内に記述した変数を別のモジュールに受け渡す方法を教えてください。
• Userform内の変数を他のモジュールで使用する方法について教えてください。
• VBAで変数を他のモジュールに渡す方法を教えてください。

回答No.2

sample_

はい、できますよ。
いくつかポイントがあるのでそちらを説明したのちにコードを掲載しておきます。

■他のモジュールの変数にアクセスしたい時
アクセスしたい変数はDimではなくPublicで宣言する必要があります。
スコープ範囲が外からでもアクセスできるようにする必要があるからです。

Publicで宣言した後、どのようにアクセスすればよいかですが

たとえば、Sheet1という名前のシート内で宣言したPublic変数にアクセスしたい時は
debug.print Thisworkbook.Sheets("Sheet1").変数名
でアクセスできます。

標準モジュール(Module1)内であれば
debug.print Module1.変数名

■ユーザーフォームの変数にアクセスする時
ユーザーフォーム(UserForm1)内であれば
debug.print UserForm1.変数名
でアクセスできます。

ただし、UnLoadや×印で閉じてしまうとメモリ上から消えてしまい変数にアクセスすることはできません。
そのため、×印を押した際に閉じるのではなく、非表示にしてあげる必要があります。

以上を踏まえると以下のようになります。
標準モジュール：Module1
Sub SampleCode()
MsgBox "変数abcの値は：" & UserForm1.hogehoge

UserForm1.Show

MsgBox "変数abcの値は：" & UserForm1.hogehoge

End '全ての処理が終わったらEndでPublic宣言の変数をリセットする
End Sub

ユーザーフォーム：UserForm1
Public hogehoge As String

Private Sub CommandButton1_Click()
hogehoge = "abc" 'UserForm1の変数に保存
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Me.Hide 'メモリから消えてしまわないよう非表示にする

Cancel = True 'デフォルトの挙動(メモリから消える)をキャンセルする
End Sub

お礼

お返事していなくて申し訳ありません。
お陰様で解決しました。
ご丁寧な回答に心から感謝します。