エクセルを使って開くたびに証明書番号表示したい。

質問

エクセルを使っています。（office2003）
仕事上証明書番号をつけなければならなく、困っています。

ひとつの雛形を元に、そのファイルが開くたびに、証明書番号がW313【001】←【】は実際つけません。
【】の中の数字をファイルを開くたびに連番で番号を振っていきたいのですがやり方がわかりません。
どうぞ教えてください、
宜しく御願い致します。

回答No.1

monamucho · ベストアンサー

ワークブックを開く度に、連番で番号を振っていく例を示します。

１）雛形のワークブックファイルのWorkbook_Open()イベントに下記のコードを貼り付けて保存します。

Private Sub Workbook_Open()
With Worksheets(1).Range("A1")
.Value = Val(.Value) + 1
End With
End Sub

２）雛形のワークブックファイルのシート１のセルA1に数字の"0"を入力します。

３）雛形のワークブックファイルのシート１のセルB1に下記の計算式を入力します。

="W313【"&TEXT(A1,"000")&"】"

４）雛形のワークブックファイルを保存して閉じます。

５）雛形のワークブックファイルを再度開くと、セルB1の値が"W313【001】"に変わります。

６）雛形のワークブックファイルを閉じて再度開く度に連番で番号が振られていきます。

以上、ご参考まで。

お礼

有難う御座います。早速やって見ます。
しかし、

１）雛形のワークブックファイルのWorkbook_Open()イベントに下記のコードを貼り付けて保存します。

ここがわかりません。
もしよろしければ教えてください。