用DeepSeek+Excel打造财务报表智能管理助手

最新推荐文章于 2025-04-11 11:07:44 发布

李先生的ChinaSDN

最新推荐文章于 2025-04-11 11:07:44 发布

阅读量1.5k

点赞数 28

文章标签：人工智能 AIGC 语言模型 excel

本文链接：https://blog.youkuaiyun.com/JetLeeC111/article/details/146289622

版权

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

解决问题的整体思路：

用DeepSeek生成VBA脚本，实现在Excel中各种日常操作的功能；
在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