複数のユーザーフォームをコマンドボタンにて表示・非表示させるには
VBA勉強中のものです。
複数のユーザーフォームをコマンドボタンを使用して画面への表示切替を考えております。
例)ユーザーフォーム1,ユーザーフォーム2,ユーザーフォーム3のそれぞれにコマンドボタン1,コマンドボタン2,コマンドボタン3を作成し、
コマンドボタン1→ユーザーフォーム1を表示
コマンドボタン2→ユーザーフォーム2を表示
コマンドボタン3→ユーザーフォーム3を表示 とするようなことを考えおります。
そこで、下記のようにコードを作成したのでですが,一度表示させたユーザーフォームを再度表示させようとコマンドボタンをクリックしたら、「フォームはすでに表示させているのでモーダル表示はできません」とエラーがでてしまいます。
どなたか、どのようにしたらいいかご教授ねがいます。
サンプルコード)
---------------------------------------------------
'UserForm1のコード
Private Sub CommandButton2_Click()
Call UserForm2_show
UserForm1.Hide
End Sub
Private Sub CommandButton3_Click()
Call UserForm3_show
UserForm1.Hide
End Sub
----------------------------------------------------
'UserForm2のコード
Private Sub CommandButton1_Click()
Call UserForm1_show
UserForm2.Hide
End Sub
Private Sub CommandButton3_Click()
Call UserForm3_show
UserForm2.Hide
End Sub
-------------------------------------------------------
'UserForm3のコード
Private Sub CommandButton1_Click()
Call UserForm1_show
UserForm3.Hide
End Sub
Private Sub CommandButton2_Click()
Call UserForm2_show
UserForm3.Hide
End Sub
------------------------------------------------------------
'標準モジュール コード
Sub UserForm1_show()
UserForm1.Show
End Sub
Sub UserForm2_show()
UserForm2.Show
End Sub
Sub UserForm3_show()
UserForm3.Show
End Sub