作者:乔山办公网日期:
返回目录:excel表格制作
1、首先,打开需要编辑的Excel表格,找到一个有链接的Excel,点击进入,进入后点击没有超链接的按键,会知发现无法跳转网页。
2、单个变超链接的方法:鼠道标左键双击超链接,然后按下“enter”按键。
3、但是当链接比较多的时候,这个按这个方法就有点麻烦了,所以需要其他方法,重新建立一列。
4、然后点击单元格,版键入“=HYPERLINK()”,在()中输入想要变成超级链接的链接。
5、回车确定之后,下拉填充下面的权单元格,就可以完成批量打开多个超级链接了。
给出你核心的代码语句,其他自己改,
其实就是循环单元格,然后打开源其中的链接,
代码中的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
可以利用hyperlink函数来实现
比如在A列中
则=hyperlink(A1)
然后下拉填充即可。
用宏可以,但你要想好,一次打开这么百多文件,小心电脑死机。度
在excel里同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如回下代码(假定打开的是A1到A10的链接):答
Sub test()
Dim i As Integer
For i = 1 To 10 '自己按需修改
If Cells(i, 1).Hyperlinks.Count > 0 Then
Cells(i, 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If
Next
End Sub
在此界面直接按F5运行此宏,OK。