EXCEL中各种金额大写转换的方法

EXCEL中各种金额大写转换的方法EXCEL中各种金额大写转换的方法 EXCEL中各种金额大写转换的方法作者:电脑知识文章来源:计算机知识点击数: 43 更新时间:2010-12-7 9:34:06 这段时间不少朋友在询问怎样把金额转换成大写的办法。本来坛子里已经有不少这方面的帖子了，为了避免重复发帖，特在此将论坛里关于这一问题的办法汇聚于此。当然，大家如果有什么新的思路和办法也可以在此跟帖。今后如果有类似提问将被指向此帖假设A1单元格为原始数据一、公式法一: =IF(A1=0,"零元整",IF(A1=5),INT(A1*...

EXCEL中各种金额大写转换的方法 EXCEL中各种金额大写转换的方法作者:电脑知识文章来源:计算机知识点击数: 43 更新时间:2010-12-7 9:34:06 这段时间不少朋友在询问怎样把金额转换成大写的办法。本来坛子里已经有不少这方面的帖子了，为了避免重复发帖，特在此将论坛里关于这一问题的办法汇聚于此。当然，大家如果有什么新的思路和办法也可以在此跟帖。今后如果有类似提问将被指向此帖假设A1单元格为原始数据一、公式法一: =IF(A1=0,"零元整",IF(A1<0,"负",)&IF(INT(ABS(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(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),"[dbnum2]")&"分","整")) 二、公式法二: =IF(A1<0,"负",)&TEXT(TRUNC(ABS(A1)),"[DBNum2]G/通用格式")&"元"&IF(ROUND(A1,3)=ROUND(A1,),"整",TEXT(RIGHT(TRUNC(A1*10),1),"[DBNum2]G/通用格式")&" 角"&IF(ROUND(A1,3)=ROUND(A1,1),"整",TEXT(RIGHT(ROUND((A1*100),),1),"[DBNum2]G/通用格式")&"分")) 三、公式法三: =CONCATENATE(TEXT(INT(A1),"[DBNum2][$-804]G/通用格式")&"元 "&IF((INT(A1*10)-INT(A1)*10)=0,"",TEXT(IF(AND(CEILING(A1*100,1)-INT(A1*10)*10=10,INT(A1*1000)-INT(A1*100)*10>=5),INT(A1*10)-INT(A1)*10+1,INT(A1*10)-INT(A 1)*10),"[DBNum2][$-804]G/通用格式")&"角 ")&IF(OR(INT(A1*100)-INT(A1*10)*10=0,(IF(INT(A1*1000)-INT(A1*100)*10>=5,CEILING(A1*100,1)-INT(A1*10)*10=10,FALSE))),"整",(IF(INT(A1*1000)-INT(A1*100)*10>=5,(IF(CEILING(A1*100,1)-INT(A1*10)*10=10,"",(TEXT(CEILING(A1*100,1)-INT(A1*10)*10,"[DBNum2][$-804]G/通用格式")&"分 "))),(TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2][$-804]G/通用格式")&"分")))),"(,",FIXED(A1,2,TRUE),"元)") 四、VBA代码法(自定义函数) Public Function BigNum(xiaoxie As Currency) Application.Volatile Dim fuhao As String fuhao = "" If xiaoxie < 0 Then xiaoxie = -xiaoxie fuhao = "负" End If If xiaoxie = 0 Then BigNum = "零元整" Else Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分" Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整" BigNum = "" sNum = Trim(Str(Int(Round(xiaoxie, 2) * 100))) For i = 1 To Len(sNum) BigNum = BigNum + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1) Next i For i = 0 To 11 BigNum = Replace(BigNum, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1)) Next i BigNum = fuhao + BigNum End If End Function 上面四种办法中，方法一和方法四等价;方法二、三和方法一、四的区别只是整数部分为零时，方法一、四不显示“零元”，而直接显示“角分”;方法三在方法2的基础上加上了数字显示，下面是不同数据在四种方法中的显示结果: 原始数据方法一方法二方法三方法四 0.12 壹角贰分零元壹角贰分零元壹角贰分(,0.12元) 壹角贰分 1.02 壹元零贰分壹元零角贰分壹元贰分(,1.02元) 壹元零贰分 1001001 壹佰万壹仟零壹元整壹佰万壹仟零壹元整壹佰万壹仟零壹元整(,1001001.00元) 壹佰万壹仟零壹元整 0 零元整零元整零元整(,0.00元) 零元整 -25001 负贰万伍仟零壹元整负贰万伍仟零壹元整 -贰万伍仟零壹元整(,-25001.00元) 负贰万伍仟零壹元整

                    本文档为【EXCEL中各种金额大写转换的方法】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

EXCEL中各种金额大写转换的方法

你可能还喜欢