DeepSeek搭配Excel，制作自定义按钮，实现办公自动化！

今天跟大家分享下我们如何将DeepSeek生成的VBA代码，做成按钮，将其永久保存在我们的Excel表格中，下次遇到类似的问题，直接在Excel中点击按钮，就能10秒搞定，操作也非常的简单

一、代码准备

代码可以直接询问DeepSeek，我们就以新建目录为例，跟大家简单的演示下，首先需要复制下方的代码。

Sub 目录生成()Dim ws As WorksheetDim indexSheet As WorksheetDim i As IntegerDim shp As ShapeDim hyperlinkAddr As StringOn Error Resume NextSet indexSheet = ActiveWorkbook.Worksheets("目录")If indexSheet Is Nothing ThenSet indexSheet = ActiveWorkbook.Sheets.Add(Before:=ActiveWorkbook.Sheets(1))indexSheet.Name = "目录"End IfOn Error GoTo 0indexSheet.Cells.ClearContentsindexSheet.Cells(1, 1).Value = "工作表目录"i = 2For Each ws In ActiveWorkbook.WorksheetsIf ws.Name <> indexSheet.Name Then' 在目录页创建超链接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:=hyperlinkAddri = i + 1End IfNext wsEnd Sub

二、新建xlam模板

我们需要创建一个xlam模板，用于储存上面的VBA代码。

Xlam格式的文件他就加载宏的文件，将其放在对应的位置，以后就能在这台电脑中的所有Excel文件中调用这个代码了。

只需找到新建的Excel文件，右上角点击文件，然后找到另存为，然后点击更多选项，在跳出的窗口中找到【保存类型】将类型设置为【xlam】，然后点击保存

文件就会默认的保存在【C:\Users\yh\AppData\Roaming\Microsoft\AddIns】这个路径中

电脑不一样，路径一般也不会完全一样的，大家只需搜索下这个路径，一般都能是能找到的

【AppData\Roaming\Microsoft\AddIns】

三、粘贴代码

找到刚才创建的xlam文件，然后双击打开它，点击【开发工具】找到【visiual basic】，然后点击鼠标右键找到【插入】创建【模块】找到新建的模块，将刚才复制的代码直接粘贴到对应的位置，点击下保存

四、设置按钮

首选需要点击【文件】然后在最下方找到【选项】来调出【Excel选项】

之后需要在右侧的选项卡中选择【新建选项卡】然后点击【重命名】将名字定义为【小工具】

最后点击【新建组】也是点击重命名，将名称设置为【自动化】

最后在左上角的区域中选择【宏】找到【目录生成】点击【添加】然后再点击【确定】

这样的话就可以将按钮永远的放在Excel表格中，下次想要创建目录，直接点击生成即可

至此就设置完毕了，还是比较方便的，大家可以试着做一下

参考视频

想学Excel，可以在下方了解下我的课程，AI课程已经在更新了，都会加到下面的课程中，点击下方链接了解详情