网站搜索

如何在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 声明为 VariantFOR 循环遍历我们选择的每个单元格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转换为网站链接列中激活的超链接。

相关文章