名前の一部から該当するリストを表示してその名前に対応するコードを入力

Sheet3にコードとメーカー名、カタカタが記入されています。

Sheet2のA1セルをダブルクリックすると別枠が開きアオキと入れると
Sheet3のアオキに該当するメーカー名が出てきて、目的のメーカーｰ名を選択すると
Sheet2のA1セルにそのメーカーのコードﾞが入力されるようにしたいのですが。

例
Sheet3
765,浅井企画,アサイキカク
201,青木化学(株),アオキカガクカブ
1562,(株)青木石油,カブシキガイシャアオキセキユ
3375,赤井産業,アカイサンギョウ
64,青木企画,アオキキカク

Sheet1のA1セルに「アオキ」と入力すると（A1でなくともB1でもどこでも構いません）
青木化学(株)
(株)青木石油
青木企画
が表示され、目的の「青木企画」を選択するとA1セルに「64」と入力されるようにしたいのですが。
（コードは、A1セルに入力されるようにしたいです）
いろいろと検索しましたが、分かりませんでした。よろしくお願いします。（EXCEL2010）

No.6 回答者： CoalTar 回答日時： 2015/12/22 16:13

>9.は、入力値の種類：リスト、元の値：社名一覧でよろしかったでしょうか？

入力値の種類: リスト
元の値: =社名一覧
となり、=(イコール)が入ります。端折ってしまってすみません

あと、セルの入力・編集したセルの行のリストが反映されるので、
あらかじめA列にカタカナを入れておくのは、2度手間になります。

この回答へのお礼

ありがとうございました。解決しました。hallo-2007さんの回答と同じ結果なので、悩んでいたのですが、先にご回答いただいた方をベストアンサーとさせていただきました。申し訳ありません。

お礼日時：2015/12/27 13:32

No.5 回答者： CoalTar 回答日時： 2015/12/21 17:27

肝心のコードの数式を忘れた(^^;

といってもVLOOKUP関数使えば良いし、、、。
10. Sheet1!C2セルに
　=IF(B2="","",INDEX(Sheet3!A:A,MATCH(Sheet1!B2,Sheet3!B:B,0)))
　下へオートフィル

この回答へのお礼

ありがとうございました。解決しました。

お礼日時：2015/12/27 13:29

No.4 回答者： CoalTar 回答日時： 2015/12/21 17:24

面白そうなので、数式でやってみました

Sheet1において
1. [Ctr]+[F3]名前の定義
　名前: カナセル
　参照範囲: =INDEX(Sheet1!$A:$A,CELL("row"))

Sheet3において
2. D1セル 0
3. D2セルに
　=SUM(D1,SEARCH(カナセル,C2&カナセル)<>LEN(C2)+1)
　フィルハンドルをダブルクリック
4. E1セルに =COUNTIF(C:C,"*"&カナセル&"*")
5. E2セルに
　=IF(ROW()-1>$E$1,"",ROW()-1)
　フィルハンドルをダブルクリック
6. (ここはいらないけど)F1セルに =カナセル
7. F2セルに
　=INDEX(B:B,MATCH(E2-1,D:D)+1)
　フィルハンドルをダブルクリック
8. [Ctr]+[F3]名前の定義
　名前: 社名一覧
　参照範囲: =Sheet3!$F$2:INDEX(Sheet3!$F:$F,Sheet3!$E$1+1)

Sheet1にもどりB列で
9. [Alt]押しつつ[D]→[L]入力規則
　リスト =社名一覧

この回答へのお礼

御回答ありがとうございます。
9.は、入力値の種類：リスト、元の値：社名一覧でよろしかったでしょうか？

御提示いただいた画像のSheet1のB5のリストですが、「社名一覧」と出て、
画像のように3つの社名は出てこないのですが.....。

お礼日時：2015/12/21 22:13

No.3 回答者： hallo-2007 回答日時： 2015/12/20 13:38

失礼しました。

＞DE列は空欄で構わないのですよね。
はい。未使用です。
＞B2,C2セルも空欄で良いのでしょうか？
A2セルに、アオキ　と入れるとF,G列に　アオキを含む会社名が出ると思いますが如何でしょうか。
＞B2には何も表示されず
B2セルに、入力規則で、　F列の抽出された会社名を選択できるよう設定してください。
C2セルには、選択肢は会社名のコードがH2セルのVlookup関数で表示されるの、その値が入るようにしました。

この回答へのお礼

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

お礼日時：2015/12/27 13:31

No.2 ベストアンサー 回答者： hallo-2007 回答日時： 2015/12/20 12:30

まずは

Sheet3の一行目にキチンと項目名を入れてから、2行目からデータを入れます。
Sheet1に少し工夫をします。
一行目には、項目をいれますが
　　A　　　　B　　　　C　・・・・　　F　　　G　　H
１フリガナ　会社名　コード・・・。会社名　コード
２
と、A~Cの入力する場所と　F、Gにフィルターオプションで表示させる列を準備します。
H2セルには　=VLOOKUP(B2,F:G,2,FALSE)　と関数を入れておきます。
Sheet1の名前のタブを右クリックして、コードの表示をクリック
VBエディターが起動したら
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Sheets("Sheet3").Columns("A:C").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("F1:G1"), Unique:=False
End If
If Target.Address = "$B$2" Then
Range("C2").Value = Range("H2").Value
End If
End Sub
を張り付けて閉じると先に説明した動作になると思います。
フィルターオプションについては、ネットで調べてみてください。

この回答へのお礼

ありがとうございます。A2にアオキと入れると、F列に会社名、G列にコードが表示されますが、B2には何も表示されず、H列は#N/Aです。

　A　　　　B　　　　C　・・・・　　F　　　G　　H
１フリガナ　会社名　コード・・・。会社名　コード

↑の、DE列は空欄で構わないのですよね。B2,C2セルも空欄で良いのでしょうか？

フィルタオプションの設定がまずいのでしょうか？

お礼日時：2015/12/20 13:26

No.1 回答者： hallo-2007 回答日時： 2015/12/19 22:21

>Sheet2のA1セルをダブルクリックすると別枠が開きアオキと入れると

>Sheet3のアオキに該当するメーカー名が出てきて、目的のメーカーｰ名を選択すると
>Sheet2のA1セルにそのメーカーのコードﾞが入力されるようにしたいのですが。
これが本当に使いやすいですか？良くあるケースで云えば

Sheet2のA1セルをアオキと入れると
Sheet2のＢ１セルに、Sheet3のアオキに該当するメーカー名の一覧が出てきて
Sheet2のＢ１セルで目的のメーカーｰ名を選択すると
Sheet2のＣ１セルにそのメーカーのコードﾞが表示されるようにしたいのですが。
ではないでしょうか？
それぞれの操作が記録として残った方がわかりやすいと思うのですが。

この回答へのお礼

おっしゃるとおりです。EXCELで可能なら御教示いただけないでしょうか。

お礼日時：2015/12/20 06:38