Excel如何通过VBA为动态生成的工作表在主菜单自动添加对应超链接

解决方法 #

你只需要在现有脚本的第5步（将新工作表名插入MAIN_MENU指定位置的逻辑）后，添加Hyperlinks.Add相关的代码即可实现自动生成内部超链接的需求。

核心代码示例 #

首先你可以在现有脚本开头先定义好两个变量，方便后续调用：

Dim newWs As Worksheet ' 存储新创建的项目工作表对象
Dim targetCell As Range ' 存储MAIN_MENU菜单中要插入新名称的单元格对象

在你执行完复制工作表的步骤后，直接绑定新工作表对象：

' 你的原有复制BLANK_PROJ代码执行后，新增下面这行
Set newWs = ThisWorkbook.Sheets("BLANK_PROJ (2)")

后续重命名工作表的操作会自动同步到这个对象上，不需要重复绑定。

在你原有第5步插入工作表名称的位置，替换原有写入单元格的代码为下面的超链接生成代码即可：

' 首先定位MAIN_MENU中要插入新名称的单元格，示例为A列最后一个非空单元格的下一行，可根据实际列号修改A为对应列
Set targetCell = ThisWorkbook.Sheets("MAIN_MENU").Range("A" & ThisWorkbook.Sheets("MAIN_MENU").Cells(Rows.Count, "A").End(xlUp).Row + 1)

' 生成指向对应工作表的超链接
ThisWorkbook.Sheets("MAIN_MENU").Hyperlinks.Add _
    Anchor:=targetCell, _
    Address:="", _
    SubAddress:="'" & newWs.Name & "'!A1", _
    TextToDisplay:=newWs.Name

参数说明 #

• Address 留空即可，因为是当前工作簿内部跳转，不需要外部链接地址
• SubAddress 格式为'工作表名'!跳转目标单元格，外层加单引号是为了兼容工作表名含空格、特殊字符的场景，避免报错；如果需要跳转到对应工作表的指定位置，把!A1修改为对应单元格地址即可
• TextToDisplay 为单元格显示的内容，如果你需要显示项目名称而非工作表名，直接把newWs.Name替换为对应项目名称的取值即可

注意事项 #

如果你的菜单名称不是插入在A列，只需要把代码中Range("A" & ...)里的A替换为你实际使用的列号（比如C、D）即可。

内容的提问来源于stack exchange，提问作者Curious