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

解決済

質問者：akame_hiro
質問日時：2013/12/27 00:48
回答数：1件

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

No.1ベストアンサー

回答者： monamucho
回答日時：2013/12/27 02:43

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

１）雛形のワークブックファイルの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】"に変わります。

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

以上、ご参考まで。