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

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

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

为了做到#1，最初我只是使用了这个函数=HYPERLINK()。所以，我的网址在列中A，我使用这个公式在列中创建超链接B.

To do #2, I created the following macro which should open the hyperlink with the keyboard shortcut 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 https://stackoverflow.com/questions/2595692/how-do-i-convert-a-column-of-text-urls-into-active-hyperlinks-in-excel/2595806#2595806.

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

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

我想知道是否有人遇到过类似的问题，以及为什么公式 生成的超链接对我不起作用。

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

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

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

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 https://www.dropbox.com/s/d4cie7lun22quma/FollowLinks.xlsm

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