ExcelVBA ユーザーフォーム間の変数について

質問

UserForm1のコントロールボタンbtn1又はbtn2をクリックするとUserForm2を開く。
UserForm1にはテキストボックスtxtN1、txtN2がある。
UserForm2のテキストボックスtxtN3に入力された値をbtnDecideをクリックすると、
UserForm1に自動入力するようにする。
その際btn1をクリックしてUserForm2を開いた場合はtxtN1に、btn2をクリックして開いた場合は
txtN2に自動入力されるようにする。
以下のようにコードを組んでみました。

UserForm1のコード
Public Number as integer

Private Sub btn1_Click()
Number = 1
UserForm2.Show
End Sub

Private Sub btn2_Click()
Number = 2
UserForm2.Show
End Sub

UserForm2のコード
Public Number as integer
Private Sub btnDecide_Click()
If Number = 1 Then
UserForm1.txtN1 = txtN3.Text
else:Number=2
UserForm1.txtN2= txtN3.Text
End If
Unload Me
End Sub

以上になります。
どうもpublic 変数NumberがUserForm2を開いた段階でリセットされているようなのです。
何かいい方法はありますでしょうか。
教えていただける方がいましたらよろしくお願い致します。

回答No.4

keithin · ベストアンサー

別にどこからパブリックを出しても、間違えなければいいだけのことです。
標準モジュールでパブリック宣言しても、結局Module1.Numberのように参照しなきゃならないのは変わりません。
ワークシートに記録する方法にしても、記録したワークシートの名称、セル番地を間違えたら何にもなりません。それならまだパブリック変数で宣言しておいて、ＶＢＥの入力支援（UserForm1.まで書けば、そこでパブリック宣言されている変数がガイドされる）を使った方が、間違いを逃れるチャンスがあるかもです。

ただまぁ、ベターという事で言えば標準モジュールの方がベターと思います。
たとえばUserForm1からパブリック変数を出すと、状況によっては変数を呼ぶだけでUserForm1がロードされてInitializeが意図せず走ったり、逆に本来UserForm1を初期化したかったところで処理が抜けたりみたいな事も起こる可能性はあります。

お礼

ありがとうございます。
なかなかここまでpublic変数について解説頂ける事はなく
非常に勉強になりました。
まずは回答頂いた方法で進めていきたいと思います。
また何かありました際はよろしくお願い致します。

回答No.3

noname#157410

Public変数は極力使わないように組んだ方がいいのでは？
フォームなど多重に動かす場合、Public変数の内容消し忘れて、バグる場合有りますので。

callで他のフォーム変数引き渡ししたほうがいいのでは無いでしょうか？と思う次第です。

参考程度の回答です。
あまり気にしないでください。

あくまで個人的に思っているだけなので。

お礼

ご回答ありがとうございます。

callですか。はじめて聞きました。
少し調べてみましたが、すぐに理解はするのは難しそうですね。
勉強して取り入れてみたいと思います。

回答No.2

mpascal

public 変数は、フォームの外で定義すべきです。

お礼

ご回答ありがとうございます。

public変数は標準モジュールでという記述はネット上でも見かけますが、
当方の購入した本では冒頭で宣言すれば問題ないと書いてありました。
何か今後の処理で問題はあるのでしょうか？

回答No.1

keithin

UserForm1が先行して起動する前提で。

UserForm2で宣言している「Public Number as integer」は消去します。
その上で、UserForm1でPublic宣言している変数NumberをUserForm2から参照するため、UserForm2内では「UserFrom1.Number」とします。

お礼

返事が遅くなりまして申し訳ございません。
教えて頂いた方法で変数を移行する事ができました。
ありがとうございます。
ただ、他の回答の方も言っている、また調べた所、public変数はバグの原因となりやすい、
変数の値がリセットされる等があるようです。
ワークシート上に数字を代入し、それを参照する方がよいのでしょうか。
それですと変数を宣言する必要もないですし。