excel金额大写函数公式.docVIP

excel金额大写函数公式

方法一：使用自定义函数（VBA宏）。

1.打开Excel工作表，按下`Alt+F11`组合键，打开VBA编辑器。

2.在VBA编辑器中，点击`插入`菜单，选择`模块`。

3.在模块窗口中，输入以下VBA代码：

vba.

FunctionNumberToChinese(numAsDouble)AsString.

DimiAsLong.

DimstrIntAsString.

DimstrDecimalAsString.

DimChineseNumAsVariant.

DimChineseUnitAsVariant.

ChineseNum=Array(零,壹,贰,叁,肆,伍,陆,柒,捌,玖)。

ChineseUnit=Array(分,角,元,拾,佰,仟,万,拾,佰,仟,亿,拾,佰,仟)。

num=Round(num,2).

strInt=Int(num).

strDecimal=Right(CStr(num*100),2).

DimresultAsString.

Fori=Len(strInt)To1Step-1.

result=resultChineseNum(Mid(strInt,i,1))ChineseUnit(Len(strInt)-i+3).

Nexti.

IfstrDecimalThen.

result=resultChineseNum(Mid(strDecimal,1,1))ChineseUnit(1)ChineseNum(Mid(strDecimal,2,1))ChineseUnit(0).

Else.

result=result整

EndIf.

去除多余的零。

result=Replace(result,零拾,零)。

result=Replace(result,零佰,零)。

result=Replace(result,零仟,零)。

result=Replace(result,零万,万)。

result=Replace(result,零亿,亿)。

result=Replace(result,零零,零)。

IfLeft(result,1)=零Thenresult=Mid(result,2)。

NumberToChinese=result.

EndFunction.

4.关闭VBA编辑器，回到工作表。在需要显示金额大写的单元格中输入公式`=NumberToChinese(A1)`（假设金额数值在A1单元格，可根据实际情况修改单元格引用），然后按下回车键即可得到金额的大写形式。

方法二：使用多个文本函数组合。

可以使用`TEXT`、`INT`、`MOD`等函数结合来实现金额大写转换，以下是一个示例公式（假设金额数值在A1单元格）：

=IF(A10,负,)IF(INT(A1)=0,,TEXT(INT(ABS(A1)),[DBNum2])元)IF(INT(A1*10)-INT(A1)*10=0,IF(INT(A1)=0ORINT(A1*100)-INT(A1*10)*10=0,,零),TEXT(INT(A1*10)-INT(A1)*10,[DBNum2])角)IF(INT(A1*100)-INT(A1*10)*10=0,整,TEXT(INT(A1*100)-INT(A1*10)*10,[DBNum2])分)。

这个公式的原理是分别提取整数部分、角和分的数值，然后使用`TEXT`函数将其转换为中文大写形式，并通过一些条件判断来处理不同的情况，如零值、角或分位为零等情况。