欧美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

最新評論