內事不決問百度，外事不決問谷歌，工作難題就問DeepSeek。

如下圖，當前文檔中有多個工作表，今天咱們就讓DeepSeek來創(chuàng)建帶鏈接的工作表目錄。

打開deepseek官網，輸入咱們的要求：

Excel文檔中有多個工作表，希望生成帶超鏈接的目錄，請?zhí)峁┮欢蜼BA代碼，并對代碼進行注釋，同時說明代碼的使用方法。

思索片刻，deepseek就給出了解決方法：

Sub CreateTableOfContents()    ' 定義變量    
Dim ws As Worksheet          ' 用于循環(huán)遍歷工作簿中的每個工作表    
Dim tocSheet As Worksheet    ' 用于引用目錄工作表    
Dim rowIndex As Integer      ' 用于跟蹤目錄中的行號
    ' 設置目錄工作表和初始行號    
    Set tocSheet = ThisWorkbook.Sheets(1)  ' 假設目錄放在第一個工作表    
    rowIndex = 1                           ' 從第一行開始
    ' 清除目錄工作表中的所有內容    
    tocSheet.Cells.Clear
    ' 添加目錄標題    
    tocSheet.Cells(rowIndex, 1).Value = "目錄"    
    tocSheet.Cells(rowIndex, 1).Font.Bold = True    
    rowIndex = rowIndex + 1
    ' 循環(huán)遍歷工作簿中的每個工作表    
    For Each ws In ThisWorkbook.Sheets        
    ' 跳過目錄工作表本身        
    If ws.Name <> tocSheet.Name Then           
    ' 在工作表中添加工作表名稱和超鏈接            
    tocSheet.Cells(rowIndex, 1).Value = ws.Name            
    tocSheet.Hyperlinks.Add Anchor:=tocSheet.Cells(rowIndex, 1), _                              
    Address:="", _                                    
    SubAddress:="'" & ws.Name & "'!A1", _                                    
    TextToDisplay:=ws.Name            
    rowIndex = rowIndex + 1        
    End If    
    Next ws
    ' 調整目錄工作表的列寬    
    tocSheet.Columns("A:A").AutoFit
    ' 提示用戶目錄已生成    
    MsgBox "目錄已生成在第一個工作表中！", vbInformation
    End Sub

同時給出了詳細的代碼說明：

變量定義：

• ws：用于循環(huán)遍歷工作簿中的每個工作表。
• tocSheet：用于引用目錄所在的工作表。
• rowIndex：用于跟蹤目錄中的行號。

設置目錄工作表：

• Set tocSheet = ThisWorkbook.Sheets(1)：假設目錄放在第一個工作表中。
• rowIndex = 1：從第一行開始添加目錄。

清除目錄工作表中的所有內容：

• tocSheet.Cells.Clear：清除目錄工作表中的所有內容，以便生成新的目錄。

添加目錄標題：

• tocSheet.Cells(rowIndex, 1).Value = "目錄"：在第一行添加“目錄”標題。
• tocSheet.Cells(rowIndex, 1).Font.Bold = True：將標題加粗。
• rowIndex = rowIndex + 1：行號加1，準備添加工作表名稱。

循環(huán)遍歷工作簿中的每個工作表：

• For Each ws In ThisWorkbook.Sheets：循環(huán)遍歷工作簿中的每個工作表。
• If ws.Name <> tocSheet.Name Then：跳過目錄工作表本身。
• tocSheet.Cells(rowIndex, 1).Value = ws.Name：在工作表中添加工作表名稱。
• tocSheet.Hyperlinks.Add：為每個工作表名稱添加超鏈接，點擊后跳轉到對應工作表的A1單元格。
• rowIndex = rowIndex + 1：行號加1，準備添加下一個工作表名稱。

調整目錄工作表的列寬：

• tocSheet.Columns("A:A").AutoFit：自動調整目錄工作表的列寬，以便完整顯示工作表名稱。

提示用戶目錄已生成：

• MsgBox "目錄已生成在第一個工作表中！", vbInformation：彈出一個消息框，提示用戶目錄已生成。

還給出了詳細的使用方法：

1、打開Excel工作簿，按 Alt + F11 打開VBA編輯器。

2、在VBA編輯器中，點擊插入 -> 模塊，插入一個新模塊。

3、將上述代碼復制并粘貼到新模塊中。

4、按 F5運行。

• 運行后，在第一個工作表中將生成一個帶超鏈接的目錄，點擊目錄中的工作表名稱即可跳轉到對應的工作表。

并且貼心的給出了注意事項：：

• 如果目錄工作表不是第一個工作表，請修改 Set tocSheet = ThisWorkbook.Sheets(1) 中的索引號。
• 如果工作簿中有隱藏的工作表，它們也會被包含在目錄中。如果不希望包含隱藏工作表，可以在循環(huán)中添加條件判斷。

按說明進行操作，果然一秒出結果：

在對DeepSeek提問時，應該明確目標、數(shù)據(jù)結構、特殊需求、分步描述和具體例子，這些都是幫助模型準確生成Excel代碼或者公式的關鍵因素。

最新評論