[已解决]工作簿标签与某单元格数据一致 2

乐乐2006201506

工作表中某一单元格的数据随工作表标签的变化而变化。
公式法为=RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))
求VBA代码法，谢谢！
注：代码最好在模块中，不要在ThisworkbooK中。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-19 22:49

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [a1] = Sheet1.Name
End Sub

修改工作表名.rar (7.14 KB, 下载次数: 14)

2016-5-19 22:44 上传

点击文件名下载附件





工作表事件或工作簿事件，没有直接针对"工作表更名"的事件。
以上不过是当选择不同单元格时的事件。

修改工作表名后，要看到单元格变化，将有极大可能发生SelectionChange事件，
因此，可以用该事件（间接）的来表现"工作表更名事件"。

跳转到最佳答案楼层

爱疯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [a1] = Sheet1.Name
End Sub

修改工作表名.rar (7.14 KB, 下载次数: 14)

2016-5-19 22:44 上传

点击文件名下载附件





工作表事件或工作簿事件，没有直接针对"工作表更名"的事件。
以上不过是当选择不同单元格时的事件。

修改工作表名后，要看到单元格变化，将有极大可能发生SelectionChange事件，
因此，可以用该事件（间接）的来表现"工作表更名事件"。