工作表名自动变为指定单元格里的内容/将工作表名称关联到指定单元格

在需要将工作表名称关联到指定单元格的工作表里，右键点击该工作表名称，弹出下面的选项，选择里面的“查看代码”




之后，把下面的内容复制到弹出的对话框中，形式如下




其中一定要注意是 worksheet 和change ,否则没有效果


代码有下面两种，效果是一样的，选任何一种都可以。

代码一：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$S$2" Then _
   
3.     If Target <> "" Then ActiveSheet.Name = Target
   
4. End Sub
   

复制代码

代码二：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> "$A$1" Then Exit Sub
   
4. If Target = "" Then Exit Sub
   
5. Dim Sht As Worksheet
   
6. For Each Sht In Sheets
   
7.     If Sht.Name = Target.Value Then MsgBox "有同名表格！请修改A1的值。": Exit Sub
   
8. Next
   
9. Me.Name = Target.Value
   
10. End Sub

复制代码

个人比较偏爱代码一，注意修改引用的单元格"$A$1" 时，一定要用大写字母，小写字母的话，没有反应。