| |
▼nomu さん：
こんばんは。
>このユーザーフォームは最初のファイルです。
>下記のようにしたのですが何がなんだか解らない状態で行っていますので
>たぶんめちゃくちゃだと思います。
↓このコードの動作を見る限り、ハイパーリンクではなくてもよさそうですね！！
>Private Sub CMD4_Click()
> If MsgBox("******を行いますか？", vbYesNo) = vbYes Then
> ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="名前.xls"
> Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
> End If
>End Sub
>
>CMD4 をクリックしたときMsgBox経由で名前へ行きたいのです。
>名前.xlsは表示するのでが最初のユーザーフォームが表示されたままですので 名前ファイルが表示される前にユーザーフォームを退避させたいのです。
>よろしく
以下のようにしてみて下さい。
当該ユーザーフォームのモジュールに・・・、
'==================================================================
Dim WithEvents bk As Workbook
Private h_flg As Boolean
'==================================================================
Private Sub bk_BeforeClose(Cancel As Boolean)
h_flg = False
End Sub
'==================================================================
Private Sub CMD4_Click()
If MsgBox("******を行いますか？", vbYesNo) = vbYes Then
Me.Hide
Set bk = Workbooks.Open("D:\My Documents\ＴＥＳＴエリア\linkbk.xls")
' ↑ここに呼び出したいブックをフルパスで記述
h_flg = True
Do While h_flg = True
DoEvents
Loop
Set bk = Nothing
Me.Show
End If
End Sub
'=======================================================================
Private Sub UserForm_Terminate()
Set bk = Nothing
End Sub
確認して下さい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
