エクセルの関数かマクロでの採番について

質問

以下の様な表があります。

A　　　　　 　B
201201-001　2012/01/01
201201-002　2012/01/03
201201-003　2012/01/05
201201-004　2012/01/05
201201-005　2012/01/08
201201-006　2012/01/09
　　　・　　　　　　・
　　　・　　　　　　・
　　　・　　　　　　・

・A列に入力する項番はB列の日時のYYYYMM-[(1)]
・B列に入力する日付は不定日時

質問事項
[1]B列に日時が入力されたらA列に自動採番する。
[2]毎月20日になったら、A列の上記(1)を001に戻す。
[3]月が変わったらA列のMMをB列の入力月と連動させる。

こんな感じにしたいです。
A　　　　　　　 B
201201-001　2012/01/01
201201-002　2012/01/03
201201-003　2012/01/05
201202-004　2012/02/03　←○
201202-005　2012/02/15
201202-006　2012/02/18
201202-001　2012/02/21　←○
201202-002　2012/02/29
201203-003　2012/03/01　←○
201203-004　2012/03/10

よろしくお願いします。

回答No.1

KURUMITO · ベストアンサー

B列の2行目から下方にお示しの日付のデータが有るとします。
A2セルには次の式を入力して下方にオートフィルドラッグコピーします。

=IF(B2="","",TEXT(B2,"YYYYMM")&"-"&TEXT(IF(ROW(A1)=1,1,IF(AND(DAY(B2)>=20,DAY(B1)<20),1,RIGHT(A1,3)+1)),"000"))

お礼

ありがとうございました！試してみます。

回答No.3

mt2008

ANo.2です。

> Ｂ列に日付を入力することで、Ａ列には質問内容の条件付きでユニークの連番を付与する処理を探しています。

どのような項番にするかは業務内容や、他の影響もあるでしょうから「そちらでちゃんと決めてください」としか言いようがありませんが、19日までは前月の月を使う訳にはいかないのでしょうか。
それが一番しっくりくるように思えます。

A　　　　　　　 B
201201-001　2012/01/01
201201-002　2012/01/03
201201-003　2012/01/05
201201-004　2012/02/03
201201-005　2012/02/15
201201-006　2012/02/18
201202-001　2012/02/21
201202-002　2012/02/29
201202-003　2012/03/01
201202-004　2012/03/10

そうでなければ、1～19日までは項番の最後に「A」、20日～月末までは「B」を付ける等でしょうか。

お礼

？

回答No.2

mt2008

質問文の条件通りですと、
B列に2012/1/20～2012/1/31の日付がない状態で、2012/2/1と2012/2/20がある場合、どちらもA列の番号は201202-001になってしまいますがそれで良いのでしょうか？

お礼

？

補足

言葉足らずですみません。
Ｂ列に日付を入力することで、Ａ列には質問内容の条件付きでユニークの連番を付与する処理を探しています。

実際には発注のあった日付をＢ列に入力すると正確に自動採番する処理を探しています。
採番条件にある処理を入れる事で、人為的な採番ミスを防ぐのが目的です。