☰

激活 Excel 列中的 URL 列表

tag-icon • tag-icon microsoft-excel vba
激活 Excel 列中的 URL 列表

我的 Excel 文件中有 1700 多条图书标题记录。这 1700 多条记录中的每一条都引用了封面图片，这些封面图片以图书 ISBN# 的一部分命名（例如 3-539-4.jpg）。所有这些封面图片都需要根据其标题记录进行目视检查，以确保正确匹配。

我想到的一个流程是将本地 URL 放在标题列旁边的一列中。单击每个 URL 将在我的预览应用中打开图像，以便可以验证封面图像标题是否与相邻单元格中的标题匹配。我在列中拥有本地 URL，但需要一个快捷方式来使它们全部处于活动状态，而不是在“插入超链接”功能中单独设置每个 URL（这大约需要 1.5 个 forever）。

是否存在可以用来在整个 URL 列上实现此操作的宏或 VBA 模块？

下面是我已开始的图像，显​​示了第一个活动的图像。

URL 激活图像

答案1

For each myCell in Range("A1:A1700")
    ActiveSheet.Hyperlinks.Add myCell, Address:=MyCell.Value
Next myCell

根据链接的实际范围进行调整。

您还应该知道，链接没有验证，因此包含“随机文本”的单元格将链接到“随机文本”，无论该链接是否有效

相关内容