Excelでシート名の変更とシートを追加するマクロ

概要

Excelのシートを、〇月〇日～〇日というシート名に変更するマクロです。  

1つ目のシートから最後のシートまで、F1の値をシート名にしています。

もし同じ名前のシートがある場合は処理しません。

前のシートのA4のセルが日付の基準のセルとしています。

F1のセルの数式 は

『=TEXT(A4,"m月d日～")&TEXT(A4+6,"d日")』

としてセルの表示形式を整えています。 

これでA4のセルの値を基準として　〇月〇日～〇日　となります。
（このF1のセルがシート名となります。）

シート名の変更のコード

Sub シート名の変更() 'エラーを無視 On Error Resume Next '1つ目のシートから最後のシートまで繰り返す For i = 1 To Sheets.Count 'シートの名前をF1の名前にする Sheets(i).Name = Sheets(i).Range("F1").Value 'もし選択しているシートが最後ではない場合、次のシートへ移動 If ActiveSheet.Name <> Sheets(Sheets.Count).Name Then ActiveSheet.Next.Activate End If Next End Sub  

シート追加のコード  

また、シートを追加するマクロも作っています。

前のシートのA4のセルが日付の基準のセルとしています。

F1の値をシート名に変更しています。

  Sub シート追加() 'エラーを無視 On Error Resume Next '最後のシートを、その次のシートとしてコピーする Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count) '最後のシートのA4を選択 Sheets(Sheets.Count).Range("A4").Select 'A4に最後から1枚前のシートに7を足した数式を入れる（1週間なので+7） Range("A4") = "='" & Sheets(Sheets.Count - 1).Name & "'!RC+7" 'シート名をF1の名前にする Sheets(Sheets.Count).Name = Sheets(Sheets.Count).Range("F1").Value End Sub