实现办公自动化! DeepSeek搭配Excel制作自定义按钮的技巧-115PPT网

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

微软Office LTSC 2021专业增强版简体中文批量许可版 2024年09月更新

类型：办公软件
大小：2.2GB
语言：简体中文
时间：2024-09-12

查看详情

一、代码准备

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

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
' 在目录页创建超链接
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