Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
a = Target.Value
If Target.Value <> "" Then
Sheets(a).Select
End If
End Sub
双击单元格就可以到该工作表,把代码放在这个SHEET1里。
Sub mulu()
For i = 1 To Sheets.Count
Sheets(1).Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Sheets(i).Name & "! " & "A1"
Next i
End Sub
加入你的目录在表1 的 A列 运行上边的宏就可以全部完成了
请采纳答案,支持我一下。
你这个是求助呢还是?