Excel VBA質問箱 IV

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

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


29766 / 76732 ←次へ | 前へ→

【52241】Re:他ブックのユーザーフォームを呼ぶ その2
お礼  acch  - 07/11/3(土) 17:52 -

引用なし
パスワード
   ▼ichinose さん:

早速の回答ありがとうございます。
試しにやって見ました。私の希望する動きのようです。


応用してみて、うまく解決できましたらあらためてお礼を申し上げます。


>ちょっと仕様を変更して
>
>「Book1.xls上のUserform1上にあるコマンドボタンをクリックすると Book2.xlsのUserform1 が起動するようにする」という例題で考えます。
>
>新規にBook1.Xls、Boo2.Xlsを作成します。
>
>Book1.Xls及び、Book2.Xlsは同じフォルダ上に保存することとします。
>
>Book1.Xlsには、ユーザーフォーム(Userform1)ひとつ作成してください。
>  Userform1の構成
>    テキストボックス(Textbox1)をひとつ配置
>    コマンドボタン(Commnadbutton1)をひとつ配置
>    ↑このボタンのクリックでBook2.XlsのUserform1を表示します
>
>Book1.XlsのThisWorkBookのモジュールに
>'===================================================
>Option Explicit
>Public bk2 As Workbook
>Sub main()
> Set bk2 = Workbooks.Open(ThisWorkbook.Path & "\book2.xls")
> UserForm1.Show vbModeless
>End Sub
>
>UserForm1のモジュールに
>'===============================================================
>Private Sub CommandButton1_Click()
>  ThisWorkbook.bk2.get_frm.Show vbModeless
>End Sub
>
>
>'*************************************************************************
>
>Book2.Xlsには、ユーザーフォーム(Userform1)ひとつ作成してください。
>  Userform1の構成
>    テキストボックスをふたつ配置(Textbox1,Textbox2)
>    ↑このテキストボックスに意味はありませんが、Book1.XlsのUserForm1と
>     区別するためにテキストボックスの数を変えました。
>
>
>Book2.XlsのThisWorkBookのモジュールに
>'====================================================================
>Function get_frm() As Object
>  Set get_frm = UserForm1
>End Function
>
>
>これで準備完了です。
>
>一度、Book1.Xls、Book2.Xls共に閉じた後、
>Book1.Xlsのみを開いてください。
>
>Book1.XlsのThisWorkbook.mainを実行してください。
>
>Book2.Xlsを開いた後に
>Book1.XlsのUserform1が表示されます。
>
>Commandbutton1をクリックしてください
>Book2.XlsのUserform1が表示されます。
>(Book1.XlsのUseform1が隠れてしまいますが、
>Book2.XlsのUserfrom1をずらしてふたつのユーザーフォームが表示されていることを
>確認してみてください)
>
>
>これがうまくいくようなら、実際の対象となるブックに応用してください

1 hits

【52156】他ブックのユーザーフォームを呼ぶ acch 07/10/25(木) 15:09 質問
【52157】Re:他ブックのユーザーフォームを呼ぶ Jaka 07/10/25(木) 15:55 発言
【52237】Re:他ブックのユーザーフォームを呼ぶ acch 07/11/2(金) 22:21 質問
【52238】Re:他ブックのユーザーフォームを呼ぶ そ... ichinose 07/11/3(土) 8:02 発言
【52239】Re:他ブックのユーザーフォームを呼ぶ そ... ichinose 07/11/3(土) 8:40 発言
【52241】Re:他ブックのユーザーフォームを呼ぶ そ... acch 07/11/3(土) 17:52 お礼

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