エクセルのワークシート（テンプレート）に自動連番を付けられますか

テンプレートを開くたびに既に使った連番＋１が自動的に決められたセルに書き込まれるようにしたいということだと思いマクロを書いてみました。はずしていたら読み飛ばして下さい。 キー記録での方法はよく分かりませんので直接書いています。 まず、自動ではありませんが、例えばA1セルに[No.000000]を設定したい場合、 　A1:="[No."&RIGHT("00000"&B1,6)&"]" としてB1に数値を入力する方法はどうでしょう？B1セルの色を白にするとか、セルの書式設定→表示形式のユーザー設定でスペース１つを設定しておけばB1は表示されません。個人的に使用するならB1を覚えておいて入力すればいい？次はむりやり自動的に表示する方法です。 この質問は今回使う連番をどうやって決めるかが要点だと思います。テンプレートに書き込んでおくのも面倒ですし、既に作成したファイルをサーチするのも重い処理になってしまいます。 そこで、テキストファイルを用意して、このファイルに記録した番号を使うようにしています。 ファイルには次に使われる連番をセットしておきます。ハードディスクのどこかのフォルダにメモ帳等を使って次に使う番号を書いたテキストファイルを作ります。（101番だったら101を入力します） このファイルのフルパスは下記マクロにセットします。 テンプレートの Workbook_Openイベントに書き込みます。（手順は下に） 　　ツール→マクロ→Visual Basic Editor でＶＢＥ画面に移ります。 　　表示→プロジェクトエクスプローラ でプロジェクトエクスプローラを表示し、 　　ThisWorkbook をダブルクリックしてエディット画面を出します。 　　下記のコードをコピーして貼り付けます。 　　次に使う番号を書いたテキストファイル名と、自動連番をセットするシート名とセル番地は 　　ご自分のものに合うように変更して下さい。（「これは例です」と書いた箇所です） 次に、自動連番をセットするセルは未入力状態にします（クリアしておきます） 終ったらテンプレートとして保存して下さい。(xlsファイル形式でテストして完成したらテンプレートにしたらどうでしょうか) 欠点・・・ xlsファイルとして保存してもマクロが残ってしまいます。 m(_ _)m ただし、連番を登録するセルに既に入力（xlsファイルになっている）があれば更新しません。 テンプレートを開いた時点でテキストファイルの連番が更新されるため、そのファイルを保存しなければ連番が飛ぶことになってしまいます。手で修正が必要です。 参考になればと思い作りました。 '***使用済み最終番号を書いたファイル名 Const renbanFile = "A:\Renban\RenbanData.txt" 'これは例です 'テンプレートを開いた時点で連番を読込みシートに書く Private Sub Workbook_Open() '書き込む位置の定義 Dim rg As Range '自動連番をセットするセル Set rg = Worksheets("Sheet1").Range("A1") '***これは例です If rg <> "" Then Exit Sub '既に書かれていれば何もしない End If Dim fileNo As Integer 'ファイル番号 Dim renban As Long '連番 '連番の入力 fileNo = FreeFile Open renbanFile For Input As #fileNo Input #fileNo, renban: Close '連番を書き込む rg = "[No." & Right("000000" & renban, 6) & "]" '連番の更新(次回使う番号を書込み) Open renbanFile For Output As #fileNo Print #fileNo, renban + 1: Close End Sub