用VBA制作一个工作薄中所有工作表的目录,并带走链接功能
时间: 2023-02-23 13:07:32 浏览: 95
您可以使用VBA代码创建一个工作簿中所有工作表的目录,并具有链接功能。
以下是实现该功能的示例代码:
```
Sub CreateSheetList()
Dim ws As Worksheet
Dim i As Integer
' 添加新工作表作为目录
Sheets.Add.Name = "目录"
Set ws = Sheets("目录")
' 在第一行添加标题
ws.Range("A1").Value = "目录"
ws.Range("A1").Font.Bold = True
' 在目录工作表中列出所有工作表的名称
i = 2
For Each ws In Worksheets
If ws.Name <> "目录" Then
ws.Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
ws.Range("A1").Select
Selection.Copy
Sheets("目录").Select
Range("A" & i).Select
ActiveSheet.Paste
i = i + 1
End If
Next ws
End Sub
```
该代码会在工作簿中添加一个新的工作表,命名为“目录”,并列出所有工作表的名称。您可以单击目录中的任何工作表名称,以便立即转到该工作表。