ARTICLE · 1008598

Excel+AI,制作你的专属按钮,1秒搞定重复工作

发布时间：2026-09-16 02:08:13 最近访问：2026-09-16 02:08:17

今天跟大家分享下我们如何制作自定义按钮，快速解决重复工作。做法其实也不复杂，就是利用AI生成代码，然后将代码打包放进Excel，制作成按钮即可，我们来看下具体操作

一、AI生成代码

利用A来编写代码，网页端的可以的，Deepseek，豆包，Kimi大家可以自己选择，我们就以将转换为大写金额为例吧。

提示词：帮我生成一段vba代码，用于将数字转换为大写金额，我想实现：选中区域，运行代码，直接将数字转换为大写金额

Sub 大写金额转换()    Dim cell As Range    Dim num As Double    Dim result As String    ' 遍历选中的每个单元格    For Each cell In Selection        ' 检查单元格内容是否为数字        If IsNumeric(cell.Value) And cell.Value <> "" Then            num = cell.Value            ' 调用自定义函数将数字转换为中文大写金额            result = 数字转大写金额(num)            ' 将结果写入单元格            cell.Value = result        End If    Next cellEnd SubFunction 数字转大写金额(M As Double) As String    ' 将数字转换为中文大写金额    On Error Resume Next    数字转大写金额 = Replace(Application.Text(Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")    ' 处理金额的“角”和“分”    If Left(Right(数字转大写金额, 3), 1) = "元" Then        数字转大写金额 = Left(数字转大写金额, Len(数字转大写金额) - 1) & "角" & Right(数字转大写金额, 1) & "分"    ElseIf Left(Right(数字转大写金额, 2), 1) = "元" Then        数字转大写金额 = 数字转大写金额 & "角整"    ElseIf 数字转大写金额 = "零" Then        数字转大写金额 = ""    Else        数字转大写金额 = 数字转大写金额 & "元整"    End If    ' 去除多余的“零”和“负”号    数字转大写金额 = Replace(Replace(Replace(Replace(数字转大写金额, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")End Function