今天跟大家分享下我們?nèi)绾螌eepSeek生成的VBA代碼，做成按鈕，將其永久保存在我們的Excel表格中，下次遇到類似的問題，直接在Excel中點(diǎn)擊按鈕，就能10秒搞定，操作也非常的簡(jiǎn)單。

微軟Office LTSC 2021專業(yè)增強(qiáng)版 簡(jiǎn)體中文批量許可版 2024年09月更新

• 類型：辦公軟件
• 大?。?/span>2.2GB
• 語(yǔ)言：簡(jiǎn)體中文
• 時(shí)間：2024-09-12

查看詳情

一、代碼準(zhǔn)備

代碼可以直接詢問DeepSeek，我們就以新建目錄為例，跟大家簡(jiǎn)單的演示下，首先需要復(fù)制下方的代碼。

Sub 目錄生成()
Dim ws As Worksheet
Dim indexSheet As Worksheet
Dim i As Integer
Dim shp As Shape
Dim hyperlinkAddr As String
On Error Resume Next
Set indexSheet = ActiveWorkbook.Worksheets("目錄")
If indexSheet Is Nothing Then
Set indexSheet = ActiveWorkbook.Sheets.Add(Before:=ActiveWorkbook.Sheets(1))
indexSheet.Name = "目錄"
End If
On Error GoTo 0
indexSheet.Cells.ClearContents
indexSheet.Cells(1, 1).Value = "工作表目錄"
i = 2
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> indexSheet.Name Then
' 在目錄頁(yè)創(chuàng)建超鏈接
indexSheet.Hyperlinks.Add _
Anchor:=indexSheet.Cells(i, 1), _
Address:="", _
SubAddress:="'" & ws.Name & "'!A1", _
TextToDisplay:=ws.Name
' 在工作表添加返回按鈕
Set shp = ws.Shapes.AddShape(msoShapeRectangle, 10, 10, 80, 20)
shp.TextFrame.Characters.Text = "返回目錄"
hyperlinkAddr = "'" & indexSheet.Name & "'!A1"
' 為按鈕添加超鏈接
ws.Hyperlinks.Add _
Anchor:=shp, _
Address:="", _
SubAddress:=hyperlinkAddr
i = i + 1
End If
Next ws
End Sub

二、新建xlam模板

我們需要?jiǎng)?chuàng)建一個(gè)xlam模板，用于儲(chǔ)存上面的VBA代碼。

Xlam格式的文件他就加載宏的文件，將其放在對(duì)應(yīng)的位置，以后就能在這臺(tái)電腦中的所有Excel文件中調(diào)用這個(gè)代碼了。

只需找到新建的Excel文件，右上角點(diǎn)擊文件，然后找到另存為，然后點(diǎn)擊更多選項(xiàng)，在跳出的窗口中找到【保存類型】將類型設(shè)置為【xlam】，然后點(diǎn)擊保存

文件就會(huì)默認(rèn)的保存在【C:\Users\yh\AppData\Roaming\Microsoft\AddIns】這個(gè)路徑中

電腦不一樣，路徑一般也不會(huì)完全一樣的，大家只需搜索下這個(gè)路徑，一般都能是能找到的

【AppData\Roaming\Microsoft\AddIns】

三、粘貼代碼

找到剛才創(chuàng)建的xlam文件，然后雙擊打開它，點(diǎn)擊【開發(fā)工具】找到【visiual basic】，然后點(diǎn)擊鼠標(biāo)右鍵找到【插入】創(chuàng)建【模塊】找到新建的模塊，將剛才復(fù)制的代碼直接粘貼到對(duì)應(yīng)的位置，點(diǎn)擊下保存

四、設(shè)置按鈕

首選需要點(diǎn)擊【文件】然后在最下方找到【選項(xiàng)】來調(diào)出【Excel選項(xiàng)】

之后需要在右側(cè)的選項(xiàng)卡中選擇【新建選項(xiàng)卡】然后點(diǎn)擊【重命名】將名字定義為【小工具】

最后點(diǎn)擊【新建組】也是點(diǎn)擊重命名，將名稱設(shè)置為【自動(dòng)化】

最后在左上角的區(qū)域中選擇【宏】找到【目錄生成】點(diǎn)擊【添加】然后再點(diǎn)擊【確定】

這樣的話就可以將按鈕永遠(yuǎn)的放在Excel表格中，下次想要?jiǎng)?chuàng)建目錄，直接點(diǎn)擊生成即可

至此就設(shè)置完畢了，還是比較方便的，大家可以試著做一下

最新評(píng)論