当使用公式生成超链接时，VBA 打开 Excel 超链接不起作用

Question

使用公式生成的 Excel 超链接似乎存在错误。我使用的是 Excel 2010。我有一个电子表格，其中的单元格包含 URL，我的目标是执行以下两件事:

1. 将这些单元格转换为超链接。
2. 创建键盘快捷键来打开这些超链接，这样我就不必使用鼠标。

为了做到#1，最初我只使用了函数=HYPERLINK()。因此，我的 URL 位于 A 列中，我使用此公式在 B 列中创建超链接。

为了执行#2，我创建了以下宏，它应该使用键盘快捷键 Ctrl+H 打开超链接:

Sub Open_Hyperlink()
'
' Open_Hyperlink Macro
'
' Keyboard Shortcut: Ctrl+h
'
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

问题是这个宏似乎只适用于不是使用公式创建的超链接。例如，如果我只是在单元格中输入 http://www.google.com，Excel 会自动将其设为超链接，并且键盘快捷键宏会起作用，而公式生成的超链接则不起作用。

我还注意到，当我右键单击公式生成的超链接时，下拉菜单中没有打开超链接的选项，但右键单击不是由公式生成的超链接时却有该选项。

我找到了以下解决方法。我没有使用公式生成超链接，而是使用了我发现的宏 here .

Sub HyperAdd()

'Converts each text hyperlink selected into a working hyperlink

For Each xCell In Selection
    ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell

End Sub

我可以使用键盘快捷键打开使用此宏生成的超链接。我想知道是否有人有类似的问题，以及为什么公式生成的超链接对我不起作用。以后我更愿意使用公式来制作超链接，因为它更简单，所以如果有人知道如何避免使用宏来制作超链接，我将非常感激。

Answer 1

I'm wondering if anyone has had a similar problem, and why the formula generated hyperlinks are not working for me.

唉，这似乎是一个痛苦的事实:Excel 不会添加到 Hyperlinks 集合公式生成的链接 - 下面是调试器的屏幕，指向 =HYPERLINK("http ://www.google.com/";"Google"):

我不确定这是故意的实现还是错误，但是，是的，公式生成的链接可能无法使用 Hyperlinks().Follow 方法打开。

但是，如果您要使用键盘快捷键打开链接，只需使用以下代码 - 它将自动转换为可点击链接选定的单元格文本并打开它:

Sub Open_Hyperlink()
    Selection.Hyperlinks.Add Anchor:=Selection, Address:=Selection.Formula
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

只需指定任何快捷方式即可开始)以下是示例:https://www.dropbox.com/s/d4cie7lun22quma/FollowLinks.xlsm

希望这对您有所帮助。祝你好运!