見積書をエクセルで作成時に連番をふりたい。

見積書をエクセルで作成しています、セルに見積書番号を付けたいのですが自動で連番を書き込む事はできますか？
見積書のエクセルファイルを開いたときに番号が１つ増えて番号が記入されていく様にしたいと思っています。

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2006/07/11 16:53

VBAになりますね。

Private Sub Workbook_Open()
Sheets("見積書").Cells(1, 1) = Sheets("見積書").Cells(1, 1) + 1
End Sub

これでA1に連番がはいります。

この回答への補足

アドバイスありがとうございます。
VBAは未知でもうしわけありませんが、セルM4に連番が入る様にしたいのですが、どの様にしたら連番になるのでしょうか。

よろしくお願い致します。

補足日時：2006/07/12 10:08

No.2 回答者： mu2011 回答日時： 2006/07/11 16:59

逆の発想で見積エクセルファイルが先に作成されるとして、そのファイル名の番号を見積番号とする方法では駄目でしょうか。

例えば、見積ファイルが見積－ｘｘｘｘｘｘ．ｘｌｓとして見積番号セルにｘｘｘｘｘｘを取り出します。
=MID(CELL("filename"),FIND("[",CELL("filename"))+4,6)