Sheet3にコードとメーカー名、カタカタが記入されています。
Sheet2のA1セルをダブルクリックすると別枠が開きアオキと入れると
Sheet3のアオキに該当するメーカー名が出てきて、目的のメーカーー名を選択すると
Sheet2のA1セルにそのメーカーのコード゙が入力されるようにしたいのですが。
例
Sheet3
765,浅井企画,アサイキカク
201,青木化学(株),アオキカガクカブ
1562,(株)青木石油,カブシキガイシャアオキセキユ
3375,赤井産業,アカイサンギョウ
64,青木企画,アオキキカク
Sheet1のA1セルに「アオキ」と入力すると(A1でなくともB1でもどこでも構いません)
青木化学(株)
(株)青木石油
青木企画
が表示され、目的の「青木企画」を選択するとA1セルに「64」と入力されるようにしたいのですが。
(コードは、A1セルに入力されるようにしたいです)
いろいろと検索しましたが、分かりませんでした。よろしくお願いします。(EXCEL2010)
No.2ベストアンサー
- 回答日時:
まずは
Sheet3の一行目にキチンと項目名を入れてから、2行目からデータを入れます。
Sheet1に少し工夫をします。
一行目には、項目をいれますが
A B C ・・・・ F G H
1フリガナ 会社名 コード・・・。会社名 コード
2
と、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
1フリガナ 会社名 コード・・・。会社名 コード
↑の、DE列は空欄で構わないのですよね。B2,C2セルも空欄で良いのでしょうか?
フィルタオプションの設定がまずいのでしょうか?
No.6
- 回答日時:
>9.は、入力値の種類:リスト、元の値:社名一覧でよろしかったでしょうか?
入力値の種類: リスト
元の値: =社名一覧
となり、=(イコール)が入ります。端折ってしまってすみません
あと、セルの入力・編集したセルの行のリストが反映されるので、
あらかじめA列にカタカナを入れておくのは、2度手間になります。
ありがとうございました。解決しました。hallo-2007さんの回答と同じ結果なので、悩んでいたのですが、先にご回答いただいた方をベストアンサーとさせていただきました。申し訳ありません。
No.5
- 回答日時:
肝心のコードの数式を忘れた(^^;
といってもVLOOKUP関数使えば良いし、、、。
10. Sheet1!C2セルに
=IF(B2="","",INDEX(Sheet3!A:A,MATCH(Sheet1!B2,Sheet3!B:B,0)))
下へオートフィル
No.4
- 回答日時:
面白そうなので、数式でやってみました
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つの社名は出てこないのですが.....。
No.1
- 回答日時:
>Sheet2のA1セルをダブルクリックすると別枠が開きアオキと入れると
>Sheet3のアオキに該当するメーカー名が出てきて、目的のメーカーー名を選択すると
>Sheet2のA1セルにそのメーカーのコード゙が入力されるようにしたいのですが。
これが本当に使いやすいですか?良くあるケースで云えば
Sheet2のA1セルをアオキと入れると
Sheet2のB1セルに、Sheet3のアオキに該当するメーカー名の一覧が出てきて
Sheet2のB1セルで目的のメーカーー名を選択すると
Sheet2のC1セルにそのメーカーのコード゙が表示されるようにしたいのですが。
ではないでしょうか?
それぞれの操作が記録として残った方がわかりやすいと思うのですが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの質問です。 F列からL...
-
作成した数式を値として表示し...
-
エクセルの文字が途中から消える
-
条件付き書式設定で罫線を引き...
-
Excel関数について教えてくださ...
-
Excelの警告について
-
Excel関数について教えてくださ...
-
ワークシートに出現したこの画...
-
エクセルのセル内に分数などの...
-
タイムスタンプとテキストから...
-
EXCELの散布図で日付が1900年に...
-
エクセルでファイルの最終更新...
-
シートの情報を別のシートへま...
-
マクロの処理が遅くなった
-
エクセルの数式バーのフォント...
-
エクセルの「条件付き書式」を...
-
エクセル日付 文字列の関数がエ...
-
Excelでの文字色
-
Excelの数字の前に入っている空...
-
Excelについて教えてください。...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
Excelで数値を時間数に変換する...
-
エクセルの数式バーのフォント...
-
エクセルで数字の組み合わせを...
-
エクセルを使用して、円周率を...
-
Excelで特定の文字列が含まれて...
-
Excel 対象のセルに入力が無い...
-
任意の値が存在する行に名前を...
-
エクセルでファイルの最終更新...
-
index関数の説明をお願いします。
-
条件付き書式でやりたいのですが
-
重複しない値を取り出したい
-
【ExcelVBA】UTF-8(BOM無)でC...
-
【マクロ】マクロが割当てされ...
-
エクセル IF計算式?でしょうか?
-
エクセルで曜日を入れたい
-
表中の指定した条件の文字列を...
-
【Excel】版が同じ事を示す番号...
-
EXCELの散布図で日付が1900年に...
-
Excelについて。Excelに縦1列に...
おすすめ情報