在excel工作簿中建立百来个工作表,第一个工作表中建立目录,将目录与相应的工作表链接起来

2025-04-05 11:56:52
推荐回答(3个)
回答1:

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里。

回答2:

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列 运行上边的宏就可以全部完成了
请采纳答案,支持我一下。

回答3:

你这个是求助呢还是?