嘻皮客娱乐学习网

标题: 工作表名自动变为指定单元格里的内容/将工作表名称关联到指定单元格 [打印本页]

作者: xipick 时间: 2015-1-25 17:02
标题: 工作表名自动变为指定单元格里的内容/将工作表名称关联到指定单元格
在需要将工作表名称关联到指定单元格的工作表里，右键点击该工作表名称，弹出下面的选项，选择里面的“查看代码”

(, 下载次数: 22)

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

(, 下载次数: 18)

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

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

代码一：

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

复制代码

代码二：

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

复制代码

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

欢迎光临嘻皮客娱乐学习网 (http://www.xipick.com/)