引用 EXCEL中额小写转大写.docVIP

引用 EXCEL中金额小写转大写 ????? 到现在为止EXCEL中自带的金额小写转大写功能都不能如我们中国人的习惯,曾有朋友问过我如何做到人性化点,还真惭愧,我的EXCEL办公方面的软件使用很差,我相信会有公式可以完成,于是上面到处找,但当时都没有找到,只好作罢!今天又再有朋友问起,我决定要找到一个为止.没有想到竟真的被我找了,以下就是我本人从网络上收集到的,因为不知作者为何人,在此只能为这些默默奉献的朋友说声谢谢! ????? 在网上找到有二篇,功能相对完善的是第二篇.现在一一转贴过来! ? =======================第一篇======================== ??????? 要将人民币小写金额转换成大写格式，用Excel提供的格式，将自定义格式类型中的“[dbnum2]G/通用格式”改为“[dbnum2] G/通用格式“元””来实现。但在转换小数时却出现了问题，比如￥6,050.09只能转换为“陆仟零伍拾.零玖圆”。那么用Excel能不能解决这一先天不足呢？其方法有以下两种（以下均对B1转换，假设B1是通过函数ROUND( )四舍五入取得二位小数的小写金额数，其值为￥6,050.09）。 　　一、在三个连续的同行单元格中转换 　　1. B2中输入公式 “=IF(B1〈0，金额为负无效，INT(B1))”，计算结果为￥6,050.00，然后点击“格式→单元格→数字→特殊→中文大写数字→确定”，B2显示“陆仟零伍拾”，再点击“格式→单元格→数字→自定义”，将“类型”编辑框中的“[dbnum2]G/通用格式”修改为：[dbnum2](“人民币”)G/通用格式“元”，此时B2显示：“(人民币)陆仟零伍拾元”。 　　2. C2中输入“=IF(B1〈0，，INT(B1 10)-INT(B1) 10)”，同样C2改为：[DBNum2]G/通用格式“角”，C2显示：“零角”。 　　3. D2中输入“=IF(B1〈0，，INT(B1 100)-INT(B1 10) 10)”，同样D2改为：[DBNum2]G/通用格式“分”， D2显示：“玖分”。 　　这样在连续的三个同行单元格中实现了大写金额格式的转换，如图1所示。为了使转换符合财务格式，B2应右对齐，C2列宽无间隔，且不设左右边框线，D2要左对齐。 ?图1 ? 二、用Excel提供的函数转换 　　个位为0，则不显示；不为0，显示“XXX元”；不为0、且角位和分位均为0，显示“XXX元整”；元角分位均为0，则显示“零元整”。 　　小数点后面第一位为0、且元位或分位有一为0，则不显示；为0、且元位和分位均不为0，则显示“零”；不为0，显示“X角”。 　　小数点后面第二位为0，则显示“整”；不为0，显示“X分”。 　　根据以上思路在B2中输入公式： 　　“IF(B1〈0，金额为负无效，IF(OR(B1=0，B1=)，(人民币)零元整))； 　　IF(B1〈1，(人民币)，TEXT(INT(B1)，[dbnum2](人民币)G/通用格式)元)IF(INT(B1 10)-INT(B1) 10=0)； 　　IF(INT(B1) (INT(B1 100)-INT(B1 10) 10)=0，，零)，TEXT(INT(B1 10)-INT(B1) 10，[dbnum2])角)IF((INT(B1 100)-INT(B1 10) 10)=0，整，TEXT((INT(B1 100)-INT(B1*10)*10)，[dbnum2])分)))”。 　　确认后B2显示：“(人民币)陆仟零伍拾元零玖分”。以后使用时将公式复制到有关单元格中，若转换的对象B1发生了变化，可点击“编辑→替换”将B1替换掉。两种转换测试结果如图2所示。 图2 ======================第一篇(完)===================== 第一篇我照做时,我发现第二种方法,我弄不出来,可能是我弄错,不过不理它,因为我采用了第二篇的相当方便 =======================第二篇(推荐)== ================= 近来转了转几个EXCEL相关论坛，发现有部分网友在寻求数字金额转换为人民币大写的方法。出于好奇，我在网上搜索了一番，什么VBA、加载宏，公式函数各式方法争相亮相，应有尽有。但我的习惯是，只要能用公式解决的问题，坚决不使用VBA。所以我就特别地关注使用公式来生成的方法，结果是用公式的方法可谓是更加地灿烂缤纷，使人眼花缭乱。　　通过分析我收集到的二十几个公式，发现比较牛，适合我口味的公式有三个，在此我将其列出。公式一：SUBSTITUTE(SUBSTITUTE(IF(A10,负,)TEXT(TRUNC(AB