エクセルのシートの名前をオートフィルする方法

質問

エクセルのシートが「Sheet１」となっていますが、「1月」と名前を変えて、オートフィルなどで、「Sheet２」以降を「２月」「３月」「４月」・・・というように名前を自動でつけて増やすことは出来ないのでしょうか？オートフィルでなくても、設定などであらかじめ新規に開くと「Sheet１」ではなく「１月」「２月」「３月」「４月」・・・とすることでもかまわないのですが。どなたか知っている方がいらっしゃいましたらよろしくお願いします。

回答No.3

imogasi · ベストアンサー

オートフィルはセルの値だけのものです。
普通の操作では、できないでしょう。
VBAで
Sheet1のA1以下に、オートフィルで
０６年１月
０６年２月
０６年３月
０６年４月
０６年５月
・・・
を作る。
標準モジュールに下記を貼り付けて実行。
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
MsgBox Worksheets("Sheet1").Cells(i, "A")
Worksheets.Add.Name = Worksheets("Sheet1").Cells(i, "A")
Next i
End Sub
０６年１月以下のシートができます。
コピーして、Sheet2と同じ様式のものを作るなら
Sub test02()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
MsgBox Worksheets("Sheet1").Cells(i, "A")
Worksheets("Sheet2").Copy After:=ActiveSheet
ActiveSheet.Name = Worksheets("Sheet1").Cells(i, "A")
Next i
End Sub

回答No.2

toshi_2000

No1.です。
１０月以降対応版です。（シートを追加すると自動でシート名がつきます）
Private Sub Workbook_NewSheet(ByVal Sh As Object)
If Mid(Sheets(Sheets.Count).Name, 2, 2) = "月" Then
LASTNAME = Left(Sheets(Sheets.Count).Name, 1)
Else
LASTNAME = Left(Sheets(Sheets.Count).Name, 2)
End If
ActiveSheet.Name = (LASTNAME + 1) & "月"
Sheets(ActiveSheet.Name).Move After:=Sheets(Sheets.Count)
End Sub

回答No.1

toshi_2000

すでに"1月"というシートがある場合、次のようになります。
Workbookにマクロを割り当ててください。（１０月までしか対応していません）
Private Sub Workbook_NewSheet(ByVal Sh As Object)
LASTNAME = Left(Sheets(Sheets.Count).Name, 1)
ActiveSheet.Name = (LASTNAME + 1) & "月"
Sheets(ActiveSheet.Name).Move After:=Sheets(Sheets.Count)
End Sub