Excel中VBA怎么实现自动批量添加超链接?
百度经验 发布时间：2019-09-27 11:22:14 作者：黑光计划 
我要评论
我要评论Excel中VBA怎么实现自动批量添加超链接？Excel表格中想要批量添加超链接，有什么快速添加的方法吗？我们可以使用vba来实现，下面我们就来看看详细的教程，需要的朋友可以参考下
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
想要使用VBA程序在Excel中批量添加超链接；将Excel其中一个工作表的某列添加另外一个工作表的某列的超链接。下面我们就来看看详细的教程。
1、将Excel的VBA宏安全性改为最低，这样方便运行宏代码
2、在Excel表格任意位置添加【按钮控件】
3、改变按钮控件名称
4、双击按钮控件，打开代码编辑VBA窗口；删除全部显示的代码。
5、'复制此步骤所有内容到VBA窗口，包括这句话。
Option Explicit
Public Sub PiLiangChaoLianJie()
'01----批量超链接，将一个工作表中的列作为超链接添加到另外一个工作表中
' 宏由 keke 录制，时间: 2019/9/25
'
Dim S1 As String, S2 As String
Dim SHEET_NAME As String
Dim LINK_CELL As String, Link_S As String, LINK_Name As String
Dim I As Integer
Dim LINK_text As String
Dim Str_i%, End_i%
Str_i = InputBox("请输入起始行", , 1)
End_i = InputBox("请输入结束行", , 50)
SHEET_NAME = InputBox("请输入需要添加超链接的【工作表】名字", , "sheet1")
S2 = InputBox("请输入需要创建连接的【列】名", , "A")
LINK_Name = InputBox("请输入链接到的【工作表】的名字", , "sheet2")
Link_S = InputBox("请输入链接到工作表所在的【列】名", , "A")
For I = Str_i To End_i
LINK_CELL = LINK_Name & "!" & Link_S & I
S1 = S2 & I
Range(S1).Select
Sheets(SHEET_NAME).Select
If Worksheets.Application.Range(LINK_CELL).Value = "" Then
LINK_text = LINK_CELL
Else
LINK_text = Worksheets.Application.Range(LINK_CELL).Value
End If
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LINK_CELL, TextToDisplay:=LINK_text
Next I
End Sub
Private Sub CommandButton1_Click()
PiLiangChaoLianJie
End Sub
相关文章
- 这篇教程是向程序员之家的朋友分享excel vba编程怎么画西红柿方法，教程很不错，值得大家学习，推荐过来，一起来学习吧2016-08-17
- excel中怎么使用vba查看字符串的asc值？我们想要查看某个字符串的asc的值，就可以使用vba来查看，具体该怎么实现呢？下面我们就来看看详细的教程，需要的朋友可以参考下2016-08-17
- excel怎么借用VBA绘制小卡车？excel中直接绘制图形很困难，我们要借助vba窗体，下面我们就来看看详细的画法，很简单，需要的朋友可以参考下2016-08-16
- excel怎么使用vba一键隐藏所有工作表？excel中很多工作表机密性比较大，想要隐藏起来，该怎么隐藏呢？一个一个隐藏太慢，下面我们就来看看使用vba一键隐藏所有工作表的详细2016-08-15
- excel怎么将表格中的美元转换为人民币？excel表格中全是美元，想将美元全部转换成人民不，该怎么转换呢？下面我们就来看看详细的教程，需要的朋友可以参考下2016-08-14
- 这篇教程是向程序员之家介绍excel vba编程在窗体上画微波炉方法，方法很简单的，有需要的朋友可以参考本文，希望能对大家有所帮助2016-08-12
- 这篇教程主要是向程序员之家的朋友分享利用excel vba编程在窗体上画手提电脑方法，教程比较基础，适合新手来学习，推荐到程序员之家，喜欢的朋友可以参考本文哦2016-08-10
- excel怎么利用vba函数给表格区域添加绿框？excel表格中有重要的数据，想将数据框起来更扎眼，该怎么做呢？下面我们就来看看详细的教程，需要的朋友可以参考下2016-08-10
- excel怎么使用vba实现箱号换散鞋模板的功能？经常需要将整箱的鞋子换成散鞋，该怎么换呢？今天我们就来看看使用excel制作散箱号换散鞋模板的教程，需要的朋友可以参考下2016-08-10
- 今天小编为大家分享excel vba编程画一只小蜜蜂方法，教程绘制出来的小蜜蜂非常不错，方法很简单，感兴趣的朋友可以参考本文，来看看吧2016-08-09
最新评论