Question

怎样一次性打开EXCEL表格里面的多个超链接啊？？？急！多谢！

Answer 1

按Alt+F11，打开VBA编辑器，
输入如下内容：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = Hyperlinks.Count
For j = 1 To i
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & Hyperlinks.Item(j).Address
Next j
End Sub

然后你再随便点个单元格试试看

追问

我想问问 我输入完代码 下一步怎么办 敲回车 么 还是关闭
还有表格里的多个超链接怎么打 全部选中 右键 还是怎么
我是菜鸟 麻烦了 告诉我细些 谢谢你啊！

追答

私信个邮箱地址，发个文档给你算了。
超链接要一个格一个格地按Ctrl+K，然后输入地址。

追问

你是个好人！太感谢了！问题基本解决了 就是这个打开的默认浏览器是IE 可不可以设置成搜狗或者360什么的浏览器？并且在一个页面以标签的形式打开，而不是单独独立的一个个网页。

追答

'把那些代码全部换成下面的，除IE外，我不用其它浏览器，你自己试试吧。

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub CommandButton1_Click()
i = Hyperlinks.Count
For j = 1 To i
ShellExecute 0, "open", Hyperlinks.Item(j).Address, "", "", 1
Next j
End Sub