如何将金额自动变成大写.doc

B1=IF(A10,负,)&TEXT(TRUNC(ABS(A1),DBNum2G/通用格式)&元&IF(ROUND(A1,3)=ROUND(A2,),整,TEXT(RIGHT(TRUNC(A1*10),1),DBNum2G/通用格式)&角&IF(ROUND(A1,3)=ROUND(A1,1),整,TEXT(RIGHT(ROUND(A1*100),),1),DBNum2G/通用格式)&分)=IF(A1=,IF(A10,负,)&IF(INT(A1),TEXT(INT(ABS(A1),dbnum2)&元,)&IF(INT(ABS(A1)*10)-INT(ABS(A1)*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1)*10,dbnum2)&角,IF(INT(ABS(A1)=ABS(A1),IF(ABS(A1)0.1,零)&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),dbnum2)&分,整)在excel表格中人民币小写金额自动转大写金额的方法一个自定义函数就可以实现！使用自定义函数 下面就通过此例也来介绍使用自定义函数的全过程，即使是初学Excel的朋友，也会感觉其操作实际上是非常简单的。 1. 选择菜单“工具宏Visual Basic编辑器”命令，打开Visual Basic窗口，我们将在这里自定义函数。2. 进入Visual Basic窗口后，选择菜单“插入模块”命令，于是得到“模块1”，在其中输入如下自定义函数的代码(如图1)：1. Function DX(n) 2. DX = Replace(Application.Text(Round(n + 0.00000001, 2), DBnum2), ., 元) 3. DX = IIf(Left(Right(DX, 3), 1) = 元, Left(DX, Len(DX) - 1) & 角 & Right(DX, 1) & 分, IIf(Left(Right(DX, 2), 1) = 元, DX & 角整, IIf(DX = 零, , DX & 元整) 4. DX = Replace(Replace(Replace(Replace(DX, 零元零角, ), 零元, ), 零角, 零), -, 负) 5. End Function 图1 3. 函数自定义完成后，选择菜单“文件关闭并返回到Microsoft Excel”命令，返回到Excel工作表窗口，在B1单元格中输入公式“=DX(A1)”回车后就可以把A1中的小写人民币金额对应到B1中的大写人民币金额了，然后用公式填充柄复制公式到其它后面的单元格，这样就利用自定义函数完成了人民币小写金额自动转大写金额(如图2)。图24. 通常，自定义的函数只能在当前工作薄使用，如果该函数需要在其它工作薄中使用，则选择菜单“文件另存为”命令，打开“另存为”对话框，选择保存类型为“Mircosoft Excel加载宏”，然后输入一个文件名，如“DX”单击“确定”后文件就被保存为加载宏(如图3)。然后选择菜单“工具加载宏”命令，打开“加载宏”对话框，勾选“可用加载宏”列表框中的“DX”复选框即可，单击“确定”按钮后(如图4)，就可以在本机上的所有工作薄中使用该自定义函数了。图3图4如果想要在其它机器上使用该自定义函数，只要把上面的加载宏文件复制到其它电脑上加载宏的默认保存位置即可。 说明：Windows XP系统下加载宏文件的默