2024年4月27日发(作者：)

利用Excel函数公式制作财务大写金额模板

在Excel中制作财务大写金额模板可以通过使用Excel函数公式来实

现。下面将详细介绍如何使用Excel函数公式制作财务大写金额模板。

第一步：打开Excel并创建一个新的工作簿。

第二步：在第一个单元格（例如A1）输入要转换的数字金额。

第三步：在下一个单元格（例如B1）输入以下公式：

=财务大写(A1)

第四步：按下回车键，Excel将会自动把数字金额转换成大写金额。

接下来我们将详细介绍如何编写“财务大写”函数。

第一步：选中工具栏上的“开发工具”选项卡。如果在Excel选项中

没有找到该选项卡，请选择“文件”->“选项”->“自定义功能区”，然

后勾选“开发工具”。

第四步：在新的模块中，编写下面的VBA代码：

Function 财务大写(金额 As Variant) As String

Dim 大写金额 As String

Dim 数字金额 As Double

Dim 整数部分 As String

Dim 小数部分 As String

Dim 分号位置 As Integer

Dim 节位 As Integer

Dim 单位 As String

Dim 数字 As Integer

Dim i As Integer

Dim 已分位 As Boolean

Dim 零位 As Integer

Dim 位 As Integer

如果 IsNumeric(金额) = False Then

财务大写="输入有误"

Exit Function

End If

数字金额=金额

如果 数字金额 < 0 Then

财务大写="负"&财务大写(-数字金额)

Exit Function

End If

如果 数字金额 = 0 Then

财务大写="零元整"

Exit Function