|
▼kanabun さん:
先日はお教え頂き、ありがとうございました。
仕様のバージョンアップが必要となり、悩んでおります。
是非追加でご教授頂けないかと、投稿致しました。
何卒、よろしくお願い申し上げます。
追加仕様:
セルの内容: 12345* --> 実際のファイル名: 123451.pdf
上記のようなPDFファイルは1個しか存在しないことは分かっています。
現状は下記のとおり記述しておりますので、pdfファイルがありませんと
セルに入ってしまいます。
If Range("C2") <> "" Then
s = Range("C2") & ".pdf"
If dic.Exists(s) Then
Range("K2").Value = dic(s)
With ActiveSheet
.Hyperlinks.Add anchor:=Range("k2"), dress:=Range("k2").Value
End With
Else
Range("K2").Value = "PDFファイルが存在しません。"
With ActiveSheet
.Hyperlinks.Delete
End With
End If
Else
Range("K2").Value = ""
End
■配列の中身を曖昧検索するには、どのように記述すればよいのでしょうか?
|
|