No.1网页编程中 , 添加超链接是一个很基本的操作 , 在Excel中 , 同样也引入了超链接的一些方法 。
使得程序可以访问不同的工作表或者网页 。
可以提高Excel工作的交互性能 。
文章插图
文章插图
下面介绍一下 , 如何使用VBA代码 , 实现在Excel单元格里添加超链接 。
No.2实现超链接功能 , 首先要有一个对象来进行承载这个方法 。
这些对象包括就是Range、WorkSheet和Chart 。
也就是说 , 在上述三个对象的属性里 , 都包含HyperLink对象 。
换言之 , 这三个对象都可以实现超链接功能 。
知道这一点之后 , 我们就可以有针对性地添加链接了 。
No.3添加超链接
方法:
Range.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
文章插图
文章插图
添加超链接用到的方法是HyperLinks的Add 。
众所周知Add就是添加的意思 , 这里用到HyperLink的复数对象 。
这个复数对象只有两个方法 , 一个添加 , 一个删除 。
具体添加方法Add的参数可参考上图 。
No.4下面是以一个实际例子对HyperLink方法的解释 。
文章插图
文章插图
上图表格两个按钮 , 一个按钮功能是将 , C列链接添加到B列的文字作为链接地址 。
另一个按钮是清楚链接对象 , 也就是删除链接 。
例子十分简单 , 具体代码 , 看下图:
文章插图
文章插图
添加链接代码:
Private Sub AddLinks()Dim xR As Range, R As RangeSet R = Range(\"B2:B\" & Range(\"B65535\").End(xlUp).Row)\'定义链接区域For Each xR In RWith xR\'添加链接.Hyperlinks.Add anchor:=xR, _Address:=VBA.UCase(xR.Offset(0, 1).Value), _ScreenTip:=VBA.UCase(xR.Offset(0, 1).Value), _TextToDisplay:=VBA.UCase(xR.Value)End WithNext xREnd Sub【怎么添加超链接 Excel添加超链接详细教程】删除链接代码:
Private Sub DelLinks()Dim Hx As Object, Hitem As ObjectWith ActiveSheet.UsedRangeSet Hx = .HyperlinksEnd WithFor Each Hitem In HxWith Hitem.DeleteEnd WithNext HitemEnd SubNo.5本例中主要以Range对象来进行一个举例 , 另外在Chart和Worksheet对象中应用同样使用上述代码 , 更改一下链接对象就可以 。
如:
Charts(1).Hyperlinks.add Range(\”A1\”),\”Http://www.toutiao.com\”
给第一个 Chart对象添加一个超链接 , 链接地址为\”Http://www.toutiao.com\”
具体在不同的表中应用 , 可具体设置 , 不做详细介绍了。
希望这样的功能用起来更加便利 。
推荐阅读
- 在网上怎么开店卖东西 个人做网上商城的操作教程)
- 手机短信恢复最简单方法 手机短信删除了怎么样能找回
- 手机进水了怎么处理比较好 苹果手机掉水里了怎么处理比较好
- 猕猴桃软了怎么保存时间长 猕猴桃软了怎么保存
- 腌小葱怎么腌制好吃 腌小葱怎么腌
- 二繁体字是什么样的 二繁体字怎么读
- 手机与电视怎么投屏 手机投屏电视最简单的方法
- 新网店怎么做推广 新网店怎么做推广最有效
- 外贸怎么做推广 外贸怎么做推广?需要注意什么?
- 怎么去水印图片 4款图片去水印的APP推荐