怎么样批量生成excel的sheet名称目录链接
展开全部
使用VBA可完成操作目标。
按照如下步骤操作：
在excel文件中打开vba编辑器(可利用快捷键alt+F11)
点击左侧sheet1，复制如下代码到右侧编辑框中（如下图所示）
运行该代码（点击播放按钮或者直接按F4）
回到sheet1中即可看到已生成所有sheet名称以及链接。
Sub CreatSheetLink()
Dim i As Single
For i = 1 To Worksheets.Count
Cells(i, 1).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
Worksheets(i).Name & "!A1", TextToDisplay:=Worksheets(i).Name
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
打开excel文档，创建若干个sheet页,例如sheet1,a1,a2,a3等
点击菜单中的开发工具菜单，点击查看代码按钮
如果找不到开发工具菜单，请点击文件->选项->自定义功能区->主选项卡中，选中开发工具复选框
录入以下下代码。目的是用来在sheet1页中的第一列生成sheet名字列
Sub createmulu() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub
在代码编辑窗口中点击绿色运行按钮，或者按F5键，运行后sheet1如下图所示：
在sheet1中B2单元格中定义超链接函数，录入=HYPERLINK("#"&A2&"!A1",A2)
鼠标选中B1单元格中，将鼠标放在单元中右下侧，当鼠标变为十字时，向下拖动鼠标
此时点击B列的sheet名称超链接，即可打开相应的sheet页
按shift键，选中除sheet1外的其他sheet页，在A1单元格中录入
=HYPERLINK("#sheet1!A1","返回目录")，然后回车。所有选中sheet页中便成功添加“返回目录”超链接
点击菜单中的开发工具菜单，点击查看代码按钮
如果找不到开发工具菜单，请点击文件->选项->自定义功能区->主选项卡中，选中开发工具复选框
录入以下下代码。目的是用来在sheet1页中的第一列生成sheet名字列
Sub createmulu() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub
在代码编辑窗口中点击绿色运行按钮，或者按F5键，运行后sheet1如下图所示：
在sheet1中B2单元格中定义超链接函数，录入=HYPERLINK("#"&A2&"!A1",A2)
鼠标选中B1单元格中，将鼠标放在单元中右下侧，当鼠标变为十字时，向下拖动鼠标
此时点击B列的sheet名称超链接，即可打开相应的sheet页
按shift键，选中除sheet1外的其他sheet页，在A1单元格中录入
=HYPERLINK("#sheet1!A1","返回目录")，然后回车。所有选中sheet页中便成功添加“返回目录”超链接
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
