Excel ユーザーフォームの複数表示する事は出来ましたが、その逆が出来ません。
Excel ユーザーフォームの複数表示する事は出来ましたが、その逆が出来ません。 UserForm１のCommandButton11を押し、閉じてからUserForm２とUserForm３を表示 Private Sub CommandButton11_Click() Unload Me Dim f1 As UserForm2 Dim f2 As UserForm3 Set f1 = New UserForm2 With f1 .Show vbModeless .Left = f1.Left - 50 .Top = f1.Top - 100 End With Set f2 = New UserForm3 With f2 .Show vbModeless .Left = f1.Left - 700 .Top = f1.Top - 50 End With End Sub UserForm３のCommandButton1を押して閉じ、同時にUserForm２も閉じる。それからUserForm１を表示したいのです。 Unload Meの応用コードを教えて下さい。 お忙しい中、ご返答の程、宜しくお願い致します。
Visual Basic | Excel・11閲覧・25
ベストアンサー
以下の2カ所の変更を試してください。 １） Private Sub CommandButton11_Click() Unload Me ↓ Private Sub CommandButton11_Click() Me.Hide ２） .Top = f1.Top - 50 End With End Sub ↓ .Top = f1.Top - 50 End With Unload Me End Sub
ご返答ありがとうございます！ 上記コードではUserForm２を閉じる事が出来ませんでした。 丁度、下記のコードで可能となりました。 Sub FormClose1() Dim MyForm As Object For Each MyForm In UserForms Unload MyForm Next End Sub Private Sub CommandButton1_Click() Call FormClose1 UserForm1.Show End Sub 迅速なご返答を有難うございました。 お時間をとらせてすみませんでした！
質問者からのお礼コメント
ご返答、感謝です。 有難うございました。
お礼日時：2020/11/24 21:47
