當前位置:生活全書館 >

IT科技

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

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

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

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

如何批量生產excel的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名稱

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

然後點選選單裡面的“開發工具”選單,然後找到“檢視程式碼”並點選;

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

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

如果找不到開發工具選單的話,請點選檔案,然後點選選項,再點選自定義功能區,再點選主選項卡中,選中開發工具複選框;

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

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

錄入以下程式碼,目的是用來在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名稱

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

在程式碼編輯視窗中點選綠色執行按鈕,或者按F5鍵,執行後sheet1如下圖所示:

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

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

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

方法/步驟 1 該方法主要通過用get.workbook函式自定義一個名稱實現,首先開啟要建立目錄的工作簿,並新建一個工作表,重新命名為目錄,並填好相應名稱。 2 然後 點選 < 定義名稱> 在彈出的新建名稱視窗中 名稱命名為(目錄),在引用位置輸入=get.

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

滑鼠選中B1單元格中,將滑鼠放在單元中右下側,當滑鼠變為十字時,向下拖動滑鼠;

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

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

此時點選B列的sheet名稱為超連結,就可以開啟相應的sheet頁;

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

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

點選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的sheet名稱目錄連結 第10張

擴充套件閱讀,以下內容您可能還感興趣。

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程式碼

Sub 建立工作表目錄()

'

 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工作簿中有多個工作表,如何可以自動生成帶超連結的目錄

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

  • 文章版權屬於文章作者所有,轉載請註明 https://shqsg.com/dianzi/ey3xkq.html