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

上一頁12 下一頁 閱讀全文

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。