[[20140710155213]]　『別シートの抽出IDで、別シートの品番を参照して画』（アグリ）　ページの最後に飛ぶ

『別シートの抽出IDで、別シートの品番を参照して画像表示。そしてフォームで入力の変更。』（アグリ）

一度に2つの質問をしていいのかどうかも迷いましたが、まずは一つ目の質問を記入させて
頂きたいと思います。いつも利用させて頂き、大変感謝しております。

やりたいことは単純ですが、説明が複雑になります。
要約もわかりずらかったですが、商品を、品名からでも、JANコードからでも
商品情報が参照できるものを作ろうとしています。

シートは全部で2枚。シート名は1枚目「商品情報参照」と、2枚目「商品INDEX」です。

商品情報参照シートのE2にフォームコントロールのラジオボタンで品番とし、
G2に同じラジオボタンでJANとしています。
2つのラジオボタンとも、コントロールの書式設定で、リンクセルを$B$16とし、
品番にチェックが入ればB16セルが１となり、JANにチェックが入れば2となるようになっています。
入力箇所はI2で、I2に入力した品番、あるいはJANから、別シートの
商品INDEXの情報を抜いています。

例えば、品番・JANの欄には
=IFERROR(IF(B16=1,VLOOKUP(I2,商品INDEX!B:C,2,0),INDEX(商品INDEX!B:B,MATCH(商品情報参照!I2,商品INDEX!C:C,0))),"")

としています。

そこで、私がやりたいことの一つ目が、品番と同一の画像ファイルがあり、
（品番が００１なら001.jpgといった具合です。）
品番で抜いてくるマクロは以前ご教授頂いたのですが、
今回は品番でもJANでも検索できるようにしたかったので、
商品INDEXシートのA行にIDというものを設けました。
1から順にINDEXがついていき、重複はしないというものです。
これを商品情報参照シートのE15に表示されるようにしたのですが、
このIDから、品番の画像を引っ張ってくることは可能でしょうか？

画像フォルダはC:\dbjpg に入っています。
画像を表示したいセルは商品情報参照シートのU3:AD9です。

商品INDEXのシート構成は以下のような具合です。

   A     B       C                D               E       f                     G
   ID	品番	JANコード	  継続・廃番	  頁	  商品名	　　　  色･柄･種類	...　
1   1	331	4977777098759					
2   2	331-T	4977777098739					
3   3	S9K	4977777098719 			          バードピック      	8羽アソート   	
...

とりあえずこの質問のみ記載致しました。

よろしくお願い致します。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 ＞今回は品番でもJANでも検索できるようにしたかったので、 
 ＞ 商品INDEXシートのA行にIDというものを設けました。

 IDの必要性がちょっと分かりません。
 いままでも、品番やJANコードを苦もなく検索できたんですよね？

 ・・であれば、
 品番からなら、ダイレクトに画像名が分かりますし、
 JANからなら、 品番を求めればいいと思います。

 同じようでも、行番号（MATCH関数の返り値）なら、後々使い勝手が
 いいかも知れませんので、IDの代わりに取得して置く意味はありそうです。

 画像の挿入については、U3:AD9の範囲に四角の図形を貼り付けて、
 背景を画像ファイルから取り込ませるようにすればいいと思います。

 ※その手順をマクロの記録でコードを書かせ、そのコード中に
 　ファイル名を指定している部分があるので、そこを上で取得した
 　画像名に入れ替えればいいと思います。

（半平太） 2014/07/10(木) 20:06

半平太様、お教えいただきありがとうございました（＾＾）
お陰様で画像の件はなんとか解決致しました。
（アグリ） 2014/07/11(金) 11:55

あと一つ、したいことがございまして、
商品INDEXシートの
　・・・　　　AB　　　　　AC
1　　　　　　クレーム　　備考
2
・・・

とありまして、商品情報参照シートで検索した時に、
クレームと、備考欄を、商品情報参照シートで更新、編集したいと思っています。

VBAを使ってしたいと考えていますが、クレーム欄は商品情報参照シートのAE3:AQ8、
備考欄はU10:AQ15 でございます。（上記質問と矛盾しますが、少しだけ配置変えました。）

ここに、テキストボックスのActive X テキストボックスなんかをつかって、
商品情報参照シートのI2に入力された品番、あるいはJANの商品indexのクレーム、
備考欄の情報を反映して、編集できたり更新したりしたいというものです。

わかりにくくてすみませんが、ご教授いただければ幸いです。
（アグリ） 2014/07/11(金) 12:06

 どの辺りが分からないでしょうか？

 I2セルに入力した段階で、対応するクレームと備考欄は特定されると思いますので、
 それらの値を「対応するテキストボックスのValueプロパティにセット」すれば、
 その時点の記述がテキストボックス内で見ることができるようになりますよね？

 ・・で、その内容を変更した時、元のセルに反映させたいのであれば

 テキストボックスのChangeイベントに
 　元のセル.VALUE = そのTEXTBOX.VALUE

 と書いて置けばいいのではないでしょうか？

（半平太） 2014/07/13(日) 08:34

コメント返信：

[ 一覧(最新更新順) ]

[[20140710155213]] 『別シートの抽出IDで、別シートの品番を参照して画』（アグリ） ページの最後に飛ぶ

[[20140710155213]]　『別シートの抽出IDで、別シートの品番を参照して画』（アグリ）　ページの最後に飛ぶ