| 2つのフォームを交互に表示する |
|---|
フォーム「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
|
| Excel97 |