HOME > 即効テクニック > Excel VBA > その他関連のテクニック > 2つのフォームを交互に表示する

即効テクニック

その他関連のテクニック

2つのフォームを交互に表示する

(Excel 97)
フォーム「UserForm1」とフォーム「UserForm2」の2つのフォームを用意します。
フォーム「UserForm1」をクリックするとフォーム「UserForm2」が表示され、
フォーム「UserForm2」をクリックするとフォーム「UserForm1」が表示されるようにします。
フォーム「UserForm1」が表示される時に発生するイベントでは、次のような処理を用意します。
Private Sub UserForm_Initialize()
    Load UserForm2
    UserForm2.Show
End Sub
フォーム「UserForm1」をクリックした時に時に発生するイベントでは、次のような処理を用意します。
Private Sub UserForm_Click()
    UserForm2.Show
End Sub
フォーム「UserForm2」をクリックした時に時に発生するイベントでは、次のような処理を用意します。
Private Sub UserForm_Click()
    UserForm2.Hide
End Sub