[[20060520114917]]　『納品日別カレンダー作成』（よっさん）　ページの最後に飛ぶ

『納品日別カレンダー作成』（よっさん）

 以下の様な感じで、関数を使って、納品一覧表からカレンダーを作成したいのですが、
 よい方法を教えていただけないでしょうか？
 宜しく御願い致します。
 カレンダーに記載する１日あたりの件数は
  ①最大10件とし、10件以下の場合は、10件分まで空白で埋める。
  ②その週の最大件数となるように自動的に行数を決定する。
 いずれかの方法で実現したく思います。

      A     B     C     D     E     F     G     H     I     J     K     L
  1 ﾕｰｻﾞｰ  型式　台数　納期
  2 Ａ社　 Ｘ１  100   1/1
  3 Ｂ社   Ｘ２   50   1/2
  4 Ｃ社   Ｙ１  150   1/2
  5 Ｄ社   Ｚ１  100   1/2
  6 Ｅ社   Ｚ２　200   1/3
  7
  8 カレンダー
  9 1/1    月          1/2    火          1/3　  水         1/4   木  ･･･
 10 Ａ社　 Ｘ１  100   Ｂ社   Ｘ２   50   Ｅ社   Ｚ２　200
 11                    Ｃ社   Ｙ１  150
 12                    Ｄ社   Ｚ１  100
 13
 14 1/8    月          1/9    火          1/10  水          1/11  木　･･･
 15  ･
 16　･

 なかなか回答がつかないようなので.....。
 カレンダーの日付は"手入力" OR "オートフィル"でやることを前提としての一案です。

 -納期一覧表-
 	[A]	[B]	[C]	[D]
 [1]	ﾕｰｻﾞｰ	型式	台数	納期
 [2]	Ａ社	Ｘ１	100	1月1日
 [3]	Ｂ社	Ｘ２	50	1月2日
 [4]	Ｃ社	Ｙ１	150	1月2日
 [5]	Ｄ社	Ｚ１	100	1月2日
 [6]	Ｅ社	Ｚ２	200	1月3日
 [7]

 -カレンダー-
 	[A]	[B]	[C]	[D]	[E]	[F]	[G]
 [1]	1月1日			1月2日			1月3日
 [2]							
 [3]							
 [4]							
 [5]							
 [6]							
 [7]							
 [8]							
 [9]							
 [10]							
 [11]							
 [12]	1月8日			1月9日			
 [13]

 A2=IF(COUNTIF(納期一覧表!$D$1:$D$100,$A$1)<ROW(A1),"",INDEX(納期一覧表!$A$1:$D$100,SMALL(IF(納期一覧表!$D$1:$D$100=$A$1,ROW(納期一覧表!$A$1:$A$100)),ROW(A1)),IF(MOD(COLUMN(A1),3)=0,3,MOD(COLUMN(A1),3))))
                                     ^^^^                                                                         ^^^^
 としてCtrl + Shift + Enter で確定します。そして C11 までコピーします。
 これで１月１日の分は出来上がりです。

 次に１月２日の分ですが、上記式の^^^^部分$A$1を$D$1に変えてください。
 こんな要領で次々に作っていきます。 ちょっと（かなり）面倒くさいやり方ですが....
 たたき台ということでご勘弁ください。
 出来るだけ(よっさん)さん、ご提示のレイアウトをそのまま活かそうとしましたが
 $A$1を$D$1に変えなくてもよい方法が思いつきませ～ん。
  (SS)

 どうも有難うございました。
 助かりました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060520114917]] 『納品日別カレンダー作成』（よっさん） ページの最後に飛ぶ

[[20060520114917]]　『納品日別カレンダー作成』（よっさん）　ページの最後に飛ぶ