Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54627 / 76738

←次へ　｜　前へ→


	【26897】Re:他ブックが閉じられたことを知る方法　2

ichinose - 05/7/22(金) 21:20 -


	引用なし

	パスワード

前回のような不具合が起きないように
コードを変更します。

>
>一つ目のブック
>　ブック名----　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のフォームに戻ったとたんにフォームが消えてしまいます。
　今度は表示されます。

違いを検討してみて下さい。

0 hits

▼

【26891】他ブックが閉じられたことを知る方法 故 05/7/22(金) 17:26