Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7242 / 76735

←次へ　｜　前へ→


	【75082】Re:ファイル検索とリンク設定

kohaku - 13/12/9(月) 19:11 -


	引用なし

	パスワード

▼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

■配列の中身を曖昧検索するには、どのように記述すればよいのでしょうか？

0 hits

▼

【75011】ファイル検索とリンク設定 Kohaku 13/11/14(木) 13:28