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

B1=IF(A10,负,)TEXT(TRUNC(ABS(A1)),[DBNum2]G/通用格式)元IF(ROUND(A1,3)=ROUND(A2,),整,TEXT(RIGHT(TRUNC(A1*10),1),[DBNum2]G/通用格式)角IF(ROUND(A1,3)=ROUND(A1,1),整,TEXT(RIGHT(ROUND((A1*100),),1),[DBNum2]G/通用格式)分))=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的朋友，也会感觉其操作实际上是非常简单的。 1. 选择菜单“工具→宏→Visual Basic编辑器”命令，打开Visual Basic窗口，我们将在这里自定义函数。 2. 进入Visual Basic窗口后，选择菜单“插入→模块”命令，于是得到“模块1”，在其中输入如下自定义函数的代码(如图1)： Function DX(n) DX = Replace(Application.Text(Round(n + 0 2), [DBnum2]), ., 元) 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 元整))) DX = Replace(Replace(Replace(Replace(DX, 零元零角, ), 零元, ), 零角, 零), -, 负) End Function 图2 4. 通常，自定义的函数只能在当前工作薄使用，如果该函数需要在其它工作薄中使用，则选择菜单“文件→另存为”命令，打开“另存为”对话框，选择保存类型为“Mircosoft Excel加载宏”，然后输入一个文件名，如“DX”单击“确定”后文件就被保存为加载宏(如图3)。然后选择菜单“工具→加载宏”命令，打开“加载宏”对话框，勾选“可用加载宏”列表框中的“DX”复选框即可，单击“确定”按钮后(如图4)，就可以在本机上的所有工作薄中使用该自定义函数了。 图3 图4 如果想要在其它机器上使用该自定义函数，只要把上面的加载宏文件复制到其它电脑上加载宏的默认保存位置即可。 说明：Windows XP系统下加载宏文件的默认保存位置为：C:\Documents and Settingszunyue\(用户帐户)\Application Data\Microsoft\AddIns文件夹中。