Excelのシート名を任意のセルの情報にする

質問

お読みいただき有り難うございます。

任意のセルの入力内容をシートのタブ名に自動で反映されるようなことはできないでしょうか？
具体的には、例えばA1に「東京都」と入力すると、Sheet2のタブに「東京都」と反映され、B2に「大阪府」と入力するとSheet3のタブに「大阪府」と反映されるような物を考えています。
こんなことできるのでしょうか？

よろしくお願いします。

回答No.3

tom04 · ベストアンサー

こんにちは！

＞例えばA1に「東京都」と入力すると、Sheet2のタブに「東京都」と反映され、B2に「大阪府」と入力すると

入力するセルに規則性がないとなんとも致し方ないのですが・・・

A1　→　B2　セルではなく、　A1　→　B1　→　C1　・・・と1行目に入力するとします。
画面左下の「Sheet1」またはSheet見出しの一番左側のSheetが入力用のSheetとします。
そのSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストして1行目にSheet名にしたいデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim k As Long, cnt As Long, myFlg As Boolean
If Application.Intersect(Target, Rows(1)) Is Nothing Or Target.Count <> 1 Then Exit Sub
With Target
cnt = .Column + 1
If .Value <> "" Then
For k = 2 To Worksheets.Count
If Worksheets(k).Name = .Value Then
myFlg = True
Exit For
End If
Next k
If myFlg = True Then
MsgBox "同じシート名が存在します" & vbCrLf & "別のシート名を入力してください。"
.Select
Exit Sub
ElseIf cnt <= Worksheets.Count Then
Worksheets(cnt).Name = .Value
Else
Do Until Worksheets.Count = cnt
Worksheets.Add after:=Worksheets(Worksheets.Count)
Loop
Worksheets(Worksheets.Count).Name = .Value
End If
End If
End With
Worksheets(1).Activate
End Sub 'この行まで

※　あくまで一案です。m（_ _）m

補足

有り難うございます。
ぴったり意図通りです。実装にもう少しお知恵をお借りするかもしれないので、お礼入力はもう少しお待ちください。