|
book1上のUserform1 をクリックすると boo2のUserform1 が起動するようにしたいのです。
試しに下記のように記述してみましたが、動きません。
どこに問題がありますか?????
' Sub main() を起動
' Userform1 が表示される
--- ここまでは動作しているようです --------
’==== 以下、Book1 の ThisWorkbook に記述 =
Sub main()
Call book1_opn '対象のブックをオープン
UserForm1.Show vbModeless
End Sub
Function getfrm(frmnm) As Object
Dim frm As Object
Set getfrm = Nothing
For Each frm In UserForms
If UCase(frm.Name) = UCase(frmnm) Then
Set getfrm = frm
Exit For
End If
Next
End Function
’==== 以下、Book2 の Sheet1 に記述 =
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim frm As Object
Set frm = Workbooks("book1.xls").getfrm("userform1")
If Not frm Is Nothing Then
frm.Show
End If
End Sub
|
|