Excel中VBA怎么实现自动批量添加超链接?

发布时间：2022-03-01 22:44:02 作者：手工客

Excel中VBA怎么实现自动批量添加超链接？Excel表格中想要批量添加超链接，有什么快速添加的方法吗？我们可以使用vba来实现，下面我们就来看看详细的教程，需要的朋友可以参考下

想要使用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

6、返回Excel窗口，单击按钮执行指令。

7、该程序会提示你输入指定的参数，可以参考提示输入。如下图：一步一步输入，如果输入错误，程序崩溃，重新执行指令。

如果程序错误【单击】【结束按钮】然后重新单击批量超链接按钮即可，重新操作。

就是就是Excel中VBA实现自动批量添加超链接的教程，希望大家喜欢，请继续关注手工客。

Excel中怎么做超链接跟踪?Excel中做超链接跟踪教程

很多时候我们要对Excel表格中的数据分析做超链接跟踪的时候，如果忘记了怎么去做链接跟踪就会很麻烦，现在小编就来带大家复习一下，赶紧来看看吧
04-27
excel2019怎么取消超链接？excel2019禁止网址替换为超链接方法

excel2019怎么取消超链接？这篇文章主要介绍了excel2019关闭网址替换为超链接方法,需要的朋友可以参考下
09-09
Excel如何插入超链接到sheet工作表?

Excel如何插入超链接到sheet工作表？，有小伙伴想知道Excel插入超链接到sheet工作表是如何让操作的，其实方法很简单，感兴趣的小伙伴和小编一起看看吧
10-17
Excel如何制作表内链接和表间链接

在Excel中我们可以设置超链接，当我们需要跳转到想查看的地方，只需要点击设置的超链接即可，一起来了解一下吧
12-04
excel表格怎么利用VBA代码插入交叉矩形图?

excel表格怎么利用VBA代码插入交叉矩形图？excel表格中想要绘制交叉的矩形图，该怎么绘制这个图形呢？我们可以使用vba代码来绘制，下面我们就来看看详细的教程，需要的朋友可以参考下
10-02
excel怎么使用VBA代码自动生成三维饼图?

excel怎么使用VBA代码自动生成三维饼图？excel表格中的数据想要自动生成三维饼图，该怎么制作呢？下面我们就来看看详细的教程，需要的朋友可以参考下
11-14
excel怎么利用VBA代码插入同心圆?

excel怎么利用VBA代码插入同心圆？excel中想要画一个同心圆，该怎么绘制同心圆呢？下面我们就来看看excel总vba插入同心圆的教程，需要的朋友可以参考下
03-25
excel表格怎么使用vba实现全屏显示?

excel表格怎么使用vba实现全屏显示？excel表格想要实现全屏显示，该怎么设置呢？我们可以使用vba实现，下面我们就来看看详细的教程，需要的朋友可以参考下
12-19
excel表格怎么利用VBA代码快速制作一份通讯录?

excel表格怎么利用VBA代码快速制作一份通讯录？excel表格中想要利用vba代码快速制作一份通讯录，该怎么制作呢？下面我们就来看看详细的教程，需要的朋友可以参考下
12-10
excel表格中VBA文件怎么实现定时自我删除?

excel表格中VBA文件怎么实现定时自我删除？excel中想要实现文件可以定时自动删除，该怎么实现这个功能呢？下面我们就来看看详细的教程，需要的朋友可以参考下
03-09

Excel中VBA怎么实现自动批量添加超链接?

相关文章

排行榜TOP10

站长推荐

最新更新