[[20100227215919]]　『セルで指定した画像を表示』（しょう）　ページの最後に飛ぶ

『セルで指定した画像を表示』（しょう）

はじめましてよろしくお願いします。

Sheet２に３００件程のデータ表があり、Sheet１のA1に№を入力すると指定した

№の情報をVLOOKUP関数で表示できるようにしてあります。

Sheet2のセルに\A\B.JPGと指定した画像をSheet1のImage1に表示させたいのですが・・・

以前はで多数が少なかったので下記のようにリストボックスから選択して表示していました。

Private Sub ListBox1_Click()

    Dim PicPath As String
    PicPath = ThisWorkbook.Path & Range("sheet2!G4").Offset(ListBox1.ListIndex).Value
    ActiveSheet.Image1.Picture = LoadPicture(PicPath)

A1に№を入力しEnterキーを押してマクロ始動と自分なりに考えてみたのですが、

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim PicPath As String
    If Target.Address = "$A$1" Then
    PicPath = ThisWorkbook.Path & Range("Sheet2!G4").Offset.この部分を
　　どうしたらよいのでしょうか？
    ActiveSheet.Image1.Picture = LoadPicture(PicPath)

ご教授願います。

　Excel2007　　　　OS　Windows Vista

 空いている邪魔に成らないセル（Image1の下のセルとか）に
 一旦VLOOKUP関数で「\A\B.JPG」を表示させておいて
 そのセルの値を使うことにされてみるのはどうでしょう？

 PicPath = ThisWorkbook.Path & Range("そのセル").Value
 こんな感じで、[ブックが有るフォルダ\A\B.JPG] と言う Pathが出来ると思います。

 わざわざ隠さなくても
 ＞指定した№の情報をVLOOKUP関数で表示できるようにしてあります。 
 この情報の中に、画像が保存されている場所が
 一緒に表示されていても良いのではないかとは思いますが。。。

 (HANA)

HANAさんありがとうございました。

さっそく試してみると思いどおり表示することができました。

完成に一歩近づき安心して寝られます。今後もよろしくお願いします。

（しょう）

[[20100301164155]]　『セルで指定した画像を表示２』（しょう）

コメント返信：

[ 一覧(最新更新順) ]

[[20100227215919]] 『セルで指定した画像を表示』（しょう） ページの最後に飛ぶ

[[20100227215919]]　『セルで指定した画像を表示』（しょう）　ページの最後に飛ぶ