永发信息网

Excel中如何设置自动生成目录,就是我这里有53个工作表,每个工作表名称不一样,带超级链接的这种。

答案:2  悬赏:80  手机版
解决时间 2021-02-01 18:35
Excel中如何设置自动生成目录,就是我这里有53个工作表,每个工作表名称不一样,带超级链接的这种。
最佳答案
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
全部回答
方法/步骤 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页中便成功添加“返回目录”超链接
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
中国农业银行(铜仁锦江支行)地址在什么地方,
南岔到嘉荫多少公里
我一个站上面上传了两个10M的视频,得买什么
梦幻西游火凤之睛有什么用 梦幻西游火凤之睛
中国建设银行(铜仁金滩支行)地址在哪,我要去
卡尔·马克思说:“法官是法律世界的国王,法
标明的意思是什么啊?知道的请说下!
铜仁农村商业银行(大寨路支行)地址在哪,我要
无锡最好的月子护理中心是怎么收费的?
图为测定植物蒸腾作用的简易装置,整个装置是
中国信合(环北支行)地址有知道的么?有点事想
沾贷的意思是什么啊?知道的请说下!
当警察的三点好处
湖北神州行本地套餐18元流量超出的怎么收费
中国人民银行(铜仁中心支行)怎么去啊,我要去
推荐资讯
什么手机有全景拍摄 oppo手机怎样全景拍摄
考城派出所怎么去啊,我要去那办事
狗狗打喷嚏怎么办
中国古代有完整的语法书吗
怎样举报车主用别人驾驶证扣分
孩子在外上学想家怎么办呢?
从盘锦坐高铁去凤城东都有什么车
跪求答案!!CIF贸易,从上海出口到韩国汉城。2
思缘美甲化妆会所(王爷庙店)地址在什么地方,
3766 bobwhite terrace Fremont ca 94555美国
上个寒假的英文怎么写
中通速递(大市场东路与洪润横街交叉口西北100
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?