作者：绿色风
分类：
时间：2022-08-18
浏览：111
楼主
棉花糖 |
当工作簿中有很多表示，定位会比较麻烦，一般是用手工建立连接。不过更改工作表名和增加工作表，会增加工作量，今天从书上看到一个一劳永逸方法，跟大家分享。
- Private Sub Worksheet_Activate()
- Dim wSheet As Worksheet
- Dim l As Long
- l = 1
- With Me
- .Columns(1).ClearContents
- .Cells(1, 1) = "索引"
- .Cells(1, 1).Name = "索引"
- End With
- For Each wSheet In Worksheets
- If wSheet.Name <> Me.Name Then
- l = l + 1
- With wSheet
- .Range("A1").Name = "Start" & wSheet.Index
- .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _
- "索引", TextToDisplay:="回到索引页"
- End With
- Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
- SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
- End If
- Next wSheet
- End Sub
 |
2楼
无心为爱 |
建议楼主曾加一些说明，或是演示。
那样看帖的人更容易理解和运用。 |
3楼
xpm130 |
试了下，系统弹出“编译错误：无效使用ME关键字”。运行不了，不知为什么 |
4楼
gvntw |
函数制作示例：
|
5楼
棉花糖 |
我想版主没看明白，这个代码支持表格删除新建，和更换次序。而且内容都是自动生成的，比宏表函数要方便。提供附件
 建立索引.rar
|
6楼
棉花糖 |
内容摘自excel hacks第二版,里面的技巧都很实用,当然函数部分本人觉得很一般 |
7楼
cyy1905 |
今天刚好有这个需求，太好了，复制粘贴一运行就出来了，谢谢，谢谢~~
 |
8楼
cyy1905 |
不过这个宏没有支持索引表的字体改变呢？？我是想主要的表突出，字体大点，次要的工作表字体小点，可惜不支持 |
9楼
LOGO |
感谢分享，真不错。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一