書式付きの自動採番の件（ＥＸＣＥＬ）

質問

いつも本当に本当にお世話になっています。
感謝、感謝！！

こんな質問もしていますが・・・
http://okwave.jp/qa3973267.html
それ以上に困っているのが、
やっと自動記録に、ＯＫＷｅｂから拝借のＶＢＡ差替えとかで、
なんとかいろいろやってみました。
（質問の内容はまだですが・・・）

やっと・・・終わりが見えたときに、つまづきました。
（見積台帳と見積書の２つのＥＸＣＥＬファイルの運用です）

見積書の番号が、SEC01-20080001の体系で、
今年度は0001がカウントアップするので、
例．
見積台帳の
A1のセルに使用された最後の番号（123とか）
A2のセルに1
A3のセルにA1のセルとA2のセルを足す式を入れ、
A3に、"SEC01-2008"と"0000"の書式を入れたのです。
（使用後のカウントアップは自動記録で出来ています）

これで、見積台帳から、見積書のファイルの表紙のシートには、
きちんと書式付きのSEC01-20080001の体系でコピーされるのですが、
他に見積書のシートでは表紙の見積書の番号が、
明細のシートの見積書の番号にもコピーの式が入っているおり、
その値がただの数字になってしまうのです。【困っていること】
見積書のレイアウト・書式を直す方法も有るのですが、
それでは、"2008"の部分を関係で毎年差替えなくてはならず、
利用者がたくさんいるのでこれも出来ません。

もう、ＶＢＡで何か、記述するようにしないと、
自動記録だけでは出来ないのでしょうか？
出来れば、"2008"の部分は、
見積台帳の有るセルに値として入れておいて新年度楽にしたいですが、
（私がいつまで面倒見るかわからない・・・）
最悪は"2008"もＶＢＡに記述でも構いません。

質問が、細かすぎて、わかりにくかったら、
補足します。
私に質問して下さい。

宜しくお願い致します。

回答No.1

redfox63 · ベストアンサー

『SEC2008-01』の2008を西暦からとっているのであれば
どこかのセルにその元になる日付を入力しておくと決めます
たとえば B1セルなど
で A1セルには =B1 と言った数式を設定
書式設定で "SEC01-"yyyy として起きます
これで『SEC01-2008』が出来ます

A3セルですが ここの数式を
=TEXT(A1,"""SEC01-""yyyy") & TEXT(A2,"0000")
としてやれば『SEC01-20080001』 といった文字列が作成で来ます

他のシートから =Sheet1!A3 といった数式で参照すれば
『SEC01-20080001』を代入出来ますよ

お礼

出来ました。
どうも有難うございました。
感謝です。