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

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

百度經(jīng)驗(yàn)   發(fā)布時(shí)間：2019-09-27 11:22:14   作者：黑光計(jì)劃   我要評(píng)論
Excel中VBA怎么實(shí)現(xiàn)自動(dòng)批量添加超鏈接？Excel表格中想要批量添加超鏈接，有什么快速添加的方法嗎？我們可以使用vba來實(shí)現(xiàn)，下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下

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

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("請輸入起始行", , 1)
End_i = InputBox("請輸入結(jié)束行", , 50)
SHEET_NAME = InputBox("請輸入需要添加超鏈接的【工作表】名字", , "sheet1")
S2 = InputBox("請輸入需要?jiǎng)?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

相關(guān)文章

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

    這篇教程是向腳本之家的朋友分享excel vba編程怎么畫西紅柿方法，教程很不錯(cuò)，值得大家學(xué)習(xí)，推薦過來，一起來學(xué)習(xí)吧
    2016-08-17

  • excel中怎么使用vba查看字符串的asc值?

    excel中怎么使用vba查看字符串的asc值？我們想要查看某個(gè)字符串的asc的值，就可以使用vba來查看，具體該怎么實(shí)現(xiàn)呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
    2016-08-17

  • excel怎么借用VBA繪制小卡車?

    excel怎么借用VBA繪制小卡車？excel中直接繪制圖形很困難，我們要借助vba窗體，下面我們就來看看詳細(xì)的畫法，很簡單，需要的朋友可以參考下
    2016-08-16

  • excel怎么使用vba一鍵隱藏所有工作表?

    excel怎么使用vba一鍵隱藏所有工作表？excel中很多工作表機(jī)密性比較大，想要隱藏起來，該怎么隱藏呢？一個(gè)一個(gè)隱藏太慢，下面我們就來看看使用vba一鍵隱藏所有工作表的詳細(xì)
    2016-08-15

  • excel怎么將表格中的美元轉(zhuǎn)換為人民幣?

    excel怎么將表格中的美元轉(zhuǎn)換為人民幣？excel表格中全是美元，想將美元全部轉(zhuǎn)換成人民不，該怎么轉(zhuǎn)換呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
    2016-08-14

  • excel vba編程在窗體上畫微波爐

    這篇教程是向腳本之家介紹excel vba編程在窗體上畫微波爐方法，方法很簡單的，有需要的朋友可以參考本文，希望能對(duì)大家有所幫助
    2016-08-12

  • 利用excel vba編程在窗體上畫手提電腦

    這篇教程主要是向腳本之家的朋友分享利用excel vba編程在窗體上畫手提電腦方法，教程比較基礎(chǔ)，適合新手來學(xué)習(xí)，推薦到腳本之家，喜歡的朋友可以參考本文哦
    2016-08-10

  • excel怎么利用vba函數(shù)給表格區(qū)域添加綠框?

    excel怎么利用vba函數(shù)給表格區(qū)域添加綠框？excel表格中有重要的數(shù)據(jù)，想將數(shù)據(jù)框起來更扎眼，該怎么做呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下
    2016-08-10

  • excel怎么使用vba實(shí)現(xiàn)箱號(hào)換散鞋模板的功能?

    excel怎么使用vba實(shí)現(xiàn)箱號(hào)換散鞋模板的功能？經(jīng)常需要將整箱的鞋子換成散鞋，該怎么換呢？今天我們就來看看使用excel制作散箱號(hào)換散鞋模板的教程，需要的朋友可以參考下
    2016-08-10

  • excel vba編程畫一只小蜜蜂

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

最新評(píng)論