Excel中VBA怎么實(shí)現(xiàn)自動(dòng)批量添加超鏈接?

百度經(jīng)驗(yàn) 發(fā)布時(shí)間：2019-09-27 11:22:14 作者：黑光計(jì)劃

Excel中VBA怎么實(shí)現(xiàn)自動(dòng)批量添加超鏈接？Excel表格中想要批量添加超鏈接，有什么快速添加的方法嗎？我們可以使用vba來(lái)實(shí)現(xiàn)，下面我們就來(lái)看看詳細(xì)的教程，需要的朋友可以參考下

想要使用VBA程序在Excel中批量添加超鏈接；將Excel其中一個(gè)工作表的某列添加另外一個(gè)工作表的某列的超鏈接。下面我們就來(lái)看看詳細(xì)的教程。

Microsoft Office 2019 正式版中文個(gè)人版/學(xué)生版(附批量授權(quán)) 64位

類型：辦公軟件
大?。?/span>4.67MB
語(yǔ)言：簡(jiǎn)體中文
時(shí)間：2018-09-26

查看詳情

1、將Excel的VBA宏安全性改為最低，這樣方便運(yùn)行宏代碼

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

3、改變按鈕控件名稱

4、雙擊按鈕控件，打開代碼編輯VBA窗口；刪除全部顯示的代碼。

5、'復(fù)制此步驟所有內(nèi)容到VBA窗口，包括這句話。

Option Explicit
Public Sub PiLiangChaoLianJie()
'01----批量超鏈接，將一個(gè)工作表中的列作為超鏈接添加到另外一個(gè)工作表中
' 宏由 keke 錄制，時(shí)間: 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("請(qǐng)輸入起始行", , 1)
End_i = InputBox("請(qǐng)輸入結(jié)束行", , 50)
SHEET_NAME = InputBox("請(qǐng)輸入需要添加超鏈接的【工作表】名字", , "sheet1")
S2 = InputBox("請(qǐng)輸入需要?jiǎng)?chuàng)建連接的【列】名", , "A")
LINK_Name = InputBox("請(qǐng)輸入鏈接到的【工作表】的名字", , "sheet2")
Link_S = InputBox("請(qǐng)輸入鏈接到工作表所在的【列】名", , "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