ユーザーフォーム

質問

エクセルでユーザーフォーム上にコマンドボタンを配置し、特定のコマンドボタンを押した時に、他のユーザーフォームを呼び出せるようにしたいのですが、どうしたらいいのでしょうか。

回答No.2

imogasi · ベストアンサー

下記はあくまで例です。
挿入ーユーザーフォームで２つユーザーフォームを作る。
UserForm1
UserForm2
--
UserForm1にコマンドボタンを３つ作る。
１つめCommandButton1をデザインモードでダブルクリックすると
Private Sub CommandButton1_Click()
Me.Hide
UserForm2.TextBox1 = ""
UserForm2.Show vbmodless
End Sub
が出るので、中の２行を入れる。
ーー
CommandButton3について
Private Sub CommandButton3_Click()
Unload UserForm1
Unload UserForm2
End Sub
で終わらせる処理をする用意をする。
ーー
UserForm2にテキストボックス１つと、コマンドボタン１つ作る。
CommandButton1をデザインモード状態でダブルクリックすると
Private Sub CommandButton1_Click()
ActiveCell = TextBox1.Text
UserForm2.Hide
UserForm1.Show vbmodless
End Sub
の外枠２行が出るから、中の３行を入れる。
ーー
ーー
これでUserForm1のCommandButton1をクリックすると
UserForm12が表示され、テキストボックスに値を入れて、
CommandButton1をクリックすると、アクチブセルに値をセットし
て、UserForm1が表示される。
ーー
その前に標準モジュールに
Sub test01()
Sheets("Sheet1").Activate
UserForm1.Show vbmodless
End Sub
を作る。
ーー
標準モジュールのtest01を実行する。
UserForm1が表示される。
commandButton1をクリック。
UserForm2が表示される。
データをセットするセルをアクチブにする。
何かセルにセットしたいデータを入力。
commandButton1をクリック。
データがセットされUserForm1が表示される.
--
UserForm1commandButton3をクリックするとフォームは消える（メモリから消える）。
説明するとなると長くなりますね。
この質問は入門書には必ず書いてあるはずの事項です。

回答No.1

n-jun

UserFoam１のコマンドボタンでUserFoam２を呼び出す
UserFoam１のコマンドボタン１に以下のコードを記述。

Private Sub CommandButton1_Click()
　　　　UserForm2.Show
　　　　Unload UserForm2
End Sub

では、どうでしょうか？