出産前後の痔にはご注意!

Excelで塾生の模試の成績と学校での実際の試験結果との比較を行いたいと思っています。
bookの構成は下記のとおりです

sheet1は模試の成績のリストで、A列に塾生の名前,B列に模試の実施日,C列に模試の成績が記入されたリストがあります。(A列の名前順でソート)
(sheet1例)
A列, B列, C列
稲垣, 3/3, 50
稲垣, 3/30, 60
香取, 4/12, 40
木村, 1/20, 75
木村, 4/15, 60
木村, 5/20, 80
中居, 5/25, 100
中居, 5/30, 95
中居, 8/30, 50

sheet2は実際の試験結果のリストで、A列に学生の名前,B列に試験の実施日,C列に試験の成績が記入されたリストがあります。。(A列の名前順でソート)
(sheet2例)
A列, B列,C 列
石田, 4/1, 60
稲垣, 4/1, 80
稲垣, 4/2, 95
稲垣, 5/1, 60
香取, 5/1, 40
木村, 2/1, 75
木村, 4/1, 80
木村, 5/1, 60
田中, 4/1, 80
中居, 6/1, 100
中居, 7/2, 50
森, 7/2, 80

模試実施日と試験日との関係も分析したいため、模試から2週間以内のテスト結果を抽出し、比較したいと思っています。
その他の条件としては、
(1)抽出結果(試験の得点)はsheet1のD列に出力したい。
(2)試験の実施日が模試の実施日より2週間以上後の場合は“期間外”と表示したい。
(2)最後に模試を受けた後にまだ試験を受けていない場合は“未受”と表示したい。
(抽出結果例)
稲垣の3/3の模試場合、2週間以内に試験を受けていないためD列には“期間外”と表示
稲垣の3/30の模試の場合、D列には4/1の試験結果の“80”を表示(模試後2週間以内に2回以上試験を受けている場合は、より模試実施日に近いデータを選択し抽出)
木村の5/20の模試の場合、模試後に試験を受けていないためD列には“未受験”と表示
中居は6/1の試験の2週前以内に5/25,5/30と2回模試を受けているが、この場合両方の模試結果のD列に6/1の試験結果である100を表示

簡単なようでなかなかうまく抽出が出来ず悩んでいます。
良い方法がありましたらどうかご教授ください。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

別解


=IF(MAX((Sheet2!A$1:A$100=A1)*(Sheet2!B$1:B$100>=B1)*(Sheet2!B$1:B$100<=B1+14)),SUMPRODUCT((Sheet2!A$1:A$100=A1)*(Sheet2!B$1:B$100=LARGE((Sheet2!A$1:A$100=A1)*(Sheet2!B$1:B$100>=B1)*(Sheet2!B$1:B$100<=B1+14)*(Sheet2!B$1:B$100),SUM((Sheet2!A$1:A$100=A1)*(Sheet2!B$1:B$100>=B1)*(Sheet2!B$1:B$100<=B1+14)))),Sheet2!C$1:C$100),IF(MAX((Sheet2!A$1:A$100=A1)*(Sheet2!B$1:B$100>B1+14)),"期間外","未受"))
    • good
    • 0
この回答へのお礼

ご回答ありがとうございました。
当方の応用が利かず、今回は別の方法を採用しました。
お手数をお掛けしました。

お礼日時:2008/12/10 13:50

●E,F列作業列を使う方法


___A___B__C____D__E__F_
1_稲垣__3/3__50_期間外__2_4/1_
2_稲垣_3/30__60___80__2_4/1_
3_香取_4/12__40_期間外__5_5/1_
4_木村_1/20__75___75__6_2/1_
5_木村_4/15__60_期間外__8_5/1_
6_木村_5/20__80__未受__0___
7_中居_5/25_100___100_10_6/1_
8_中居_5/30__95___100_10_6/1_
9_中居_8/30__50__未受__0___

E1[直後の試験日がある行番号]
=MIN(IF((Sheet2!A$1:A$100=A1)*(Sheet2!B$1:B$100>B1),ROW(A$1:A$100),""))
Ctrl+Shift+Enter同時押し
下方向・↓
F1[直後の試験日]
=IF(E1=0,"",INDEX(Sheet2!B$1:B$100,E1))
下方向・↓
D1[判定]
=IF(F1="","未受",IF(F1>B1+14,"期間外",INDEX(Sheet2!C$1:C$100,E1)))
下方向・↓

●作業列なし
(激重。どちらのシートも100行が限界?)
D1[いきなり判定]
=IF(SUMPRODUCT((Sheet2!A$1:A$100=A1)*(Sheet2!B$1:B$100>B1))=0,"未受",IF(SUMPRODUCT((Sheet2!A$1:A$100=A1)*(Sheet2!B$1:B$100>B1)*(Sheet2!B$1:B$100<=B1+14))=0,"期間外",INDEX(Sheet2!C$1:C$100,MIN(IF((Sheet2!A$1:A$100=A1)*(Sheet2!B$1:B$100>B1)*(Sheet2!B$1:B$100<=B1+14),ROW(A$1:A$100),"")))))
Ctrl+Shift+Enter同時押し
下方向・↓
    • good
    • 0
この回答へのお礼

ご回答ありがとうございました。
当方の応用が利かず、今回は別の方法を採用しました。
お手数をお掛けしました。

お礼日時:2008/12/10 13:50

作業用のsheetを用意します(sheet3とします)


sheet1の内容をsheet3にコピーします
sheet3の
D列に
 =IF(A2=A1,IF(E2<>"m",IF((DATE(YEAR(B2),MONTH(B2),DAY(B2))-DATE(YEAR(B1),MONTH(B1),DAY(B1)))<14,C2,"期間外"),"未受"),"")
E列に
 "m"を入れます
(sheet1のデーターのある行の分のみ)

次に
sheet2のデーターを、コピーしたsheet3のデーターの末尾から貼り付けます
データー全体を選択して、並べ替えをします
キー1はA列
キー2はB列にします

これで一応出来るんですが、模試と本試の結果が混ざっていますので
も一度、全体をコピーして、「値」で貼り付けし、オートフィルターなどで、"m"を抽出して出来上がりです
    • good
    • 0
この回答へのお礼

ありがとうございます。今回はこの方法を応用させていただきました。

お礼日時:2008/12/10 13:17

VBAなら、試しに双方を総当たりでやってみるとか。

。。
結構複雑そう。。。
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング