- 締切済み
エクセルで 複数のデータを検索して複数表示させたいのですが・・・。
エクセルで在庫の場所がチェックできる下記のような物を作りたいと考えています。 在庫リスト シート1 Ａ Ｂ Ｃ 1行目 商品名 色 場所 2行目 あいう 赤 Ａ1 3行目 かきく 黄 Ａ2 4行目 さしす 青 Ａ3 5行目 あいう 黄 Ａ4 6行目 かきく 青 Ａ5 ・ ・ ・ ・ 在庫リスト シート2 Ａ Ｂ Ｃ 1行目 商品名 色 場所 2行目 あいう 青 Ｂ1 3行目 かきく 緑 Ｂ2 4行目 さしす 桃 Ｂ3 5行目 あいう 茶 Ｂ4 6行目 かきく 桃 Ｂ5 ・ ・ ・ ・ 上のような表を作成し、別のシート（シート3）で 検索名 あいう と打ち込むと 赤 Ａ１ 黄 Ａ４ 青 Ｂ１ 茶 Ｂ４ という具合に同じ商品を検索し、色と場所を全て表示させるようなものをエクセルで作成できたらと思っています。可能でしょうか？また、可能であればどのような関数を使って作成したらよいのかを教えていただきたいです。vlookupが使えるかと思ったのですが、それだと一番上のデータ（この例でいけば 赤 Ａ１）のみの表示になってしまい、使えませんでした。 あと、欲を言えば、 商品名を全て打ち込みをしなくても、一部のみ（この例でいけば 「あいう」 ではなくて 「あい」のみ）を打ち込むだけでその字を含む商品名を検索し、表示してくれるような表記の仕方があるともっとありがたいです。在庫リストは在庫の場所ごとに複数のシートに分かれています。 よろしくお願いします。
- みんなの回答 （6）
- 専門家の回答
みんなの回答
- id-sakura
- ベストアンサー率0% (0/0)
- mitarashi
- ベストアンサー率59% (574/965)
- imogasi
- ベストアンサー率27% (4737/17070)
- mitarashi
- ベストアンサー率59% (574/965)
最近検索に凝っていて、色々なバリエーションを試しています。関数ではありませんが、ご参考までに呈示します。検索部と、出力部を分けているのは、単なる趣味です。 検索を行うブックに、検索結果表示用のシート：search を設け、標準モジュールに下記のコードを入れます。このシート以外の全てのシートを検索対象とします。 セル配置は下記の通り。 ........A......................B.................. 3.......キーワード........................ 4.......あい..................................... 5.......検索結果.......................... 6.......黄....................Ａ4............... 7.......赤....................Ａ1............... 8.......茶....................Ｂ4............... 9.......青....................Ｂ1............... Sub test() Dim matchWord As Variant Dim sh As Worksheet Dim findResult As New Collection Dim hitRange As Range, destrange As Range, findItem As Range Dim myCell As Range, myArea As Range matchWord = Sheets("search").Range("a4").Value Set destrange = Sheets("search").Range("a6") For Each sh In ThisWorkbook.Worksheets If sh.Name <> "search" Then Set hitRange = myFind(sh.UsedRange, matchWord, xlPart) If Not hitRange Is Nothing Then findResult.Add Item:=hitRange End If End If Next sh For Each findItem In findResult For Each myArea In findItem.Areas For Each myCell In myArea.Cells destrange.Value = myCell.Offset(0, 1).Value destrange.Offset(0, 1).Value = myCell.Offset(0, 2).Value Set destrange = destrange.Offset(1, 0) Next myCell Next myArea Next findItem End Sub '検索でヒットしたセル群を戻す関数 Private Function myFind(target As Range, findValue As Variant, findMode As Variant) As Range Dim c As Range Dim firstAddress As String With target Set c = .Find(findValue, LookIn:=xlValues, LookAt:=findMode, MatchCase:=False, MatchByte:=False) If Not c Is Nothing Then firstAddress = c.Address Do If myFind Is Nothing Then Set myFind = c Else Set myFind = Union(c, myFind) End If Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With End Function
お礼
貴重なお時間を使ってご回答いただき、誠にありがとうございます。エクセル素人の為、順番にやらせていただいているので、お礼に時間がかかってしまい、申し訳ございません。教えていただいた情報は無駄にせず、参考にさせていただきます。また色々教えてください。よろしくお願い申し上げます。
- hallo-2007
- ベストアンサー率41% (888/2115)
元データが2枚あるのが厄介です。 作業列入れますが シート３ A B C 1あいう 2 １ 3 ２ ・・・ シート３のA1に検索文字（あいう）入れます。 A2以下に １，２，３・・と番号を入れておきます。 シート１のA列に1列挿入 =COUNTIF(B2:B$2,シート3!A$1) 下へコピィ シート２も同様 =COUNTIF(B2:B$2,シート3!A$1) 下へコピィ シート３のB2セルに =IF(A3<=MAX(シート1!A:A),VLOOKUP(A3,シート!A:D,3,FALSE),VLOOKUP(A3-MAX(シート1!A:A),シート2!A:D,3,FALSE)) C2セルに =IF(A3<=MAX(シート1!A:A),VLOOKUP(A3,シート!A:D,4,FALSE),VLOOKUP(A3-MAX(シート1!A:A),シート2!A:D,4,FALSE)) B２、C2セルを下へコピィしてみてください。
お礼
貴重なお時間を使ってご回答いただき、誠にありがとうございます。エクセル素人の為、順番にやらせていただいているので、お礼に時間がかかってしまい、申し訳ございません。教えていただいた情報は無駄にせず、参考にさせていただきます。また色々教えてください。よろしくお願い申し上げます。
- 某HN クロメート(Chromate)（@CoalTar）
- ベストアンサー率40% (705/1742)
マクロの記録で試してみました Sheet1においてシート1、シート2を連結します 1. シート1でA1セルを選択し、 1.5 マクロの記録の[相対参照]にする 2. [Ctrl]+[Shift]+[↓] 3. [Shift]+[→] 4. [Shift]+[→] 5. コピー 5.5 マクロの記録の[相対参照]を解除する 6. Sheet1のA1セルを選択して貼り付け 7. シート2でA1セルを選択し、 7.5 マクロの記録の[相対参照]にする 8. [Ctrl]+[Shift]+[↓] 9. [Shift]+[→] 10. [Shift]+[→] 11. コピー 12. Sheet1を選択する 13. [Ctrl]+[↓] 14. [↓] 15. 貼り付け 15.5(マクロの記録の[相対参照]を解除する) 16. [Esc] 以上をマクロの記録で記録します また、このSheet1で名前も定義します [Ctrl]+[F3]名前の定義 名前 桜 参照範囲 =$A$1:INDEX($C:$C,COUNTA($A:$A)) 抽出するシートにおいて A B C 1 商品名 2 か* 3 4 商品名 色 場所 まで書いておきます(A2セルは抽出条件) 1. 抽出するシートを選択する 2. データ - フィルタ フィルタオプションの設定 3-1. 抽出先 指定した範囲 3-2. リスト範囲 桜 3-3. 検索条件範囲 $A$1:$A$2 3-4. 抽出範囲 $A$4:$C$4 3-5. [OK] 以上をマクロの記録で記録します [Alt]+[F11]VBEで上記で記録されたモジュールを連結します ボタンなどにマクロを登録します
お礼
エクセル素人の為、実行に時間がかかり、お礼が遅れまして申し訳ございません。貴重なお時間を使ってご回答いただき、誠にありがとうございました。細かく説明書きをしていただき、大変わかりやすかったです。早速教えてもらった通りに試してみました。 最後の ＞[Alt]+[F11]VBEで上記で記録されたモジュールを連結します の部分で、マクロ１とマクロ２の連結の仕方がどうしてもわかりませんでした。ネットで検索してみてもイマイチ答えが見つからず・・・＞＜ 具体的な方法、又は、やり方が書いてあるようなURLがありましたら教えていただけると大変ありがたいです。 よろしくお願い申し上げます。
お礼
貴重なお時間を使ってご回答いただき、誠にありがとうございます。エクセル素人の為、順番にやらせていただいているので、お礼に時間がかかってしまい、申し訳ございません。教えていただいた情報は無駄にせず、参考にさせていただきます。また色々教えてください。よろしくお願い申し上げます。