複数のユーザーフォームをコマンドボタンにて表示・非表示させるには

質問

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

回答No.1

kybo · ベストアンサー

モードレスではない状態で２つのユーザーフォームを同時表示させようとしているので、エラーになっているのです。
UserForm1をHideしてから、UserFrom2を表示するようにすればいいのです。

Private Sub CommandButton2_Click()
UserForm1.Hide
Call UserForm2_show
End Sub

Private Sub CommandButton3_Click()
UserForm1.Hide
Call UserForm3_show
End Sub