第一:工具栏空白处“右击”鼠标,点击“自定义快速访问工具栏”见下图
第二:窗口左侧点击“信任中心”,右侧点击“信任中心设置”见下图
第三:窗口左侧点击“宏设置”,右侧点击“启用所有宏”见下图
第四:点击两次“确定”
第五:将要查看的链接,放在电子表格的“B1”位置
第六:右键点击表格左下角“Sheet1”,左键点击“查看代码”
第七:出现一个白色对话框,粘贴下面的代码,放入白色框,其中“数字10”代表一次可以打开10个链接,见下图:
Sub OpenHprLnks()
Dim i As Integer
On Error Resume
Next
For i = 1 To 10
Cells(i, 2).Hyperlinks(1).Follow
NewWindow:=True
Next
End Sub
第八:不要关闭刚才粘贴的对话框,鼠标点击刚才粘贴的代码,摁“F5”键,出现一个“宏”对话框,点击“运行”后,会自动打开10个链接。
本回答被网友采纳第一:工具栏空白处“右击”鼠标,点击“自定义快速访问工具栏”见下图
第二:窗口左侧点击“信任中心”,右侧点击“信任中心设置”见下图
第三:窗口左侧点击“宏设置”,右侧点击“启用所有宏”见下图
第四:点击两次“确定”
第五:将要查看的链接,放在电子表格的“B1”位置
第六:右键点击表格左下角“Sheet1”,左键点击“查看代码”
第七:出现一个白色对话框,粘贴下面的代码,放入白色框,其中“数字10”代表一次可以打开10个链接,见下图:
Sub OpenHprLnks()
Dim i As Integer
On Error Resume
Next
For i = 1 To 10
Cells(i, 2).Hyperlinks(1).Follow
NewWindow:=True
Next
End Sub
第八:不要关闭刚才粘贴的对话框,鼠标点击刚才粘贴的代码,摁“F5”键,出现一个“宏”对话框,点击“运行”后,会自动打开10个链接。
本回答被网友采纳