シート追加時に特定セルの値を自動的に増分させる方法

シート追加時に特定セルの値を自動的に増分させる方法

エクセルの初心者です。
検索した限りでは類似したものがなかったので質問させてください。
もし質問内容が重複していたら恐縮です。

当方MS Excel 2003を使っています。
現在見積書を作成しており、一つのブックにテンプレートのシートをコピーしながら作成しています。シートのコピー時には、その都度書類番号を１ずつ増加させて手で打ち直しています。

そこで、シート１をコピーした際に、シート２のセルＡ１の数値を自動的に増加させたい（＝シート１、Ａ１の数値＋１）と考えたのですが、何か方法はありますでしょうか。

（例）
【シート1】セルＡ１、値：０５１６－０１
→［シートのコピー］末尾にコピー
→【シート2】セルＡ１、値：０５１６－０２

ご教授いただければ幸いです。
宜しくお願いします。

No.1 ベストアンサー 回答者： web2525 回答日時： 2010/05/16 16:40

コピーしたシートのA1セルにはコピー元のsheet1のA1セルの情報が入るわけなので関数式で処理はできません

sheetのコピー自体をマクロ化してマクロ内での書き込みが必要です

例：
Sub Macro1()
c = Worksheets.Count
Sheets(1).Copy After:=Sheets(c)
Range("A1") = Sheets(c).Range("A1") + 1
End Sub

sheet1のA1セルは数値で入力が必要
4ケター2ケタの値が必要ならばセルの書式設定で表示形式を
0000-00
と設定して例の値入力時には051601と入力してください
文字列として入力されている場合はマクロでの連番入力がややこしくなります。

この回答へのお礼

わかりやすいご説明とご回答ありがとうございます。
マクロを使うんですね。効率的で他にも活用できそうです！
勉強になります。ありがとうございました！！

お礼日時：2010/05/16 22:16