Excel中如何设置自动生成目录,就是我这里有53个工作表,每个工作表名称不一样,带超级链接的这种。
答案:2 悬赏:80 手机版
解决时间 2021-02-01 18:35
- 提问者网友:最美的风景
- 2021-02-01 13:44
Excel中如何设置自动生成目录,就是我这里有53个工作表,每个工作表名称不一样,带超级链接的这种。
最佳答案
- 五星知识达人网友:人间朝暮
- 2021-02-01 15:02
Private Sub 更新目录_Click()
Application.ScreenUpdating = False
Dim Sht As Worksheet
Dim r As Integer
[a2:b65536].ClearContents
For Each Sht In ThisWorkbook.Sheets
If Sht.Name <> Me.Name Then
r = [a65536].End(xlUp).Row
Range("A" & r + 1).Value = Sht.Name
Me.Hyperlinks.Add Range("A" & r + 1), "#" & Sht.Name & "!A1", ScreenTip:=Sht.Name
Range("B" & r + 1).Value = Sht.[a1].Value
End If
Next
Application.ScreenUpdating = True
End Sub
Application.ScreenUpdating = False
Dim Sht As Worksheet
Dim r As Integer
[a2:b65536].ClearContents
For Each Sht In ThisWorkbook.Sheets
If Sht.Name <> Me.Name Then
r = [a65536].End(xlUp).Row
Range("A" & r + 1).Value = Sht.Name
Me.Hyperlinks.Add Range("A" & r + 1), "#" & Sht.Name & "!A1", ScreenTip:=Sht.Name
Range("B" & r + 1).Value = Sht.[a1].Value
End If
Next
Application.ScreenUpdating = True
End Sub
全部回答
- 1楼网友:底特律间谍
- 2021-02-01 16:33
方法/步骤
1
打开excel文档,创建若干个sheet页,例如sheet1,a1,a2,a3等
2
点击菜单中的开发工具菜单,点击查看代码按钮
3
如果找不到开发工具菜单,请点击文件->选项->自定义功能区->主选项卡中,选中开发工具复选框
4
录入以下下代码。目的是用来在sheet1页中的第一列生成sheet名字列
sub createmulu() for i = 1 to sheets.count cells(i, 1) = sheets(i).name next end sub
5
在代码编辑窗口中点击绿色运行按钮,或者按f5键,运行后sheet1如下图所示:
6
在sheet1中b2单元格中定义超链接函数,录入=hyperlink("#"&a2&"!a1",a2)
7
鼠标选中b1单元格中,将鼠标放在单元中右下侧,当鼠标变为十字时,向下拖动鼠标
8
此时点击b列的sheet名称超链接,即可打开相应的sheet页
9
按shift键,选中除sheet1外的其他sheet页,在a1单元格中录入
=hyperlink("#sheet1!a1","返回目录"),然后回车。所有选中sheet页中便成功添加“返回目录”超链接
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