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 質問
【26892】Re:他ブックが閉じられたことを知る方法 ichinose 05/7/22(金) 17:34 発言
【26895】Re:他ブックが閉じられたことを知る方法 05/7/22(金) 19:41 質問
【26896】Re:他ブックが閉じられたことを知る方法 1 ichinose 05/7/22(金) 21:02 発言
【26897】Re:他ブックが閉じられたことを知る方法 2 ichinose 05/7/22(金) 21:20 発言
【26904】Re:他ブックが閉じられたことを知る方法... 05/7/22(金) 23:13 お礼

54627 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free