如何在Excel中激活多个超链接(4种方法)
在下面的数据集中,我们列出了一些著名的电子商务网站及其网站地址。网站链接未激活,因此无法通过单击这些链接打开。让我们将它们激活为超链接。
我们在这里使用了Microsoft Excel 365版本,但您可以在方便时使用任何其他版本。
方法 1 – 使用 HYPERLINK 功能
我们可以使用超链接功能激活链接,但我们必须将超链接存储在新列链接地址中。
步骤:
- 选择链接地址列的范围。
- 在所选区域的第一个单元格D4中输入以下公式:
=HYPERLINK(C4)
HYPERLINK 将激活单元格C4中的文本URL。
- 按CTRL+ENTER。
链接地址列中的所有超链接将立即被激活。只需单击链接即可访问网站。
方法 2 – 使用 VBA 选择属性激活多个超链接
我们可以使用带有Selection属性的VBA代码,只需选择它们即可激活网站链接列本身中的链接。
步骤:
- 转到开发人员选项卡>> Visual Basic 选项。
Visual Basic 编辑器将打开。
- 转到插入选项卡>>模块选项。
将创建一个模块。
- 在模块窗口中输入以下代码:
Sub activatinglinks()
Dim w_link As Variant
For Each w_link In Selection
ActiveSheet.Hyperlinks.Add Anchor:=w_link, Address:=w_link.Formula
Next w_link
End Sub
在这里,我们将 w_link 声明为 Variant。 FOR 循环遍历我们选择的每个单元格w_link ,并使用HYPERLINKS 函数激活每个文本此范围内的URL。
- 保存代码后,返回主表。
- 在网站链接列中选择文本URL的范围。
- 转到开发人员选项卡>>宏选项。
将打开宏对话框。
- 选择宏activatinglinks。
- 单击运行。
该宏返回网站链接列中激活的超链接。
方法3-使用VBA InputBox方法激活多个超链接
为了更灵活地选择要激活的链接,我们可以使用VBA中的InputBox方法创建一个输入框,在其中我们可以同时选择和激活多个超链接。
步骤:
- 按照方法2的步骤打开模块窗口。
输入以下代码:
Sub enablinglinks()
Dim w_link As Variant
Dim multiple_links As Range
Box = "Activation of Links"
Set multiple_links = Application.Selection
Set multiple_links = Application.InputBox("Select the Range of URL's", _
Box, multiple_links.Address, Type:=8)
For Each w_link In multiple_links
ActiveSheet.Hyperlinks.Add w_link, w_link.Value
Next w_link
End Sub
在这里,我们将 w_link 声明为 Variant,将 multiple_links 声明为 Range。然后我们将输入框的标题定义为Activation of Links,存储在Box中,将multiple_links设置为我们要的范围选择,并将 InputBox 方法分配给 multiple_links。
然后,FOR 循环使用HYPERLINKS 函数迭代所选范围multiple_links 的每个单元格w_link 激活此范围内的每个文本URL。
- 按F5 运行代码。
- 在出现的输入框中,在选择 URL 范围框中选择超链接 $C$4:$C$12 的范围。
- 按确定。
该宏激活网站链接列的所有超链接。
方法 4 – 通过声明范围来激活超链接
同时激活多个超链接的另一种方法是在 VBA 代码中声明超链接的范围。
步骤:
- 按照方法2的步骤打开模块窗口。
- 输入以下代码:
Sub enablinglinks1()
Dim w_link As Variant
Dim multiple_links As Range
Set multiple_links = Range("C4:C12")
For Each w_link In multiple_links
ActiveSheet.Hyperlinks.Add w_link, w_link.Value
Next w_link
End Sub
在这里,我们将 w_link 声明为 Variant,将 multiple_links 声明为 Range,然后设置 multiple_links 范围C4:C12。
FOR 循环循环遍历定义范围multiple_links 中的每个单元格w_link ,并使用HYPERLINKS 函数<激活此范围内的每个文本URL。
- 按F5 运行代码。
该宏将文本URL转换为网站链接列中激活的超链接。