Excel中VBA怎么實現(xiàn)自動批量添加超鏈接?
百度經驗 發(fā)布時間:2019-09-27 11:22:14 作者:黑光計劃
我要評論

Excel中VBA怎么實現(xiàn)自動批量添加超鏈接?Excel表格中想要批量添加超鏈接,有什么快速添加的方法嗎?我們可以使用vba來實現(xiàn),下面我們就來看看詳細的教程,需要的朋友可以參考下
想要使用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("請輸入需要創(chuàng)建連接的【列】名", , "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窗口,單擊按鈕執(zhí)行指令。
7、該程序會提示你輸入指定的參數(shù),可以參考提示輸入。如下圖:一步一步輸入,如果輸入錯誤,程序崩潰,重新執(zhí)行指令。
如果程序錯誤【單擊】【結束按鈕】然后重新單擊 批量超鏈接 按鈕即可,重新操作。
就是就是Excel中VBA實現(xiàn)自動批量添加超鏈接的教程,希望大家喜歡,請繼續(xù)關注腳本之家。
相關推薦:
相關文章
- 這篇教程是向腳本之家的朋友分享excel vba編程怎么畫西紅柿方法,教程很不錯,值得大家學習,推薦過來,一起來學習吧2016-08-17
- excel中怎么使用vba查看字符串的asc值?我們想要查看某個字符串的asc的值,就可以使用vba來查看,具體該怎么實現(xiàn)呢?下面我們就來看看詳細的教程,需要的朋友可以參考下2016-08-17
- excel怎么借用VBA繪制小卡車?excel中直接繪制圖形很困難,我們要借助vba窗體,下面我們就來看看詳細的畫法,很簡單,需要的朋友可以參考下2016-08-16
- excel怎么使用vba一鍵隱藏所有工作表?excel中很多工作表機密性比較大,想要隱藏起來,該怎么隱藏呢?一個一個隱藏太慢,下面我們就來看看使用vba一鍵隱藏所有工作表的詳細2016-08-15
- excel怎么將表格中的美元轉換為人民幣?excel表格中全是美元,想將美元全部轉換成人民不,該怎么轉換呢?下面我們就來看看詳細的教程,需要的朋友可以參考下2016-08-14
- 這篇教程是向腳本之家介紹excel vba編程在窗體上畫微波爐方法,方法很簡單的,有需要的朋友可以參考本文,希望能對大家有所幫助2016-08-12
- 這篇教程主要是向腳本之家的朋友分享利用excel vba編程在窗體上畫手提電腦方法,教程比較基礎,適合新手來學習,推薦到腳本之家,喜歡的朋友可以參考本文哦2016-08-10
excel怎么利用vba函數(shù)給表格區(qū)域添加綠框?
excel怎么利用vba函數(shù)給表格區(qū)域添加綠框?excel表格中有重要的數(shù)據,想將數(shù)據框起來更扎眼,該怎么做呢?下面我們就來看看詳細的教程,需要的朋友可以參考下2016-08-10excel怎么使用vba實現(xiàn)箱號換散鞋模板的功能?
excel怎么使用vba實現(xiàn)箱號換散鞋模板的功能?經常需要將整箱的鞋子換成散鞋,該怎么換呢?今天我們就來看看使用excel制作散箱號換散鞋模板的教程,需要的朋友可以參考下2016-08-10- 今天小編為大家分享excel vba編程畫一只小蜜蜂方法,教程繪制出來的小蜜蜂非常不錯,方法很簡單,感興趣的朋友可以參考本文,來看看吧2016-08-09