如何批量生產excel的sheet名稱目錄連結

方法/步驟 1 開啟excel文檔，創建若干個sheet頁,例如sheet1,a1,a2,a3等 2 點擊選單中的開發工具選單，點擊檢視代碼按鈕 3 如果找不到開發工具選單，請點擊檔案->選項->自訂功能區->主選項卡中，選中開發工具複選框 4 錄入以下下代碼。目的是用

在使用excel製作表格數據時，有時候會分許多sheet，但是一旦sheet頁多時，不論查找還是選中都很不方便。

材料/工具

電腦excel軟件

可以使用VBA來實現，選中有連接的單元格區域，執行下面的宏就可以了： Sub 更新所有表的超級連結() 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文檔後，創建幾個sheet頁,例如sheet1,a1,a2,a3等；

使用VBA可完成操作目標。 按照如下步驟操作： 在excel檔案中開啟vba編輯器(可利用快速鍵alt+F11) 點擊左側sheet1，複製如下代碼到右側編輯框中（如下圖所示） 執行該代碼（點擊播放按鈕或者直接按F4） 回到sheet1中即可看到已生成所有sheet名稱

然後點擊選單裏面的“開發工具”選單，然後找到“檢視代碼”並點擊；

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

如果找不到開發工具選單的話，請點擊檔案，然後點擊選項，再點擊自訂功能區，再點擊主選項卡中，選中開發工具複選框；

選中要插入連結的第一個工作表標籤 按住SHIFT鍵的同時 點擊最後一個工作表的標籤 在某一單元格內輸入 =HYPERLINK("#目錄!A1","目錄!A1") 回車 所有的工作表就都加入了返回目錄的連結。

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

使用VBA可完成操作目標。 按照如下步驟操作： 在excel檔案中開啟vba編輯器(可利用快速鍵alt+F11) 點擊左側sheet1，複製如下代碼到右側編輯框中（如下圖所示） 執行該代碼（點擊播放按鈕或者直接按F4） 回到sheet1中即可看到已生成所有sheet名稱

在代碼編輯視窗中點擊綠色執行按鈕，或者按F5鍵，執行後sheet1如下圖所示：

複製下面的公式至各工作表中需要顯示超連結的空白單元格中，如：A1 =HYPERLINK("#sheet1!A1","返回目錄")

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

方法/步驟 1 該方法主要透過用get.workbook函數自訂一個名稱實現，首先開啟要創建目錄的工作簿，並新建一個工作表，重命名爲目錄，並填好相應名稱。 2 然後 點擊 < 定義名稱> 在彈出的新建名稱視窗中 名稱命名爲（目錄），在引用位置輸入=get.

鼠標選中B1單元格中，將鼠標放在單元中右下側，當鼠標變爲十字時，向下拖動鼠標；

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

此時點擊B列的sheet名稱爲超連結，就可以開啟相應的sheet頁；

具體步驟如下： 需要準備的材料分別是：電腦、Excel表格。 1、首先開啟需要編輯的Excel表格，進入到編輯頁面中。 2、然後右鍵單擊想要插入超連結的單元格，選擇“超連結”。 3、然後在彈出來的視窗中點擊“要顯示的文字”，輸入想要顯示的文字，選擇

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

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

擴展閱讀，以下內容您可能還感興趣。

EXCEL連結到工作表中的目錄怎麼做？

具體步驟如下：

需要準備的材料分別是：電抄腦、Excel表格。

1、首先開啟需要編輯的Excel表格，進入到編輯頁面中。

襲檢視大圖" class="ikqb_img_alink">

2、然後右鍵單擊想要插入超連結的單元格，選擇知“超連結”。

3、然後在彈出來的視窗中點擊“要顯示的文字”，輸入想要顯示的文字，選擇“文檔中的位置”，

4、然後選擇超連結的工作表，回車確定。

5、然後就完道成了。

EXCEL 同個工作薄如何批量超連結，即在目錄表裏點頁碼Sheet1、Sheet2、Sheet3，即可跳到相應的工作表

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

Sub Content()

'創建目答錄

'

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

這是我以前在網上找到的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("【目錄】工作表已存在，更新數據嗎？", vbYesNo, "更新目錄數據")

 If yn = vbNo Then End

 End If

 Sheets("目錄").Select

 Columns("A:B").Select

 Selection.ClearContents

 Range("A1").Select

 Cells(1, 1).Value = "序號"

 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作爲目錄，怎樣批量設定超連結A1對應後面的sheet1，A2對應sheet2……？

請參考如下步驟在來第一個工作表自動批量生成指向後續各個工源作表的超鏈目錄：

1、把遊標放在第一個工作表希望插入目百錄的地方；

2、鍵入Alt+F11開啟VBA編輯器，然後選擇選單“插入 - 模組”；

3、在度代碼編輯區粘貼如下問代碼：

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執行，再鍵入Alt+F11切換回第一個工作表，檢查目答錄超鏈是否自動建立成功。

EXCEL工作簿中有多個工作表，如何可以自動生成帶超連結的目錄

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