內(nèi)事不決問百度，外事不決問谷歌，工作難題就問DeepSeek。

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

打開deepseek官網(wǎng)，輸入咱們的要求：

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

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

Sub CreateTableOfContents()    ' 定義變量    
Dim ws As Worksheet          ' 用于循環(huán)遍歷工作簿中的每個工作表    
Dim tocSheet As Worksheet    ' 用于引用目錄工作表    
Dim rowIndex As Integer      ' 用于跟蹤目錄中的行號
    ' 設(shè)置目錄工作表和初始行號    
    Set tocSheet = ThisWorkbook.Sheets(1)  ' 假設(shè)目錄放在第一個工作表    
    rowIndex = 1                           ' 從第一行開始
    ' 清除目錄工作表中的所有內(nèi)容    
    tocSheet.Cells.Clear
    ' 添加目錄標(biāo)題    
    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
    ' 調(diào)整目錄工作表的列寬    
    tocSheet.Columns("A:A").AutoFit
    ' 提示用戶目錄已生成    
    MsgBox "目錄已生成在第一個工作表中！", vbInformation
    End Sub

同時給出了詳細(xì)的代碼說明：

變量定義：

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

設(shè)置目錄工作表：

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

清除目錄工作表中的所有內(nèi)容：

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

添加目錄標(biāo)題：

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

循環(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：為每個工作表名稱添加超鏈接，點擊后跳轉(zhuǎn)到對應(yīng)工作表的A1單元格。
• rowIndex = rowIndex + 1：行號加1，準(zhǔn)備添加下一個工作表名稱。

調(diào)整目錄工作表的列寬：

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

提示用戶目錄已生成：

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

還給出了詳細(xì)的使用方法：

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

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

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

4、按 F5運行。

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

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

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

按說明進(jìn)行操作，果然一秒出結(jié)果：

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

最新評論