求一个vba代码，提取所有的工作表名，超链接

发布网友 发布时间：2022-04-21 02:57

我来回答

共2个回答

热心网友 时间：2023-10-24 02:05

Sub 表名()
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next
End Sub

追问提取所有的表名后，每个表名要有超链接，点击某个表名就会跳转到对应的表中。
再帮帮忙，谢谢啊。

追答Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row <= Sheets.Count Then Sheets(Target.Row).Select
    End If
End Sub

热心网友 时间：2023-10-24 02:06

Sub 超链接()
Sheets("目录").Select
'显示所有工作表
For i = 2 To Sheets.Count
Cells(1 + i, 3).Value = Sheets(i).Name
Next
'超链接
For i = 2 To Sheets.Count
t = Cells(1 + i, 3)
Cells(1 + i, 3).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=t & "!A1", ScreenTip:="进入", TextToDisplay:=t
Next
End Sub

把你要做超链接的工作表名字改为目录就可以了