【Excel2003】検査値を対象の列から条件付で抽出表示する方法

質問

はじめまして
タイトルをどう書けば良いか悩んだのですが
質問の内容は以下になります

とあるデータ
sheet1
　　　　　Ａ　　　　　Ｂ
１　出庫品番　　出庫予定日
２　012345-A00　　2007-12-06
３　01234567890　　2007-11-06
４　01234567890　　2007-11-06
５　01234567890　　2007-11-13
６　01234567890　　2007-12-04
７　123-09876C　　2007-12-10
８　123-09876C　　2008-01-07
・
・

sheet2
　　　　　Ａ　　　　　Ｂ　　　　　Ｃ
１　納品品番　　納入予定日　　出庫予定日
２　012345-A00　　2007-12-06　　2007-12-06
３　01234567890　　2007-11-05　　2007-11-06
４　01234567890　　2007-11-12　　2007-11-13
５　01234567890　　2007-12-03　　2007-12-04
６　123-09876C　　2007-12-09　　2007-12-10
７　123-09876C　　2008-01-06　　2008-01-07
・
・
関数の式で求めたいものはsheet2のＣ列でして

sheet2の納品品番をsheet1の出庫品番から検索し
同一品番のsheet1出庫予定日を表示する
なお、出庫予定日は、納入予定≦出庫予定で
間は最短日にならなければいけない

という物なのですが
VLOOKUPやMATCH・INDEXなど調べてはみたのですが
うまく表示することができず困っております

簡単な式であれば望ましいですが
関数やVBAなど特に縛りはありませんので
なにかご教授頂ければ幸いです

回答No.2

n-jun · ベストアンサー

・日付は「標準」から「日付」になっていて、納入品番毎で日付順
であった場合に参考になるかものサンプルです。

Sub　Test()
　Dim　v　As　Variant,　vv　As　Variant
　Dim　i1　As　Long,　i2　As　Long

　With　Worksheets("Sheet1")
　　　　　　v　=　.Range(.[A2],　.Cells(Rows.Count,　2).End(xlUp)).Value
　End　With

　With　Worksheets("Sheet2")
　　　　　　vv　=　.Range(.[A2],　.Cells(Rows.Count,　2).End(xlUp)).Value

　　　　　　For　i2　=　1　To　UBound(vv,　1)
　　　　　　　　　　For　i1　=　1　To　UBound(v,　1)
　　　　　　　　　　　　　　If　vv(i2,　1)　=　v(i1,　1)　And　vv(i2,　2)　<=　v(i1,　2)　Then
　　　　　　　　　　　　　　　　　.Range("C"　&　i2　+　1).Value　=　v(i1,　2)
　　　　　　　　　　　　　　　　　Exit　For
　　　　　　　　　　　　　　End　If
　　　　　　　　　　Next
　　　　　　Next
　End　With
End　Sub
ご確認願います。

お礼

＜n-junさん
ありがとうございます
上記コードにて意図された通りの表示を行うことが出来ました

コードの意味は自分で勉強してみようと思います＾＾

また何かございましたら
何卒よろしくお願い致しますm(_ _)m

回答No.1

n-jun

>2007-12-06
この表示は、日付を「表示形式」で表示してますか？
それとも、文字列扱いですか？

納入予定日は納入品番毎に昇順に並んでますか？

お礼

＜n-junさん
回答頂きありがとうございます

#この表示は、日付を「表示形式」で表示してますか？
いいえ、表示形式は変えておらず
「標準」のままです
変更することも特に問題はありません

#納入予定日は納入品番毎に昇順に並んでますか？
品番を最優先に昇順並び替えをし
日付を２番目に優先して昇順並び替えしております
※生データはバラバラですが
※並び替えについても特に問題はありません