VBA：超链接工作表目录

 将工作簿中的工作表制成目录汇总在表“目录”A1开始的单元格中

1. Sub mulu() 
2.      Dim mysheet As Worksheet 
3.      Dim i As Integer 
4.      For i = 20 To 30 
5.              For Each mysheet In Worksheets 
6.              i = i + 1 
7.              j = j + 1 
8.              Cells(19 + j, 5) = j 
9.              Sheets("目录").Hyperlinks.Add Anchor:=Cells(i - 1, 6),    Address:="", SubAddress:=mysheet.Name & "!" & "A1", TextToDisplay:=mysheet.Name 
10.      Next 
11.      Next  
12. End Sub 

 

本文转自 kirin 51CTO博客，原文链接：http://blog.51cto.com/kirin/713243 ，如需转载请自行联系原作者