您的位置：首页 > 编程语言 > VB

VBA快速获取创建sheet链接

2016-07-10 02:10 295 查看
最近习惯性的用excel管理项目，创建DB表的描述也习惯用excel

但是很多个sheet页，想在第一个sheet页面做一个一览表，但是一个一个的加链接实在是太慢了

于是写了一个vba

Sub read()
Dim ws As Worksheet
Dim cel As Object
Set ws = Worksheets("列表")
For i = 2 To Sheets.Count
Set cel = ws.Cells(3 + i - 1, 3)
cel = Sheets(i).Name
cel.Hyperlinks.Add anchor:=cel, Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name '创建超链接每个sheet的A1
Next
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航