如何批量生產(chǎn)excel的sheet名稱目錄鏈接

方法/步驟 1 打開excel文檔，創(chuàng)建若干個(gè)sheet頁,例如sheet1,a1,a2,a3等 2 點(diǎn)擊菜單中的開發(fā)工具菜單，點(diǎn)擊查看代碼按鈕 3 如果找不到開發(fā)工具菜單，請(qǐng)點(diǎn)擊文件->選項(xiàng)->自定義功能區(qū)->主選項(xiàng)卡中，選中開發(fā)工具復(fù)選框 4 錄入以下下代碼。目的是用

在使用excel制作表格數(shù)據(jù)時(shí)，有時(shí)候會(huì)分許多sheet，但是一旦sheet頁多時(shí)，不論查找還是選中都很不方便。

材料/工具

電腦excel軟件

可以使用VBA來實(shí)現(xiàn)，選中有連接的單元格區(qū)域，執(zhí)行下面的宏就可以了： Sub 更新所有表的超級(jí)鏈接() Dim c As Range, st As Worksheet For Each c In Selection.Cells If c.Value "" Then If c.Hyperlinks.Count > 0 Then c.Hyperlinks(1).SubAdd

方法

首先打開電腦，再打開excel文檔后，創(chuàng)建幾個(gè)sheet頁,例如sheet1,a1,a2,a3等；

使用VBA可完成操作目標(biāo)。 按照如下步驟操作： 在excel文件中打開vba編輯器(可利用快捷鍵alt+F11) 點(diǎn)擊左側(cè)sheet1，復(fù)制如下代碼到右側(cè)編輯框中（如下圖所示） 運(yùn)行該代碼（點(diǎn)擊播放按鈕或者直接按F4） 回到sheet1中即可看到已生成所有sheet名稱

然后點(diǎn)擊菜單里面的“開發(fā)工具”菜單，然后找到“查看代碼”并點(diǎn)擊；

Sub 創(chuàng)建工作表目錄() ' If Sheets(1).Name "目錄" Then yn = MsgBox("【目錄】工作表不存在，建立【目錄】嗎？", vbYesNo, "建立【目錄】工作表") If yn = vbYes Then Sheets.Add(Sheets(1)).Name = "目錄" Columns("A:A").Select With Selecti

如果找不到開發(fā)工具菜單的話，請(qǐng)點(diǎn)擊文件，然后點(diǎn)擊選項(xiàng)，再點(diǎn)擊自定義功能區(qū)，再點(diǎn)擊主選項(xiàng)卡中，選中開發(fā)工具復(fù)選框；

選中要插入鏈接的第一個(gè)工作表標(biāo)簽 按住SHIFT鍵的同時(shí) 點(diǎn)擊最后一個(gè)工作表的標(biāo)簽 在某一單元格內(nèi)輸入 =HYPERLINK("#目錄!A1","目錄!A1") 回車 所有的工作表就都加入了返回目錄的鏈接。

錄入以下代碼，目的是用來在sheet1頁中的第一列生成sheet名字列Sub createmulu() For i = 1 To Sheets.CountCells(i, 1) = Sheets(i).Name Next End Sub；

使用VBA可完成操作目標(biāo)。 按照如下步驟操作： 在excel文件中打開vba編輯器(可利用快捷鍵alt+F11) 點(diǎn)擊左側(cè)sheet1，復(fù)制如下代碼到右側(cè)編輯框中（如下圖所示） 運(yùn)行該代碼（點(diǎn)擊播放按鈕或者直接按F4） 回到sheet1中即可看到已生成所有sheet名稱

在代碼編輯窗口中點(diǎn)擊綠色運(yùn)行按鈕，或者按F5鍵，運(yùn)行后sheet1如下圖所示：

復(fù)制下面的公式至各工作表中需要顯示超鏈接的空白單元格中，如：A1 =HYPERLINK("#sheet1!A1","返回目錄")

在sheet1中B2單元格中定義超鏈接函數(shù)，錄入=HYPERLINK("#"&A2&"!A1",A2)；

方法/步驟 1 該方法主要通過用get.workbook函數(shù)自定義一個(gè)名稱實(shí)現(xiàn)，首先打開要?jiǎng)?chuàng)建目錄的工作簿，并新建一個(gè)工作表，重命名為目錄，并填好相應(yīng)名稱。 2 然后 點(diǎn)擊 < 定義名稱> 在彈出的新建名稱窗口中 名稱命名為（目錄），在引用位置輸入=get.

鼠標(biāo)選中B1單元格中，將鼠標(biāo)放在單元中右下側(cè)，當(dāng)鼠標(biāo)變?yōu)槭謺r(shí)，向下拖動(dòng)鼠標(biāo)；

