一键生成excel 超链接

金融it

1. 
   
2. 
   
3. Sub lianjie()
   
4. Dim x As Long
   
5. x = 0
   
6. For x = 4 To Sheets.Count '从第四页开始
   
7. Sheet3.Hyperlinks.Add Anchor:=Cells(10 + x, 4), Address:=ActiveWorkbook.Name, SubAddress:=Sheets(x).Name & "!A1", TextToDisplay:=Sheets(x).Name
   
8. '从sheet3的地14行第四列开始添加超链接，地址是当前当前工作薄的sheet（X）的名字，显示为sheet（X）的名字
   
9. 
   
10. Next
    
11. End Sub
    

复制代码

---------------------
作者：百事悠弦
来源：CSDN
原文：https://blog.csdn.net/zutsoft/article/details/45727609
版权声明：本文为博主原创文章，转载请附上博文链接！

金融it

1. 
   
2. 
   
3. Sub lianjie()
   
4. Dim x As Long
   
5. x = 0
   
6. For x = 4 To Sheets.Count '从第四页开始
   
7. Sheet3.Hyperlinks.Add Anchor:=Cells(10 + x, 4), Address:=ActiveWorkbook.Name, SubAddress:=Sheets(x).Name & "!A1", TextToDisplay:=Sheets(x).Name
   
8. '从sheet3的地14行第四列开始添加超链接，地址是当前当前工作薄的sheet（X）的名字，显示为sheet（X）的名字
   
9. 
   
10. Next
    
11. End Sub
    

复制代码

---------------------
作者：百事悠弦
来源：CSDN
原文：https://blog.csdn.net/zutsoft/article/details/45727609
版权声明：本文为博主原创文章，转载请附上博文链接！