入力画面から各月の日付に参照

質問

WINDOWS XP EXCELL2003です。
参照の図のような表を作成中です。

シートは
「入力」　とそれを月日毎に分けたシート「１～１２月」の計１３シートあります。

まず、シート「入力」の各列に入っている数式は
A列　=IF(B2="","",TEXT(B2,"mm"))　　VBAによる色付け
B列　ユーザー定義　mm/dd
C列　=IF(D2="","",COUNTA($D$2:D2))

シート「１月」の数式は
A1　=記入!M1 (2010/1/1)
C2 =A1 (2010/1/1) ユーザー定義　d

ご指導を賜りたいのは
例えば　「１月」のシートに反映する　(２月～１２月は同様の方法。)
１
「入力」の　D２　～　D４　は　「１月」の　B ４　～　B６　に
２
「入力」の　K２　～　K４　は　「１月」の　C４　D５　E６　のそれぞれに反映

ご指導の程よろしく御願いします。

回答No.1

KURUMITO · ベストアンサー

「入力」シートでは作業列を作ることにしてＦ2セルには次の式を入力して下方にオートフィルドラッグします。なお、このシートではＢ列では日付の昇順でデータが並んでいるとします。

=B2&D2

例えば1月のシートではＢ4セルには次の式を入力して下方にオートフィルドラッグします。

=IF(ROW(A1)>COUNTIF(入力!$B:$B,">="&$C$2)-COUNTIF(入力!$B:$B,">="&DATE(YEAR($C$2),MONTH($C$2)+1,1)),"",INDEX(入力!$D:$D,IF(MONTH($C$2)=1,2+ROW(A1)-1,IF(COUNTIF(入力!$B:$B,$C$2)>0,MATCH($C$2,入力!$B:$B,0)+ROW(A1)-1,MATCH($C$2,入力!$B:$B,1)+ROW(A1)))))

Ｃ4セルには次の式を入力して右横方向にオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(OR($B4="",COUNTIF(入力!$F:$F,C$2&$B4)=0),"",INDEX(入力!$E:$E,MATCH(C$2&$B4,入力!$F:$F,0)))

お礼

こんにちはMr.KURIMOTO
いつもお世話になります。
ご協力のお陰でできました。
まことに有難う御座いました。

これからもよろしく御願いします。