商品品番を入力すると 画像がVLOOK UPの様に読み込まれるマクロを知りたい

Question

お世話になっております　具体的なデータをこちらに入力してお伺いしたいのですが　公開されているとの事なので　控えます

エクセルの１シート目に　商品品番や　上代・発注数量等が一覧出来るフォーマット作成し、２シート目　もしくは別のフォルダ（データが重くならない方を望む）にそのスケッチ（仮にgjf.）や画像*（仮にjpg.）を同じ商品品番で保存し、１シート目のいづれかのセルに商品品番（１－＊＊＊＊＊＊のような８～１０桁の英数字）を入力すると　その横や下に絵型が張り付く

というようなマクロをお教え願えますでしょうか。

宜しくお願い申し上げます。

Answer 1

マクロがお望みならこんな感じのマクロは如何でしょう。

ファイルを軽くするために「D:\画像フォルダ」に品番を名前にした画像を置いています。

E列にはjpgやpng等の拡張子を入力して非表示にしています。

'----------------------------------------------------------------------

Sub 商品画像表示()

    '品番を入力してから実行すること

    Dim i As Long

    Dim last As Long, gazou As String

    last = Cells(Rows.Count, "A").End(xlUp).Row

    If Range("G2") = "" Then

        MsgBox "品番を入力してからマクロを実行してください"

        Exit Sub

    End If

    For i = 2 To last

        If Cells(i, "A").Value = Range("G2").Value Then

            gazou = Cells(i, "A").Value & "." & Cells(i, "E").Value

            On Error GoTo owari

            Sheets("Sheet1").DrawingObjects.Delete

            Range("G4").Select

            ActiveSheet.Pictures.Insert ("D:\画像フォルダ" & gazou)

            Range("G2").Select

            Exit Sub

        End If

    Next

owari:

    MsgBox "その画像はありません"

End Sub

'------------------------------------------------------------------------

Answer 2

以下のページが参考になると思います。

https://www.forguncy.com/blog/20170818_vlookup_picture