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 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
vba做excel窗体录入教程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
上⼀页12下⼀页阅读全⽂

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。