作者：绿色风
分类：
时间：2022-08-17
浏览：90
楼主
breezy |
Q：如何批量建立目录分级超链接？
A：代码如下：
- 'Author:曾风耀 [ET] ID:breezy
- 'MSN: jovialromance@hotmail.com
- '程序:分级批量建立链接
- 'Date:2009-07-18
- '
- Sub 分级批量建立链接()
- Application.DisplayAlerts = False
- Dim c As Range, sht As Worksheet
- For Each sht In Sheets
- If sht.Name <> "目录" Then sht.Delete
- Next
- For Each c In Range("C1:C" & [C1].End(xlDown).Row)
- shtname = c.Offset(, -2).MergeArea.Cells(1).Value & "-" & c.Offset(, -1).MergeArea.Cells(1).Value & "-" & c.Value
- Sheets("目录").Hyperlinks.Add Anchor:=c, Address:="", SubAddress:="'" & shtname & "'!A1", TextToDisplay:=c.Value
- Sheets.Add Sheets("目录")
- With ActiveSheet
- .Name = shtname
- .Hyperlinks.Add Anchor:=Sheets(shtname).Cells(1, 1), Address:="", SubAddress:="'目录'!A1", TextToDisplay:="返回目录"
- End With
- Next
- Sheets("目录").Move Sheets(1)
- Application.DisplayAlerts = True
- End Sub
 分级批量建立链接.rar
|
2楼
omnw |
写的非常好，学习了！ |
3楼
宁夏鑫华通 |
怎么下载下来里面没内容啊 |
4楼
icenotcool |
|
5楼
wumin88838 |
需要多研究学习下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一