任意のシートを必要分だけコピーする(12枚)

先日、ある人が明細書の雛形のようなものを見せ、こう言った。
「これを12か月分欲しいから、ケツに12枚コピーして、シートの名前も変更しといて」と。
ちょうど暇だったので、手作業でコピーしても良かったのだが。

Sub シートコピー()
 Dim i As Integer
   For i = 1 To 12
     ’雛形がシート1にあったのだ
     Sheets(1).Copy after:=Sheets(Sheets.Count)
     ActiveSheet.Name = i & "月明細書"
   Next
End Sub
e0080122_1725996.gif

やり方や構文的にはどうあれ、目的のものが出来たので良しとする。
[PR]
by slayer0210 | 2006-02-12 17:04 | マクロ


<< 郵便番号と住所の関係 オートナンバーのような感じで連番 >>