エクセルでフォルダまたはファイルを開くマクロですが、どのように改良すれ
エクセルでフォルダまたはファイルを開くマクロですが、どのように改良すればよろしいでしょうか？
下記マクロは、エクセルシートのJ列のあるセルをダブルクリックすると、そのセルに記入された文字列を検索して、該当のフォルダまたは、写真が開きます。（エクセルファイルと写真は同フォルダに保存している場合のみ有効）
困っていることは、J列のセルと該当フォルダまたは、写真ファイルをリンクさせたいのですが、文字列が全て一致している時のみしか開かないことです。
D<デジカメ<商品名フォルダ＜写真ファイル
例えば セルＪ3の文字列がABCEで、フォルダ名またはファイル名がABCDEFであった場合、文字列ABCEを含む条件で、フォルダ名またはファイル名ABCDEFを開くように改良したいのですが、
また、エクセルファイルと写真ファイルの保存場所は、全く違うフォルダにしたいのですが、
エクセルファイルと写真ファイルは、別フォルダの場合、どのように検索先フォルダのパスを入れたら良いのでしょうか？
マクロに詳しい方ご教授下さい。よろしくお願い致します。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myPath As String
If Target.Cells(1, 1).Column <> 10 Then Exit Sub
Cancel = True
myPath = ThisWorkbook.Path & "\" & Target.Cells(1, 1).Text
If Dir(myPath, vbDirectory) <> "" Then
Shell "explorer.exe /e,/root," & myPath, vbNormalFocus
Exit Sub
End If
myPath = Replace(LCase(myPath), ".jpg", "\" & Target.Cells(1, 1).Text)
If Dir(myPath, vbNormal) <> "" Then
Shell "rundll32.exe shimgvw.dll,ImageView_Fullscreen " & myPath, vbNormalFocus
End If
End Sub
