先日、ある人が明細書の雛形のようなものを見せ、こう言った。
「これを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 やり方や構文的にはどうあれ、目的のものが出来たので良しとする。
by slayer0210
| 2006-02-12 17:04
| マクロ
|
カテゴリ
以前の記事
フォロー中のブログ
検索
最新のトラックバック
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||