用excel处理数据往往分为很多页,这时候通常会建一个首页当做目录来链接到后面的sheet页,今天写了一个脚本实现功能如下:
遍历sheet页数量,生成对应的sheet页名超链接
excel的目录在第三页,故该脚本从第四页开始生成,生成到sheet3.(10+x,4) 上界面原型如图:
Sub lianjie()
Dim x As Long
x = 0
For x = 4 To Sheets.Count '从第四页开始
Sheet3.Hyperlinks.Add Anchor:=Cells(10 + x, 4), Address:=ActiveWorkbook.Name, SubAddress:=Sheets(x).Name & "!A1", TextToDisplay:=Sheets(x).Name
'从sheet3的地14行第四列开始添加超链接,地址是当前当前工作薄的sheet(X)的名字,显示为sheet(X)的名字
Next
End Sub
说明:Hyperlinks 对象是添加链接用的,其中Anchor, Address和SubAddress 是它的属性
Anchor :要添加链接的位置 必选参数
Address : 链接地址,一般是外部的链接地址 必选
SubAddress:超链接的子地址,可选