（Excel2007 VBA)ワークシートのコピー

質問

●質問の主旨
Excel2007において常に複数シートの最後尾のシートをコピーし、
その最後尾のシートの後ろに新しいシート名を付けるには
以下のコードをどのように書き換えればいいでしょうか？
ご存知の方よろしくお願いします。

●質問の詳細
今、「現金出納帳」を作成しています。
「現金出納帳」のファイルの中に以下のように3つのシートが並んでいます。

「23年7月」　「23年8月」　「23年9月」

今月末にはマクロ実行によって「23年9月」のシートをコピーし、

「23年7月」　「23年8月」　「23年9月」　「23年10月」

という並びにしたいと思います。
次月末は「23年10月」の後に「23年11月」のシートをコピーするつもりです。

●コード
Worksheets("23年9月").Copy After:=Worksheets("23年9月")

※使用機種はWindows Vista Excel2007 で、私はVBAの初心者です

回答No.3

jin34 · ベストアンサー

質問者様はVBA初心者とのことですので下準備はいりますが簡単なやり方で行きます。
シート名のリストを別シートに作り、追加したシート名をそこから拾ってくる流れです。
１．ワークシートを追加し、名前をつけます。ここでは「月リスト」にします。
２．.月リストシートをワークブックの一番左に移動させておきます。
３．月リストシートのセルA1から下に既存シートの名前と、先の年月の名前を入れていきます。
ここではセルA1＝月リスト、A2＝23年7月、A3＝23年8月、A4＝23年9月........という具合。セルの書式は文字列にして行なってください。
４．VBAエディターを開き、「挿入」→「標準モジュール」。追加したModule〇に以下のコードを記述。
Sub test()
Dim i As Integer
i = ThisWorkbook.Worksheets.Count '既存のシート数を取得
Worksheets(i).Copy after:=Worksheets(i)　　　'最終シートをコピーして後ろに挿入
Worksheets(i + 1).Name = Sheets("月リスト").Cells(i + 1, 1).Value　　'月リストからシート名を取得してシート名変更
End Sub

お礼

jin34様

ご回答ありがとうございます。
教えていただいた手順通り作成したら、
新しいシートに新しい任意の名前（23年10月）が
作成できました。助かりました

回答No.2

n-jun

ANo.1です。

必ず月末（月をまたがない範囲で）に行なうのなら、

Worksheets(Worksheets.Count).Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Format(DateSerial(Year(Date), Month(Date) + 1, 1), "e年m月")

こんな感じで如何でしょう。

お礼

n-jun様

ご回答ありがとうございます。

Worksheets(Worksheets.Count).Name = Format(DateSerial(Year(Date), Month(Date) + 1, 1), "e年m月")

のコード参考になりました。

新しく作成したシートに「10月1日」の日付を
入力するのその時の参考にさせていただきます。

回答No.1

n-jun

一番右のシートを更に右にコピペするなら

Worksheets(Worksheets.Count).Copy After:=Worksheets(Worksheets.Count)

こんな感じかな？

お礼

n-jun様ご回答ありがとうございます

ご回答について補足質問がございますので、
そちらの方もご確認いただければ幸いです。

補足

n-jun様

追加の質問で恐縮です。

ご回答のコードで最後尾のシート（一番右のシート）を
さらにコピーすることができました。

そのコピーした時に新しくできたシートに新しい名前を
付けるためにはどうすればよいでしょうか？

新しくできたシート名が、「23年9月(2)」ではなく、
、「23年10月」など任意の文字列の名前にするには
どうすれば良いでしょうか？

もし、ご存知であれば、幸いです。
たびたび恐れ入りますがよろしくお願い申し上げます。