Excel VBA質問箱 IV

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

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


29768 / 76732 ←次へ | 前へ→

【52239】Re:他ブックのユーザーフォームを呼ぶ その2
発言  ichinose  - 07/11/3(土) 8:40 -

引用なし
パスワード
   ちょっと仕様を変更して

「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をずらしてふたつのユーザーフォームが表示されていることを
確認してみてください)


これがうまくいくようなら、実際の対象となるブックに応用してください

2 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 お礼

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