[已解决]VBA工作表标签随单元格内容变化

武林长风

F2单元格是通过函数公式计算得来的，现在想让工作表标签随F2单元格变化，请用VBA。实际上，这个工作簿并非一个表，还有6个，VBA要适用这个工作簿的所有工作表。 新建文件夹.rar (7.71 KB, 下载次数: 12)

2013-9-27 08:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-27 09:15

我心飞翔410 发表于 2013-9-27 09:14
你看看代码啊 相应的改哈嘛

适合所有工作表的

跳转到最佳答案楼层

sgxb123431380

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        Sh.Name = Sh.Range("F2").Value
End Sub

将上面的代码写在此表格的thisworkbook里面

木牙水

1. Sub aa()
   
2.     Dim i As Integer
   
3.       For i = 1 To Worksheets.Count
   
4.       Worksheets(i).Name = Worksheets(i).Range("F2").Value
   
5.     Next i
   
6. End Sub
   

复制代码

武林长风

sgxb123431380 发表于 2013-9-27 08:38
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        Sh.Nam ...

运行中出现错误。

武林长风

木牙水 发表于 2013-9-27 08:45

工作表标签没有随单元格内容的变化而变化。

神奇网格

武林长风 发表于 2013-9-27 08:52
运行中出现错误。

3楼答案最佳了

武林长风

神奇网格 发表于 2013-9-27 08:55
3楼答案最佳了

但标签没变化。

木牙水

武林长风 发表于 2013-9-27 08:58
但标签没变化。

代码是写在模块中的，你可以在汇总的工作表中插入一对象，指定宏，运行程序

武林长风

木牙水 发表于 2013-9-27 08:45

我插入模块了，还是不行，要不你做完附件传上。

我心飞翔410

武林长风 发表于 2013-9-27 09:04
我插入模块了，还是不行，要不你做完附件传上。

最佳到手