|
おはようございます。
すみません。
なんかめっちゃくちゃに勘違いしていたようです。
昨日、家でテンプレート形式を前提でぐちゃぐちゃと色々考えたら、なんか複雑になりすぎてしまって...。
テンプレート自身にカウンタを設けるのは容易でないと言うことになりました。
結局、普通のブックをテンプレートの変わりとして、ベースブックのシートを複製した方が簡単なので、そっちにしました。
見積書と言うことなので軽そうだし。
見積書ってシート1枚だけですよね?
シートモジュールにマクロが書いていなければ、削除とか必要も無いし...。
これじゃダメですか?
標準のジュール
Sub Auto_Open()
Application.ScreenUpdating = False
With ThisWorkbook
'With .Sheets(2) 'シート1枚だけならここから(2枚と仮定)
' .Copy
'End With 'ここまでいらない。
With .Sheets(1)
With .Range("A1")
.NumberFormatLocal = "000"
.Value = .Value + 1
End With
.Copy 'シート1枚だけならこっちを使用
'.Copy Before:=ActiveWorkbook.Sheets(1)
End With
DoEvents
.Close (True)
End With
Application.ScreenUpdating = True
End Sub
|
|