年月-連番を付与するマクロを教えて下さい。

質問

連番を付与するマクロを教えて下さい。
初心者です。
Ｂ列に値が入ったタイミングでA列に今日の年月-01の連番を付けたいと思います。
年は西暦の下2桁月2桁-数字2桁
1401-01
できれば月が変わったら連番も01スタートなら最高です。
1401-01
1401-02
1402-01
こんな感じです。
B列には下に値が無ければ順番に下の行に値が入るマクロが入っています。
初心者ゆえ説明もわかりにくいかと思いますが、よろしくお願いします。

回答No.1

mt2008 · ベストアンサー

手抜き版を作ってみました。シートモジュールに入れて下さい。
連番は2014年の1月ならA列に「1401-」で始まるデータが何個あるか数えてその数+1の連番にしています。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Count <> 1 Then Exit Sub '複数セルが更新された場合は対象外
　　If Target.Column <> 2 Then Exit Sub 'B列以外が更新された場合も対象外
　　If Cells(Target.Row, 1) <> "" Then Exit Sub 'A列に既に値が入っていても対象外
　　sYm = Format(Now(), "YYMM") & "-"
　　nCount = WorksheetFunction.CountIf(Range("A:A"), sYm & "*")
　　Cells(Target.Row, 1) = sYm & Format(nCount + 1, "00")
End Sub

お礼

お礼が遅くなり、申し訳ありません。
できました～。すごいですね！
ホントに助かりました。
ありがとうございました(^^)