在SHEET1工作表中，按Ctrl+F3出現(xiàn)自定義名稱對(duì)話框，取名為X，在“引用位置”框中輸入：=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100) 確定 在目錄工作表（即sheet1）的A2單元格輸入公式：=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(

此時(shí)點(diǎn)擊B列的sheet名稱為超鏈接，就可以打開相應(yīng)的sheet頁；

具體步驟如下： 需要準(zhǔn)備的材料分別是：電腦、Excel表格。 1、首先打開需要編輯的Excel表格，進(jìn)入到編輯頁面中。 2、然后右鍵單擊想要插入超鏈接的單元格，選擇“超鏈接”。 3、然后在彈出來的窗口中點(diǎn)擊“要顯示的文字”，輸入想要顯示的文字，選擇

點(diǎn)擊shift鍵，選中除sheet1外的其他sheet頁，在A1單元格中錄入=HYPERLINK("#sheet1!A1","返回目錄")，然后回車，所有選中sheet頁中便成功添加“返回目錄”超鏈接。

按ALT+F11，然后選你的工作表，把下面的代碼粘貼進(jìn)去，然后回到EXCEL中按ALT+F8，執(zhí)行宏Content即可 Sub Content() '創(chuàng)建目錄 ' Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet) NewSheet.Name = "Content" NewSheet.Cells(1,

擴(kuò)展閱讀，以下內(nèi)容您可能還感興趣。

EXCEL鏈接到工作表中的目錄怎么做？

具體步驟如下：

需要準(zhǔn)備的材料分別是：電抄腦、Excel表格。

1、首先打開需要編輯的Excel表格，進(jìn)入到編輯頁面中。

襲查看大圖" class="ikqb_img_alink">

2、然后右鍵單擊想要插入超鏈接的單元格，選擇知“超鏈接”。

3、然后在彈出來的窗口中點(diǎn)擊“要顯示的文字”，輸入想要顯示的文字，選擇“文檔中的位置”，

4、然后選擇超鏈接的工作表，回車確定。

5、然后就完道成了。

EXCEL 同個(gè)工作薄如何批量超鏈接，即在目錄表里點(diǎn)頁碼Sheet1、Sheet2、Sheet3，即可跳到相應(yīng)的工作表

按ALT+F11，然后選你的來工作表，把下面源的百代碼粘貼進(jìn)去，然后回度到EXCEL中按ALT+F8，執(zhí)行問宏Content即可

Sub Content()

'創(chuàng)建目答錄

'

Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet)

NewSheet.Name = "Content"

NewSheet.Cells(1, 1).Value = "Content"

For i = 2 To Sheets.Count

NewSheet.Cells(i, 1).Value = i - 1

With Worksheets(1)

.Hyperlinks.Add Anchor:=.Cells(i, 2), Address:="", _

SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name

End With

Next i

End Sub

Excel 怎么提取工作表名并建立超連接來做成目錄

需要用到VBA

這是我以前在網(wǎng)上找到的e799bee5baa6e79fa5e98193e78988e69d8331333337376434代碼

'

 If Sheets(1).Name <> "目錄" Then

 yn = MsgBox("【目錄】工作表不存在，建立【目錄】嗎？", vbYesNo, "建立【目錄】工作表")

 If yn = vbYes Then

 Sheets.Add(Sheets(1)).Name = "目錄"

 Columns("A:A").Select

 With Selection

 .HorizontalAlignment = xlCenter

 .VerticalAlignment = xlCenter

 .ColumnWidth = 6

 End With

 Columns("B:B").Select

 With Selection

 .HorizontalAlignment = xlLeft

 .VerticalAlignment = xlCenter

 .NumberFormatLocal = "@"

 .ColumnWidth = 36

 End With

 Range("A1").Select

 Else

 End

 End If

 Else

 yn = MsgBox("【目錄】工作表已存在，更新數(shù)據(jù)嗎？", vbYesNo, "更新目錄數(shù)據(jù)")

 If yn = vbNo Then End

 End If

 Sheets("目錄").Select

 Columns("A:B").Select

 Selection.ClearContents

 Range("A1").Select

 Cells(1, 1).Value = "序號(hào)"

 Cells(1, 2).Value = "工作表名稱"

 Application.ScreenUpdating = False

For i = 2 To Sheets.Count

 Sheets("目錄").Select

 Cells(i, 1).Value = i - 1

 Cells(i, 2).Value = Sheets(i).Name

 Cells(i, 2).Select

 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

 "'" & Cells(i, 2).Value & "'!A1", TextToDisplay:=Cells(i, 2).Value

Next i

 Application.ScreenUpdating = True

 yn = MsgBox("【目錄】工作表已更新，按“Ctrl+z”返回此【目錄】！" , vbOKOnly, "查詢工作表")

End Sub

EXCEL中我想把工作表一的A作為目錄，怎樣批量設(shè)置超鏈接A1對(duì)應(yīng)后面的sheet1，A2對(duì)應(yīng)sheet2……？

請(qǐng)參考如下步驟在來第一個(gè)工作表自動(dòng)批量生成指向后續(xù)各個(gè)工源作表的超鏈目錄：

1、把光標(biāo)放在第一個(gè)工作表希望插入目百錄的地方；

2、鍵入Alt+F11打開VBA編輯器，然后選擇菜單“插入 - 模塊”；

3、在度代碼編輯區(qū)粘貼如下問代碼：

Option Explicit

Sub AutoGenerateHyperlinks()

Dim nIndex As Integer

Dim oRange As Range

For nIndex = 2 To Sheets.Count

Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)

oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name

Next

End Sub

4、鍵入F5運(yùn)行，再鍵入Alt+F11切換回第一個(gè)工作表，檢查目答錄超鏈?zhǔn)欠褡詣?dòng)建立成功。

EXCEL工作簿中有多個(gè)工作表，如何可以自動(dòng)生成帶超鏈接的目錄

我有個(gè)方法，百希望能幫你解決。首先最好是每張工作表的名字為可以區(qū)分的名字，比如說第度一張的客戶叫張一，工作表的名字就叫張一，第二張就叫張二，一次問類推，這張為舉例的圖片，注答意最左邊的位置，然后右鍵單擊，在回這里可以選擇工作表，點(diǎn)開“其他工作表”，選中你需要的表格就可以了。希望對(duì)答你有幫助。

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識(shí)，若有侵權(quán)等問題請(qǐng)及時(shí)與本網(wǎng)聯(lián)系，我們將在第一時(shí)間刪除處理。TEL:0731-84117792 E-MAIL:11247931@qq.com