|
前回のような不具合が起きないように
コードを変更します。
>
>一つ目のブック
> ブック名---- menubk.xls
> ユーザーフォーム ---Userform1
> Userform1には、
> コントロールは、コマンドボタン一つ(Commandbutton1)
>
> 標準モジュールに
>
>'============================================================
>Sub main()
> UserForm1.Show vbModeless
>End Sub
>
>
> Userform1のモジュールには
>
>'============================================================
Private Sub CommandButton1_Click()
Me.Hide
Set bk = Workbooks.Open(ThisWorkbook.Path & "\item1bk.xls")
Application.Run "item1bk.xls!frmshow"
bk.Close False
Me.Show
End Sub
>
>尚、このmenubk.xlsのプロジェクト名はmenuprojectに
>変更してから保存してください。
>
>
>二つ目のブック
> ブック名---- item1bk.xls
> ユーザーフォーム ---Userform2
> Userform2には、
> コントロールは、コマンドボタン一つ(Commandbutton1)
> 尚、menuprojectに参照設定する事。
Thisworkbookのモジュールに
'================================================
Private Sub Workbook_Open()
UserForm2.Show
End Sub
↑は、削除
代わりに
標準モジュールに
>
>'================================================
Sub frmshow()
UserForm2.Show
End Sub
>
> Userform2のモジュールに
>
>'==========================================================
Private Sub CommandButton1_Click()
Unload Me
End Sub
>
>
>上記の設定で二つのブックを作成してください。
>作成後、一度二つのブックを閉じた後、
>
>・menubk.Xlsのみを開いてmainを実行してください。
>
>・Userform1が表示されます。ボタンをクリックして下さい。
>
>・item1bk.xlsのユーザーフォームが表示されます。
>
>・ボタンをクリックして下さい。
>
>・menubk.xlsのフォームに戻ったとたんにフォームが消えてしまいます。
今度は表示されます。
違いを検討してみて下さい。
|
|