- ベストアンサー
エクセルで PDFファイルを検索 開きたいです
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
日付はYYYYMMDD形式とします。 2021/8/10 であれば 顧客名20210810.pdf を開きます。 Option Explicit ' Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim FullName As String ' FullName = ThisWorkbook.Path & "\" & Target.Offset(, 1) & _ Format(Target, "YYYYMMDD") & ".pdf" ' If Target.Row > 6 And Target.Column <> 2 Or Target = "" Then ElseIf Dir(FullName) = "" Then MsgBox "ファイルが見つかりません", vbCritical Cancel = True Else CreateObject("Shell.Application").ShellExecute FullName Cancel = True End If End Sub
その他の回答 (1)
- imogasi
- ベストアンサー率27% (4737/17069)
VBAの回答が出ているが、VBAを、かじったことあるの。 商売上・仕事のニーズなら、システム業者に、相談すべきではないか。 無料の質問コーナーに、不十分な説明で、質問して、誰かがやってくれるは、おかしくないか。 === VBAも良いが、既出回答のVBAのコードが理解できるか?出来るなら、それも良いが、 ーー 決めたエクセルのシートの、決めたセルに対し https://www.tipsfound.com/excel/01303 エクセル シートへリンクを作成する で説明されていることをやってみたらどうか。 対象は既作成のPDFファイルを指定できる。 ハイパーリンクで開くでPDFファイルが開くだろう。
お礼
ありがとうございました 実現しました 色々 サイトで検索して自力で勉強中でVBAの構築の基礎が無いので中々うまくいきません 今現在のシートも自力で少しづづ作り上げたもので なんとかここまで来ました で 使いながら 進歩させていっています。 ありがとうございました 教えて頂いたコードでは理解できるので色々変更させて頂いて使わせて頂きます。