Excel VBA質問箱 IV

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

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


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

54622 / 76732

←次へ　｜　前へ→


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

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


	引用なし

	パスワード

▼故さん：
正直に申し上げますと、まだわかりません。
故さんが提示されたコードでは私が私の環境で再現ができません。

以下のような手順で二つのブックを作成し、
同じフォルダに保存してください。

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

このような現象ですね？

確認してください。

1 hits

▼

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