作者:乔山办公网日期:
返回目录:excel表格制作
给出你核心的代码语句,其他自己改,
其实就是循环单元格,然后打开其中的来链接,
代码中的Selection是当前选中的区域,可以根源据实际需要修改~
第一种是打开指定选区内的所有超级链接
第二种是打开整个工作表内所有的超级链接
根据需要修改就行,
Sub OpenHyperlinks1()
On Error Resume Next '如果单元格中百没有超级链接会报错,此句代码防错处度理
For Each Rng In Selection '循环选区中的各个单元格
Rng.Hyperlinks(1).Follow '打开单元格中的超级链接
Next
End Sub
Sub OpenHyperlinks2()
On Error Resume Next '如果单元格中没有超级链接会报错,此句代码防错处理
For Each objLink In Worksheets(1).Hyperlinks '循环第一个sheet中的所有超级链接
objLink.Follow '打开单元格中的超级链接
Next
End Sub
Shell "浏览器的绝对路径来\Chrome.exe " & "链接的全自称"
Chrome.exe后面有个空格
你的代码改成:
Sub 打开zd网页()
For Each A In Selection
Shell "C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe " & A.Value
Next
End Sub
1下载并安装Mozilla Firefox浏览器,点击左上角菜单栏,点击“附加组件”
2在右上侧搜索栏输入抄“Launch Clipboard”,点击搜索
3第一条,点击安装
4安装之后点击“立即重启”
5打开Excel,选中zhidao需打开的链接,复制(这里以10条为例)
6进入Firefox浏览器,按“Shift + Alt + K”,这样选中的超链接就会被批量打开了!
第一:工具栏空白处“右击”鼠标,点击“自定义快速访问工具栏”见下图
第二:窗百口左侧点击“信任中心”,右侧点击“信任中心设置”见下图
第三:窗口左侧点击“宏度设置”,右侧点击“启用所有宏”见下图
第四:点击两次“确定”
第五:将要查看问的链接,放在电子表格的“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个链接。