|
▼故 さん:
正直に申し上げますと、まだわかりません。
故 さんが提示されたコードでは私が私の環境で再現ができません。
以下のような手順で二つのブックを作成し、
同じフォルダに保存してください。
一つ目のブック
ブック名---- menubk.xls
ユーザーフォーム ---Userform1
Userform1には、
コントロールは、コマンドボタン一つ(Commandbutton1)
標準モジュールに
'============================================================
Sub main()
UserForm1.Show vbModeless
End Sub
Userform1のモジュールには
'============================================================
Private Sub CommandButton1_Click()
Me.Hide
Workbooks.Open ThisWorkbook.Path & "\item1bk.xls"
End Sub
尚、このmenubk.xlsのプロジェクト名はmenuprojectに
変更してから保存してください。
二つ目のブック
ブック名---- item1bk.xls
ユーザーフォーム ---Userform2
Userform2には、
コントロールは、コマンドボタン一つ(Commandbutton1)
尚、menuprojectに参照設定する事。
Thisworkbookのモジュールに
'================================================
Private Sub Workbook_Open()
UserForm2.Show
End Sub
Userform2のモジュールに
'==========================================================
Private Sub CommandButton1_Click()
Me.Hide
Call main
ThisWorkbook.Close False
End Sub
上記の設定で二つのブックを作成してください。
作成後、一度二つのブックを閉じた後、
・menubk.Xlsのみを開いてmainを実行してください。
・Userform1が表示されます。ボタンをクリックして下さい。
・item1bk.xlsのユーザーフォームが表示されます。
・ボタンをクリックして下さい。
・menubk.xlsのフォームに戻ったとたんにフォームが消えてしまいます。
このような現象ですね?
確認してください。
|
|