Answers:
做一个超链接在Excel的功能是=Hyperlink("http://www.techonthenet.com","Tech on the Net")
哪里"http://www.techonthenet.com"
是互联网地址,"Tech on the Net"
是出现在Excel单元格的称号。
因此,当您将网址写入Excel文件时,只需将此函数包装在每个网址周围即可。如果您不想使用动态名称,也可以始终将url用作名称。
如果您不是通过编程方式插入值,则此站点会提及使用HYPERLINK工作表功能。尽管这是一个更好的参考,但它会逐步引导您如何向excel添加宏,并且它们为宏提供了代码。因此,当您添加此宏后,您可以选择网址列并运行宏,它将整个列转换为超链接
hyperlink
在执行自动魔术时会真的插入公式。(我这里没有Excel,但按Ctrl-1键显示单元格属性可能会显示有用的内容?)
Public Sub Convert_To_Hyperlinks()
Dim Cell As Range
For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
If Cell <> "" Then
ActiveSheet.Hyperlinks.Add Cell, Cell.Value
End If
Next
End Sub
创建宏
- 打开您的Excel文档
- 通过按ALT + F11打开宏编辑器。
- 在“工具”菜单中,右键单击“视图”,然后选择“项目资源管理器”。
- 查找名为“模块”的文件夹,右键单击它,选择“插入”,然后选择“模块”。
- 将代码粘贴到所选的项目模块中。
- 按ALT + F11返回到您的Excel工作簿(或单击Windows任务栏中的其图标)。
运行宏
- 要执行宏,请选择要转换为可点击超链接的不可点击文本链接。
- 按ALT + F8打开宏选择器窗口,然后单击您刚刚创建的宏。
- 您的链接现在都是可点击的!节省您的时间和数据输入疲劳:)
凯拉(Kyra)的答案在这里指出了从本质上给您带来的好处,并且是一个很好的方向。允许您根据需要进行较大的选择,并将它们全部转换。
Sub addHypers()
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If cell <> "" Then
ActiveSheet.Hyperlinks.Add cell, "http://" + cell.Value
End If
Next cell
End Sub
Sub removeHypers()
Intersect(Selection, ActiveSheet.UsedRange).Hyperlinks.Delete
End Sub
请参阅如何在Excel中将URL文本转换为可单击的超链接,以 获取简单的操作说明。
在Excel中,单击要转换为可单击超链接的列。
遵循第一个选项:使用VBA代码将URL文本转换为可点击的超链接
完成所有步骤,然后按F5,关闭Microsoft Visual Basic应用程序以返回到Excel文件。您的网址现在可以点击了!