|
▼さる さん:
こんばんは。
><ファイルA>
>・ThisWorkBook
>Private Sub Workbook_Open()
> userForm1.show
>End Sub
>として、起動時にユーザフォームを開くようにしています。
↑これを標準モジュールのAuto_Openに記述します
Sub auto_open()
UserForm1.Show
Workbooks.Open ThisWorkbook.Path & "\ファイルB.xls"
Application.OnTime Now(), "ファイルB.xls!auto_open"
ThisWorkbook.Close False
End Sub
>
>ユーザフォームのボタンを押した際は
>Private Sub cmdボタンクリック_Click()
unload me
>End Sub
ボタンのクリックイベントはこれだけ。
同じように
ファイルBでも
標準モジュールでは
Sub auto_open()
UserForm1.Show
Workbooks.Open ThisWorkbook.Path & "\ファイルA.xls"
Application.OnTime Now(), "ファイルA.xls!auto_open"
ThisWorkbook.Close False
End Sub
ユーザーフォーム上のボタンクリックでは
Private Sub CommandButton1_Click()
Unload Me
End Sub
これで試してみて下さい。
但し、延々繰り返すのでどこかで
止めるアルゴリズムは必要ですよ
|
|