在企业的财务工作中，财务人员经常要用Excel记录和分析企业经营数据，尤其是在一个Excel中管理大量的工作表，经常会出现工作表之间切换混乱、切换效率低等问题。

解决问题的整体思路：

1. 用DeepSeek生成VBA脚本，实现在Excel中各种日常操作的功能；
2. 在Excel中用VBA脚本创建功能对应的AI菜单或AI按钮。

接下来的教学中，我们将手把手教大家快速打造财务报表智能管理助手，用到的工具：

• DeepSeek + Cherry Studio：将DeepSeek接入AI工具，用简单语言描述生成VBA脚本
• Excel：用VBA脚本创建功能菜单/功能按钮，实现财务报表智能管理助手

DeepSeek + Cherry Studio的详细配置流程，请参考：

https://api.gpubook.cn

在这里，有各种工具集成DeepSeek的操作方法

第一步：用DeepSeek生成VBA脚本

1、创建智能体

2、编辑智能体

3、添加助手

4、生成VBA脚本

# 输入
帮我生成一份VBA代码，命名为“生成目录”，实现：在一个Excel中新建一页工作簿“目录”，位于最前面；在“目录”工作簿中生成其它工作簿的目录链接；并在每个其它工作簿中创建返回“目录”工作簿的图标按钮，按钮放在工作薄的左上角位置

第二步：在Excel中制作AI工具

1、启用开发工具

打开Excel文档，依次点击：【文件】>【更多...】>【选项】>【自定义功能区】，勾选【开发工具】。

2、启用宏命令

按如下操作启用宏命令：【文件】>【更多...】>【选项】>【信任中心】>【信任中心设置】>【宏设置】，点选【启用所有宏】。

3、创建VB宏命令

点击菜单【开发工具】下的VB编辑器【Visual Basic】：

进入后选择菜单【插入】>【模块】，将新建模块重命名为“生成目录”：

复制第一步生成的VBA脚本到“生成目录”模块：

不想自己用DeepSeek调试生成脚本的同学，可以直接复制以下代码：

Sub 生成目录()
    Dim ws As Worksheet
    Dim ws目录 As Worksheet
    Dim i As Integer
    Dim btn As Shape
    
    ' 删除现有的目录工作表
    On Error Resume Next
    Set ws目录 = ThisWorkbook.Sheets("目录")
    If Not ws目录 Is Nothing Then
        Application.DisplayAlerts = False
        ws目录.Delete
        Application.DisplayAlerts = True
    End If
    On Error GoTo 0
    
    ' 新建目录工作表并置于最前
    Set ws目录 = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets(1))
    ws目录.Name = "目录"
    
    ' 设置目录标题
    ws目录.Range("A1").Value = "目录"
    
    ' 生成目录链接
    i = 2
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "目录" Then
            ' 添加超链接
            ws目录.Hyperlinks.Add Anchor:=ws目录.Cells(i, 1), _
                                  Address:="", _
                                  SubAddress:="'" & ws.Name & "'!A1", _
                                  TextToDisplay:=ws.Name
            i = i + 1
        End If
    Next ws
    
    ' 为每个工作表添加返回按钮
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "目录" Then
            ' 删除旧按钮
            On Error Resume Next
            ws.Shapes("返回目录按钮").Delete
            On Error GoTo 0
            
            ' 添加新按钮
            Set btn = ws.Shapes.AddShape(msoShapeRoundedRectangle, 5, 5, 60, 20)
            btn.Name = "返回目录按钮"
            btn.OnAction = "跳转到目录"
            
            ' 设置按钮文本
            With btn.TextFrame
                .Characters.Text = "返回目录"
                .HorizontalAlignment = xlHAlignCenter
                .VerticalAlignment = xlVAlignCenter
            End With
        End If
    Next ws
End Sub

Sub 跳转到目录()
    ThisWorkbook.Sheets("目录").Activate
End Sub

另存为xlsm格式：

注意：以下的操作，已经是在另存为的*.xlsm文件中执行（原来的文件先不用）

4、新建宏命令组

回到Excel主界面，依次点击：【文件】>【更多...】>【选项】>【自定义功能区】，在右侧右键【开发工具】，在它下面【添加新组】，并可重命名这个组：

添加的新组如下：

5、关联宏命令和宏命令组

将第3点创建的VB宏命令添加到第4点新建的宏命令组下：

添加成功后：

第三步：在Excel中运行AI工具

1、点击AI工具

点击后VBA脚本报错或不按预期执行的解决办法：
1> 回到第一步：用DeepSeek生成VBA脚本，将报错提示作为输入，提交给DeepSeek，获取解决办法
2> 根据DeepSeek的提示，完善VBA脚本并再次验证

2、生成目录

3、测试目录导航

后续该AI功能的入口有两种情况：
1> 直接打开之前保存的xlsm文件，继续在此文件中操作
2> 打开新的Excel文件，点击AI功能按钮后，在弹出窗口【Microsoft Excel 安全声明】中选择点击【启用】，也会打开之前保存的xlsm文件，继续在此文件中操作

同样的流程，可以用DeepSeek生成不同功能的VBA脚本，并制作不同的Excel AI功能。