欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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怎么創(chuàng)建或刪除文件夾?

excel中VBA怎么刪除數(shù)組內的元素?

excel中VBA編輯器怎么設置字體大小?

相關文章

  • excel vba編程怎么畫西紅柿?

    這篇教程是向腳本之家的朋友分享excel vba編程怎么畫西紅柿方法,教程很不錯,值得大家學習,推薦過來,一起來學習吧
    2016-08-17
  • excel中怎么使用vba查看字符串的asc值?

    excel中怎么使用vba查看字符串的asc值?我們想要查看某個字符串的asc的值,就可以使用vba來查看,具體該怎么實現(xiàn)呢?下面我們就來看看詳細的教程,需要的朋友可以參考下
    2016-08-17
  • excel怎么借用VBA繪制小卡車?

    excel怎么借用VBA繪制小卡車?excel中直接繪制圖形很困難,我們要借助vba窗體,下面我們就來看看詳細的畫法,很簡單,需要的朋友可以參考下
    2016-08-16
  • excel怎么使用vba一鍵隱藏所有工作表?

    excel怎么使用vba一鍵隱藏所有工作表?excel中很多工作表機密性比較大,想要隱藏起來,該怎么隱藏呢?一個一個隱藏太慢,下面我們就來看看使用vba一鍵隱藏所有工作表的詳細
    2016-08-15
  • excel怎么將表格中的美元轉換為人民幣?

    excel怎么將表格中的美元轉換為人民幣?excel表格中全是美元,想將美元全部轉換成人民不,該怎么轉換呢?下面我們就來看看詳細的教程,需要的朋友可以參考下
    2016-08-14
  • excel vba編程在窗體上畫微波爐

    這篇教程是向腳本之家介紹excel vba編程在窗體上畫微波爐方法,方法很簡單的,有需要的朋友可以參考本文,希望能對大家有所幫助
    2016-08-12
  • 利用excel vba編程在窗體上畫手提電腦

    這篇教程主要是向腳本之家的朋友分享利用excel vba編程在窗體上畫手提電腦方法,教程比較基礎,適合新手來學習,推薦到腳本之家,喜歡的朋友可以參考本文哦
    2016-08-10
  • excel怎么利用vba函數(shù)給表格區(qū)域添加綠框?

    excel怎么利用vba函數(shù)給表格區(qū)域添加綠框?excel表格中有重要的數(shù)據,想將數(shù)據框起來更扎眼,該怎么做呢?下面我們就來看看詳細的教程,需要的朋友可以參考下
    2016-08-10
  • excel怎么使用vba實現(xiàn)箱號換散鞋模板的功能?

    excel怎么使用vba實現(xiàn)箱號換散鞋模板的功能?經常需要將整箱的鞋子換成散鞋,該怎么換呢?今天我們就來看看使用excel制作散箱號換散鞋模板的教程,需要的朋友可以參考下
    2016-08-10
  • excel vba編程畫一只小蜜蜂

    今天小編為大家分享excel vba編程畫一只小蜜蜂方法,教程繪制出來的小蜜蜂非常不錯,方法很簡單,感興趣的朋友可以參考本文,來看看吧
    2016-08-09

最新評論