有没有办法让工作表中的某个单元格内容与工作表名称自动保持一致?

来源：百度知道 编辑：UC知道 时间：2024/07/07 14:12:37
要求:
假定单元格"A1"为监视单元格,当工作表名称由"sheet1"的改变为"模板"后"A1"内容也自动变为"模板"
谢谢
多谢举人、大魔法师先生，对VBA本人道行尚浅实在不知如何操练。定义名称的方法我试过了，可以工作。但可能未说明清楚，这个方法的实际效果只能监视第一页的工作表名称，但不是当前工作表的。我需要的是跟踪当前工作表名称的方法。请不吝赐教谢谢

1.
定义"工作表"
工作表=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,LEN(GET.WORKBOOK(1)))
或者:
工作表=RIGHT(GET.WORKBOOK(1),LEN(GET.WORKBOOK(1))-FIND("]",GET.WORKBOOK(1)))
输出全部工作表,公式为:
=INDEX(工作表,ROW(1:1))
输出全部工作表并建立链接,公式为:
=HYPERLINK("#"&INDEX(工作表,ROW(1:1))&"!a1",INDEX(工作表,ROW(1:1)))
2.
用工作表中的值命名工作表
Sub 引用单元格数据命名工作表()
On Error Resume Next 'ignore
Application.Calculation = xlCalculationManual 'Manual
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Name = Cells(i, 1).Text
Next
Application.Calculation = xlCalculationAutomatic 'Auto
End Sub

其中，更改代码“For i = 1 To Sheets.Count”中的1的值为2，可从第二个工作表开始重命名；更改代码“Sheets(i).Name = Cells(i, 1).Text”中1的值为2，可从B列中提取单元格数值。
3.
用代码
Sub 引用工作表命名()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub
其中，更改代码“For i =