Sheet3にコードとメーカー名、カタカタが記入されています。
Sheet2のA1セルをダブルクリックすると別枠が開きアオキと入れると
Sheet3のアオキに該当するメーカー名が出てきて、目的のメーカーー名を選択すると
Sheet2のA1セルにそのメーカーのコード゙が入力されるようにしたいのですが。
例
Sheet3
765,浅井企画,アサイキカク
201,青木化学(株),アオキカガクカブ
1562,(株)青木石油,カブシキガイシャアオキセキユ
3375,赤井産業,アカイサンギョウ
64,青木企画,アオキキカク
Sheet1のA1セルに「アオキ」と入力すると(A1でなくともB1でもどこでも構いません)
青木化学(株)
(株)青木石油
青木企画
が表示され、目的の「青木企画」を選択するとA1セルに「64」と入力されるようにしたいのですが。
(コードは、A1セルに入力されるようにしたいです)
いろいろと検索しましたが、分かりませんでした。よろしくお願いします。(EXCEL2010)
No.1
- 回答日時:
>Sheet2のA1セルをダブルクリックすると別枠が開きアオキと入れると
>Sheet3のアオキに該当するメーカー名が出てきて、目的のメーカーー名を選択すると
>Sheet2のA1セルにそのメーカーのコード゙が入力されるようにしたいのですが。
これが本当に使いやすいですか?良くあるケースで云えば
Sheet2のA1セルをアオキと入れると
Sheet2のB1セルに、Sheet3のアオキに該当するメーカー名の一覧が出てきて
Sheet2のB1セルで目的のメーカーー名を選択すると
Sheet2のC1セルにそのメーカーのコード゙が表示されるようにしたいのですが。
ではないでしょうか?
それぞれの操作が記録として残った方がわかりやすいと思うのですが。
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.3
- 回答日時:
失礼しました。
>DE列は空欄で構わないのですよね。
はい。未使用です。
>B2,C2セルも空欄で良いのでしょうか?
A2セルに、アオキ と入れるとF,G列に アオキを含む会社名が出ると思いますが如何でしょうか。
>B2には何も表示されず
B2セルに、入力規則で、 F列の抽出された会社名を選択できるよう設定してください。
C2セルには、選択肢は会社名のコードがH2セルのVlookup関数で表示されるの、その値が入るようにしました。
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.6
- 回答日時:
>9.は、入力値の種類:リスト、元の値:社名一覧でよろしかったでしょうか?
入力値の種類: リスト
元の値: =社名一覧
となり、=(イコール)が入ります。端折ってしまってすみません
あと、セルの入力・編集したセルの行のリストが反映されるので、
あらかじめA列にカタカナを入れておくのは、2度手間になります。
ありがとうございました。解決しました。hallo-2007さんの回答と同じ結果なので、悩んでいたのですが、先にご回答いただいた方をベストアンサーとさせていただきました。申し訳ありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAにてエクセルをpdf化する方法 1 2023/03/10 16:20
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
はがきについて。
-
エクセル 文字を増やしたい。
-
セルの内容表示が邪魔になる
-
Microsoft365に変えたのですが...
-
エクセルの計算
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
Excel ピボットテーブルで日付...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
Excelのチェックボックスの使い...
-
エクセル 白黒印刷で白線を印刷...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報