我创建了一系列单元格,它们与远程服务器的超链接相连。Excel 工作表 2010(文件名每天都会更改,带有日期函数或日期用户输入)在同一工作表上,我想为上述超链接文本创建快捷方式。以下是我在单元格 AA14 中的内容 '=Hyperlink(AC14&AD14) 运行良好 - 但地址很长。我想将其缩短为简短的引用“今天的 EOD:”
我想在单元格 I14 中创建一个快捷方式,标签为 TODAYS REPORT 并链接到单元格 AA14。我无法将其链接并驱动到共享驱动器上的最终位置。在 I14 中,我标记了 TODAY,尝试引用 AA14 并创建超链接,但出现错误无法打开指定的文件 - 我的肥皂用完了 - 有什么想法吗?
答案1
这可以通过一点 VBA 来实现。请注意,这假设工作簿中没有其他超链接。
- 使用 Alt-F11 打开 VBA IDE。
- 通过单击“插入”、“模块”添加模块
- 将以下代码复制并粘贴到模块中
- 向单元格 I14 添加形状。
- 右键单击形状并使用一些有意义的名称编辑文本,例如,至服务器
- 右键单击该形状并将宏分配
followMe
给该形状。
您必须将文件另存为启用宏的工作簿 (*.xlsm)。为避免安全警告,请将保存文件的文件夹添加到受信任位置(文件、选项、信任中心、信任中心设置、受信任位置)。
代码
Sub followMe()
Range("N2").Hyperlinks(1).Follow
End Sub