受注した商品の写真データを検索して表示したい

会社で受注した商品の写真を検索する方法があれば、教えていただけますでしょうか。
エクセルで作成した注文書が来るのですが、たとえばりんごの注文が来た場合にエクセルのデータからそれと同じ名前
の写真データを探して表示することは出来るのでしょうか。
　エクセル初心者ですので、詳しい方、よろしくお願いいたします。

No.6 回答者： mitarashi 回答日時： 2013/02/11 21:48

こんな事も出来るというご紹介までです。

興味をお持ちになったらEXCEL VBAの書籍を購入してお勉強して下さい。短いけれど結構難しい内容だと思います。

台帳のブックのSheet1のA列に品物の名前、B列に画像ファイルへのフルパスがあるとします。
台帳のブックのThisWorkbookモジュールに後述のマクロを記述します。台帳のブックを開いておきます。

顧客からきた注文書のブックを開き、注文書の商品名のところをダブルクリックすると、台帳のSheet1の1列目（A列）を検索します。品物が見つかると隣のセルに保存場所を示した画像を、Windowsで関係づけられたアプリケーションで開きます。（例：JPEGならIEとか）

注文書の商品名のセルは何らかのルールで範囲が限定される必要があります。さもないと、思わぬところでマクロが起動して「みつからない」と怒られたり、本来ダブルクリックで行いたい動作が出来なくなったりします。下記ではシートの名前と、商品名の入っているセル範囲が決まっていると仮定しています。他の条件の例としては、ブック名が特定のルールで命名されているとか、商品名の上のセルに特定のタイトルがついているとかいった例が考えられます。

'☆Thisworkbookモジュールに記述
Private WithEvents myExcel As Application

Private Sub myExcel_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim hitRange As Range
Dim wshParam As String
Dim objWShell As Object

'目的の「注文書」のセルを特定してやる必要がある。
If Sh.Name <> "注文書" Then Exit Sub
If Intersect(Target, Sh.Range("B6:B10")) Is Nothing Then Exit Sub

Cancel = True
Set hitRange = ThisWorkbook.Sheets("Sheet1").Columns(1).Find(Target.Value, LookIn:=xlValues, Lookat:=xlWhole)
If hitRange Is Nothing Then
MsgBox "みつかりません"
Exit Sub
End If

'ハイパーリンクを設定したとき
'hitRange.Offset(0, 1).Hyperlinks(1).Follow
'画像の場所が入れてあるとき
Set objWShell = CreateObject("Wscript.Shell")
wshParam = "rundll32.exe url.dll FileProtocolHandler " & hitRange.Offset(0, 1).Value
objWShell.Run wshParam, 4, False
End Sub

Private Sub Workbook_Open()
Set myExcel = Application
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set myExcel = Nothing
End Sub

No.4 回答者： masatsan 回答日時： 2013/02/11 07:23

画像の存在する場所がわかっていれば、商品の名前をファイル名にしておけば

エクスプローラでそこを開けば直ぐにわかりますよね。

これを自動でやりたいということなら、色々方法はありますが、プログラム作らないとできないですね。

No.3 回答者： MarcoRossiItaly 回答日時： 2013/02/11 02:10

No.2 です。

何度もすみませんが、書き忘れたことを書きます。

どこかのフォルダに放り込んである画像を表示するという場合は、HYPERLINK 関数というのが使えます。次のような感じの数式で、「りんご.jpg」を表示するハイパーリンクが作れます。

A1　りんご
B1　.jpg
C1　=hyperlink("C:\Users\ユーザー名\Pictures\"&a1&b1)　　←該当フォルダのアドレスバーを右クリックでコピーし適切なものに書換え

でき上がったリンクをクリックした際に、セキュリティ的に安全でない可能性があるが続行するかと問われたら、「はい」を選んでください。

No.2 回答者： MarcoRossiItaly 回答日時： 2013/02/11 01:31

画像データをどこからどう持ってくるつもりか、というのが問題になりますが。

もしも、あるセルに入力されている名前に基づいてワークシート上の画像を拾い、別の場所に表示させるということなら、参考 URL の方法でできます。これは、「図のリンク貼り付け」、「名前」、「INDIRECT 関数」という 3 つの機能を組み合わせる方法です。

検索する画像を並べておく場所は別シートにして、そのシートを非表示とかにしておいてもいいですね。シート見出しの右クリックから、非表示をクリックするだけです。

参考URL：http://officetanaka.net/excel/function/tips/tips …

No.1 回答者： ikuchan250 回答日時： 2013/02/10 23:51

picasaなら画像をデータベース化しますからご希望に応えられるかもしりません。

picasa -- http://picasa.google.co.jp/intl/ja/

画像データが保存されているフォルダーが固定されているなら
Irfanview Thumnail（Irfanviewに付属）が便利かも。
・http://www.forest.impress.co.jp/library/software …
http://www.forest.impress.co.jp/docs/review/2012 …
(日本語化モジュール、ちょっとテクニック必要）
確か、頭が　数字・アルファベット・漢字（訓読み）の順でならんだような．．．