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

想要使用VBA程序在Excel中批量添加超链接；将Excel其中一个工作表的某列添加另外一个工作表的某列的超链接。下面我们就来看看详细的教程。

软件名称：Microsoft Office 2019 正式版 中文个人版/学生版(附批量授权) 64位软件大小：4.67MB更新时间：2018-09-26立即下载

1、将Excel的VBA宏安全性改为最低，这样方便运行宏代码

2、在Excel表格任意位置添加【按钮控件】

3、改变按钮控件名称

4、双击按钮控件，打开代码编辑VBA窗口；删除全部显示的代码。

5、'复制此步骤所有内容到VBA窗口，包括这句话。

Option ExplicitPublic Sub PiLiangChaoLianJie()'01----批量超链接，将一个工作表中的列作为超链接添加到另外一个工作表中' 宏由 keke 录制，时间: 2019/9/25'Dim S1 As String, S2 As StringDim SHEET_NAME As StringDim LINK_CELL As String, Link_S As String, LINK_Name As StringDim I As IntegerDim LINK_text As StringDim 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_textNext IEnd SubPrivate Sub CommandButton1_Click()PiLiangChaoLianJieEnd Sub

上一页12 下一页 阅读全文