【原】DeepSeek搭配Excel，制作自定义按钮，1秒搞定复杂问题

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

一、代码准备

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

Sub 目录生成()    Dim ws As Worksheet    On Error Resume Next    Sheets("目录").Delete    With Sheets.Add(Before:=Sheets(1))        .Name = "目录"        .[A1] = "目录"        For Each ws In Sheets            If ws.Name <> "目录" Then                .Hyperlinks.Add .Cells(.UsedRange.Rows.Count + 1, 1), "", "'" & ws.Name & "'!A1", ws.Name                On Error Resume Next                ws.Shapes("返回").Delete                ws.Shapes.AddShape(1, 10, 10, 50, 20).Name = "返回"                ws.Shapes("返回").OnAction = "返回目录"                ws.Shapes("返回").TextFrame.Characters.Text = "返回"            End If        Next    End WithEnd SubSub 返回目录()    Sheets("目录").ActivateEnd Sub

二、新建xlam模板

Xlam格式的文件是可以存储VBA代码的，将其放在对应的位置，以后就能在这台电脑中的所有Excel文件中调用这个代码了。