|
Sheet2 のシートモジュールに
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim MyR As Range
Dim MyF As String
Set MyR = Range("A1", Range("A65536").End(xlUp))
If Intersect(Target, MyR) Is Nothing Then GoTo ELine
With Target.Offset(, 4)
If IsEmpty(.Value) Then GoTo ELine
MyF = .Value
End With
Cancel = True
If Dir(MyF) = "" Then
MsgBox .Value & vbLf & "のファイルが見つかりません", 48
GoTo ELine
Else
Workbooks.Open MyF
End If
ELine:
Set MyR = Nothing
End Sub
というコードを入れて下さい。
*注(E列に入力されたファイル名は、必ずフルパスでないといけません。)
|
|