EXCEL数字大小写转换公式

公式一：

SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBN um2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","")

公式二：

CONCA TENATE(IF(A1<0,"负",""),TEXT(IF(TRUNC(A1)=0,"",TRUNC(ABS(A1))),"[DBNum2]"),IF(INT(TRUNC(A1))=0,"", "元"),TEXT(IF(OR(ABS(A1)<0.1,TRUNC(A1)=A1),"",RIGHT(TRUNC(A1*10),1)),"[DBNum2]"), IF(RIGHT(TRUNC(A1*10),1)="0","","角"),TEXT(IF(RIGHT(TRUNC(A1*100),1)="0","",RIGHT(TRUNC(A1*100),1)),"[DBNum2]"),IF (RIGHT(TRUNC(A1*100),1)="0","","分"))

公式三：

IF(ROUND(A1,2)=0,"",IF(ROUND(ABS(A1),2)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[DBNu m2]")&"元","")&IF(RIGHT(TEXT(A1,".00"),2)*1=0,"整",IF(RIGHT(TEXT(A1,".00"),4)*1>=1,IF(RIGHT(TEXT(A1,".00"),2)*1>9,"","零"),IF(ROUND(ABS(A1),2)>=1,"零",""))&IF(RIGHT(TEXT(A1,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(A1,".00"),2)),"[DBNum 2]")&"角","")&IF(RIGHT(TEXT(A1,".00"))*1>0,TEXT(RIGHT(TEXT(A1,".00")),"[DBNum2]")&"分","整")))

我用不同的数值对这三个公式进行了一番测试，都达到了我的要求，至少到目前为止还没有发现上述公式存在着什么错误。上述公式对负数的处理采取了不同的方法。公式一和公式二对负数是在其前部加上一个“负”字，而公式三则是按正数进行处理。我比较推崇公式三的方式，不是还有条件格式可以设置吗？若是负数就用条件格式来变为红色。

我不准备在此对上述公式进行分析解说。撰写本文的目的是我也想自己来“组装”一个所谓的通用公式。我只所以说是“组装”而不是叫什么“开发”或者是“拼凑”，是因为EXCEL的函数现成地摆在了那里，使用时就是为了达到某种目的，按照其固有的规则，将其进行有机的组合，可谓“组装”。但是在这个过程中，也是要开动脑筋的，并非是随随便便“拼凑”就能成功的。本文的目的就是想将我在“组装”公式时的思路展现出来。

若用程序设计语言（比如用C语言）来写一个人民币数字金额转大写金额会怎样考虑呢？我想每一位数字都要考虑到。但在EXCEL中，单元格格式中有一个“特殊”格式，里面就有将小写数字转换为大写数字的格式。但要注意的是，这里转换的是数字而不是金额。所以转换出来后并不存在“元”、“角”、“分”、“整”等在大写金额中出现的字。但是，“元”只出现在整数部分的后面，而小数部分只有角分两位。这样只要利用EXCEL的“特殊”格式将数据分为整数部分、角位和分位三个部分来处理就行了。处理的顺序是先整数，再角位、再分

位。

由于要分三个部分分别处理，然后根据情况分别与“元”，“角”，“分”及“整”相连接。连接的方式可以使用CONCATENATE()函数，如公式二，也可以使用连接符＆。而用＆来连接，公式结构似乎会相对简单清晰一些，所以我选择了用＆来连接。

虽然对问题进行了分解，但需要考虑的细节相当多。

若单元格为0或者空，输出空，避免出现“零”、“零元”等字样。对非数字字符不进行处理，使用EXCEL自身的错误提示。

对负数按正数处理，再用条件格式将其转换为红色，不拟采用“负XXXXXX”的形式。

整数加“元”，若是纯整数，就只处理整数且加“整”，不再处理小数部分。若是纯小数，放在小数部分处理，不单独列出处理。角为0且分不为0，应输出“零”，只有角的就加“整”

如果有尾数，即有3位以上小数（这种情况也许很少发生，但作为一个“通用”公式，却不能不考虑这种情况）。则有两种处理方式，一是截尾，另一则是四舍五入。由于两种方式的排它性。决定做两个公式。

如果数值小于分，截尾公式输出空，而四舍五入公式则要考虑舍入问题。若有舍入输出分，没有则输出空。

根据这个思路，我“组装”了下面两个公式。

公式四：

IF(A1=0,"",IF(ABS(A1)<0.995,"",TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]")&"元")&IF(RIGHT(TEXT(A1,".00"),2)*1=0,IF(ABS(A1)<0.005,"","整"),TEXT(IF(ABS(A1)<0.095,"",LEFT(RIGHT(TEXT(A1,".00"),2))),"[dbnum2]")&IF(LEFT(RIG HT(TEXT(A1,".00"),2))*1=0,"","角")&IF(RIGHT(TEXT(A1,".00"))*1=0,"整",TEXT(RIGHT(TEXT(A1,".00")),"[dbnum2]")&"分")))

公式五：

IF(A1=0,"",IF(ABS(A1)<1,"",TEXT(TRUNC(ABS(A1)),"[DBNum2]")&"元")&IF(RIGHT(TRUNC(A1*100),2)*1=0,IF(ABS(A1)<0.01,"","整"),IF(ABS(A1)<0.1,"",TEXT(RIGHT(TRUNC(A1*10)),"[dbnum2]"))&IF(RIGHT(TRUNC(A1* 10))*1=0,"","角")&IF(RIGHT(TRUNC(A1*100))*1=0,"整",TEXT(RIGHT(TRUNC(A1*100)),"[dbnum2]")&"分")))

公式四是四舍五入公式，公式五则是截尾公式。两个公式的结构其实是一样的，只是使用了不同的函数。下面用公式四来说明。

TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]")&"元"用来处理整数部分，考虑到纯小数及舍入问题，增加一个判断ABS(A1)<0.995，用0.995，即保证了正常的舍入，又避免了出

现0.9945也进行舍入的错误。

用RIGHTB(TEXT(A1,".00"),2)*1=0来判断是不是纯整数，是就输出“整”，后面就不用处理了。因为TEXT函数输出的是文本值，所以在这里有两种处理方法，一是就是本式，二是RIGHTB(TEXT(A1,".00"),2)="00"。

LEFT(RIGHT(TEXT(A1,".00"),2))是取出角位数，增加一个判断ABS(A1)<0.095是为了在只有分票的情况下角位避免出现“零”的字样，0.095也是考虑了尾数的舍入问题。

IF(LEFT(RIGHT(TEXT(A1,".00"),2))*1=0,"","角")，角位是0输出空，否则输出“角”。同样，这里的判断表达式也可改为LEFT(RIGHT(TEXT(A1,".00"),2))="0

"

用RIGHT(TEXT(A1,".00"))取出分位数，分位为零输出“整”，否则输出分位数。

对于负数，如果一定要用“负XXXXXX”的形式，则直接在第二个判断前加上“IF(A1<0,"负","")&”。

还有网友提出来说万位为零时不输出零不符合规范，为此我专门去查了一下相关规定。结果如下：

大写金额中间有“0”时，大写金额要写“零”字；小写金额中间连续有几个“0”时，大写金额中间可以只写一个“零”字；小写金额万位或元位是“0”，或者数字中间连续有几个“0”，万位、元位也是“0”，但千位、角位不是“0”时，大写金额中可以只写一个“零”字，也可以不写“零”字。

所以上述公式在当万位为零而千位不为零时，以不输出零的方式处理，应该是符合规范的。也许正是EXCEL采取这种样式的原因。当然，如果遵照习惯非要加上这个零字也不是不可能。只不过要增加一点公式复杂度罢了。

在一个数中，万会出现几次？不管是万、十万、百万、千万，这个万就出现一次，如果是万万则是亿，如果是万亿又是兆，万兆呢？已经超出EXCEL的处理能力了。所以答案是万字在大写金额中只可能出现一次，且只出现在整数部分。即然是这样，用SUBSTITUTE()函数就能解决问题。即判断当万位为零而千位不为零时，用“万零”来替换“万”，其它情况下不进行替换。因为EXCEL只有在这种情况下不会输出“零”。

在四舍五入公式中，因为还要考虑尾数舍入问题，判断使用了四舍五入函数ROUND()，公式四的输出整数的部分公式改为：

IF(AND(RIGHT(INT(ROUND(ABS(A1),2)/10000))="0",RIGHT(INT(ROUND(ABS(A1),2)/100 0))<>"0"),SUBSTITUTE(TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]"),"万","万零"),TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]"))

而截断公式不用考虑尾数舍入问题，直接用TRUNC()取万位和千位数来判断。相应地公式五的整数部分亦改为：

IF(AND(RIGHT(TRUNC(ABS(A1)/10000))="0",RIGHT(TRUNC(ABS(A1)/1000))<>"0"),SUB STITUTE(TEXT(TRUNC(ABS(A1)),"[DBNum2]"),"万","万零"),TEXT(TRUNC(ABS(A1)),"[DBNum2]"))

为了一个我认为不是很必要的“零”字使公式臃肿了许多，而我喜欢简单清晰的公式，所以不愿在正式公式中采用。

自认为这两个公式已经考虑了许多的细节，但我也不敢保证没有挂一漏万。现在暂时告一段落，若以后发现问题再来修改了。

小写金额转换为大写金额(C实现)

前言 银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。票据和结算凭证是银行、单位和个人凭以记载帐务的会计凭证，是记载经济业务和明确经济责任的一种书面证明。因此，填写票据和结算凭证，必须做到标准化、规范化，要要素齐全、数字正确、字迹清晰、不错漏、不潦草，防止涂改。 我的服务需要一个金额转换过程，本来想在网上找，但都是C++、JavaScript、Delphi 的Demo，还没有C的。索性自己写一个。参考了其它的转换算法，对我有些启发。 大多的算法都是直接分析字符串生成大写金额，即存在一个假设：源字符串的格式是正确的。在我的过程中，用状态机的方法分析源字符串，错误时，返回空指针（我可不敢保证传给我的过程的都是##.##）。分析出源字符串中整数部有多少个数字，是否有小数，统计结果放在一个结构体中，整数和小数部分的数字分别放在两个整形数组里。 有了统计数据就可以生成大写金额了。转换过程有个难点：要区分万、亿等“段”，特别是个位这个“段”，这个概念是在《小写转大写金额在C++中的实现》文章中提到的。在下面的程序中用j= ( size - i - 1 ) & 0x3，实际上是j = ( size - i - 1 ) % 4取模，j==0时为段尾，需要特殊处理。所有的处理都是围绕0来进行的，也就是说，0才是难点。 特殊位置的0，按段分，段中第一个非0数字前的0，可能有多个；段中两个非0数字间的0；段尾的0；个位的0；十分位，角位置的0。 另外，转换的一个重点是大写金额的写法，好像大多的算法都注重转换过程而对这个问题没有深究。我在文章后面附上转换规则。 下面是代码 1./** 2.* @brief 将源字符串中的小写金额转换为大写格式 3.* 4.* @param dest 目的字符串 5.* @param src 小写金额字符串 6.* @return 7.* - NULL 源字符串的格式错误，返回NULL 8.* - 非NULL 目的字符串的首地址 9.* @note 转换根据：中国人民银行会计司编写的最新《企业、银行正确办理支付结 算 10.* 指南》的第114页-第115页 11.*/ 12.char* chineseFee( char* dest, char* src ) 13.{

EXCEL,数字变大写公式

近来转了转几个EXCEL相关论坛，发现有部分网友在寻求数字金额转换为人民币大写的方法。出于好奇，我在网上搜索了一番，什么VBA、加载宏，公式函数各式方法争相亮相，应有尽有。但我的习惯是，只要能用公式解决的问题，坚决不使用VBA。所以我就特别地关注使用公式来生成的方法，结果是用公式的方法可谓是更加地灿烂缤纷，使人眼花缭乱。 通过分析我收集到的二十几个公式，发现比较牛，适合我口味的公式有三个，在此我将其列出。 公式一： SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负 ","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元 "&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10) ),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角 ","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBN um2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","") 公式二： CONCATENATE(IF(A1<0,"负 ",""),TEXT(IF(TRUNC(A1)=0,"",TRUNC(ABS(A1))),"[DBNum2]"),IF(INT(TRUNC (A1))=0,"","元 "),TEXT(IF(OR(ABS(A1)<0.1,TRUNC(A1)=A1),"",RIGHT(TRUNC(A1*10),1)),"[D BNum2]"),IF(RIGHT(TRUNC(A1*10),1)="0","","角 "),TEXT(IF(RIGHT(TRUNC(A1*100),1)="0","",RIGHT(TRUNC(A1*100),1)),"[DB Num2]"),IF(RIGHT(TRUNC(A1*100),1)="0","","分"))

人民币小写金额转换成大写格式

人民币小写金额转换成大写格式 要将人民币小写金额转换成大写格式，用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要左对齐。

二、用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所示。

Excel--手把手教你转换出中文大写金额

手把手教你转换出中文大写金额 大家在使用Excel的时候，是否会遇到要把一个或一些阿拉伯数字转换成中文大写金额的计算要求呢？如果只是偶尔需要对少数几个数字进行转换，干脆手工操作啦，但如果要进行转换的数字较多或经常要转换时，该怎么办呢？一向无往不胜的Excel能为你做些什么呢？其实，这个不难，最少有三种方法可以实现。 一、设置单元格格式： 用这个办法能直接将阿拉伯数字转换成中文大写金额，而且操作简单。右击需要转换的单元格，在弹出的快捷菜单中选择“单元格格式”，然后在“数字”选项卡中选择“自定义”，在“类型”中写入“[DBNum2]G/通用格式"元"”后按确定即可。瞧，321是不是已经变成了“叁佰贰拾壹元”了？ 可惜的是，这个办法只能处理整数，而对带有小数的数字无能为力。当然也有过朋友通过对此法进行一定的扩展而可以处理部分带小数的数字，但效果不是很理想。 二、利用公式进行转换： 所谓“自力更生，丰衣足食”，这第三种方法就是自己编写公式进行转换。 为了照顾一些Excel初学者，我们先来了解一下什么是Excel里的公式与函数。Excel之所以计算功能异常强大，百分之八十的功劳就在于用户可以创建公式进行计算。所谓公式，实际上就是一个计算

表达式（通常是包含函数与单元格引用的计算表达式）。在Excel里，以“=”作为公式的标志，在任何一个非文本值类型的单元格内，只要以“=”开头，就必定是Excel公式，举一最简单的例子：如果A1、B1单元格的值为别为1和2，那么如果在C3单元格内输入“=A1+B1”，则Excel会自动将A1和B1的值相加，得到数值3，再返回给C3单元格。 再来说函数，函数其实就是包装好的公式，它能根据你提供的参数自动进行复杂的计算，从而最大限度地减轻你的工作量。Excel内置了大量具备各种功能的函数，而且Excel还允许用户自己添加函数，这样一来，在Excel里几乎没有计算不出来的东西了。拿Excel中较常用到的SUM函数来说，如果要计算从A1到A100单元格的数值总和，写公式时是用不着写成“=A1+A2+A3+……A100”的，而只是简单地写成“=SUM（A1：A10）”就可以了。 Excel中有上百种函数，今天我们只讲我们将要用到的几个。其实所有这些函数的功能及详细用法在Excel帮助文件里都有介绍，当你遇到具体计算要求时，只要你点击常用工具栏中“粘贴函数”按钮，Excel会将所有的函数一一展示在你眼前，结合相应的帮助文件，你可以迅速挑选到一个适合你的函数。 1、IF函数 这是Excel里最常用到的函数之一，它的功能是执行真假值判断，根据逻辑测试的真假值返回不同的结果。其语法为IF（判断表达式，当条件值为真时返回的值，当条件值为假时返回的值）。通俗地说，

Excel中如何将货币数值由数字金额自动转为中文大写金额

Excel中如何将货币数值由数字金额自动转为中文大写金额 使用Excel时有时会用数据的转换，尤其是做财务工作，如工资表等时就需要用中文大写金额。如果手动输入，就会麻烦一些，多的时候也会增加了工作量。我们可以使用Excel中的函数来实现将货币数值由数字金额自动转换成中文大写金额。 本文以一份表格为例讲解如何将数字金额转换为中文大写金额。 先在Excel表格中算出合计金额，如下图。 利用公式把小写的货币转换为中文大写，并写在合并的单元格中。公式如下：

=IF((I41-INT(I41))=0,TEXT(I41,"[DBNUM2]")&"元整 ",IF(INT(I41*10)-I41*10=0,TEXT(INT(I41),"[DBNUM2]")&"元 "&TEXT(INT(I41*10)-INT(I41)*10,"[DBNUM2]")&"角整 ",TEXT(INT(I41),"[DBNUM2]")&"元"&IF(INT(I41*10)-INT(I41)*10,"零",TEXT(INT(I41*10)-INT(I41)*10,"[DBNUM2]")&"角 ")&TEXT(RIGHT(I41,1),"[DBNUM2]")&"分"))。 把公式输入合计右边的合并单元格中，如下图。 输入后的显示结果如下图。

公式中一共用到了4函数，文本连接符“&”及相应的汉字。下面对这4种函数做个讲解： IF函数：是一个条件判断函数，该函数的基本格式是：IF（a，b，c），其中“a”是一个条件，“b”和“c”是两种判断结果，可以表述为：如果条件a成立，那么结果是b，否则结果就是c。以上公式是一个多层嵌套判断函数，根据货币金额的不同情况生成不同格式的中文大写。 INT函数：是一个取整函数，取参数数字的整数部分。如：INT(I41)是取I41这个单元格数字的整数部分，(I41-INT(I41))=0表示一个整数，INT(I41*10)-INT(I41)*10表示I41单元小数点后第一位数，

金额大写转换函数

金额大写转换函数 #region 金额大写转化 private static String[] Ls_ShZ = { "零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖", "拾" }; private static String[] Ls_DW_Zh = { "元", "拾", "佰", "仟", "万", "拾", "佰", "仟", "亿", "拾", "佰", "仟", "万" }; private static String[] Num_DW = { "", "拾", "佰", "仟", "万", "拾", "佰", "仟", "亿", "拾", "佰", "仟", "万" }; private static String[] Ls_DW_X = { "角", "分" }; /// <summary> /// 金额小写转中文大写。 /// 整数支持到万亿；小数部分支持到分(超过两位将进行Banker舍入法处

大小写转换公式

Excel自动转换数字大小写具体的操作步骤如下： 1. 启动excel。按“alt+f11”快捷键打开“visual basic编辑器”。 2. 在“visual basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码: function dx(q) dim cur as long,yuan as long dim jiao as integer,fen as integer dim cnyuan as string, cnjiao as string, cnfen as string if q = "" then dx = 0 exit function end if cur = round(q * 100) yuan = int(cur / 100) jiao = int(cur / 10) - yuan * 10 fen = cur - yuan * 100 - jiao * 10

cnyuan = application.worksheetfunction.text(yuan, "[dbnum2]") cnjiao = application.worksheetfunction.text(jiao, "[dbnum2]") cnfen = application.worksheetfunction.text(fen, "[dbnum2]") dx = cnyuan & "元" & "整" d1 = cnyuan & "元" if fen <> 0 and jiao <> 0 then dx = d1 & cnjiao & "角" & cnfen & "分" if yuan = 0 then dx = cnjiao & "角" & cnfen & "分" end if end if if fen = 0 and jiao <> 0 then dx = d1 & cnjiao & "角" & "整" if yuan = 0 then dx = cnjiao & "角" & "整"

EXCEL函数数字小写换大写

EXCEL文本函数-数字小写换大写/英文大小写互换 2007年10月17日星期三 13:04 在大小写中英文互换公式中我们先假设每个表都有表头，且数字在第二行，在A2单元格内 注意：公式可以随意拖动至任意指定单元格，公式内对象不变；可复制（待鼠标变成黑色十字再拖)；也可利用查找-替换-全部替换单元格如A2---全部换成F15 EXCEL中数字小写换大写方法一： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元 "&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(I SERR(FIND(".0",TEXT(A2,"0.00"))),"角 ","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分 ",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","") EXCEL中数字小写换大写方法二： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元 "&IF((INT(A2*100)-INT((A2)*10)*10)=0,"整","零 "&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A2),"[DBNum2]G/通用格式")&"元 "&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分")) EXCEL中数字小写换大写方法三： =IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整",TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆"&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT((A2*10-INT(A2*10))*10),"[DBNum2]G/通用格式")&"分") EXCEL中数字小写换大写方法四： =IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整 ",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM2]")&"元 "&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元 "&IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角 ")&TEXT(RIGHT(A2,1),"[DBNUM2]")&"分")) 看看结果是不是出现了你想要的?应该有你需要的大写金额了 公式的由来:

手把手教你转换出中文大写金额

手把手教你转换出中文大写金额 Excel Home 2002-3-14 21:43:36 大家在使用Excel的时候，是否会遇到要把一个或一些阿拉伯数字转换成中文大写金额的计算要求呢？如果只是偶尔需要对少数几个数字进行转换，干脆手工操作啦，但如果要进行转换的数字较多或经常要转换时，该怎么办呢？一向无往不胜的Excel能为你做些什么呢？其实，这个不难，最少有三种方法可以实现。 一、设置单元格格式： 用这个办法能直接将阿拉伯数字转换成中文大写金额，而且操作简单。右击需要转换的单元格，在弹出的快捷菜单中选择“单元格格式”，然后在“数字”选项卡中选择“自定义”，在“类型”中写入“[DBNum2]G/通用格式"元"”后按确定即可。瞧，321是不是已经变成了“叁佰贰拾壹元”了？ 可惜的是，这个办法只能处理整数，而对带有小数的数字无能为力。当然也有过朋友通过对此法进行一定的扩展而可以处理部分带小数的数字，但效果不是很理想。 二、利用中文大写金额转换函数： 先别急，这个函数你在Excel里是找不到的，微软毕竟不是大陆公司！这个函数被收集在本站开发的“Excel 扩展函数集”里，下载这个函数集，按说明进行安装后，在Excel中运用一个叫EHDXRMB（）的函数就可以将任意数字转换成中文大写金额。具体情况在此就不多进行介绍了。 三、利用公式进行转换： 所谓“自力更生，丰衣足食”，这第三种方法就是自己编写公式进行转换。虽然吝啬的小编连白开水也舍不得给我，但我还是一如既往地发扬大公无私之精神将独门密技告之天下，包学包会，不会免费再学……（小编：STOP！再要是废话就OUT！） 为了照顾一些Excel初学者，我们先来了解一下什么是Excel里的公式与函数。Excel之所以计算功能异常强大，百分之八十的功劳就在于用户可以创建公式进行计算。所谓公式，实际上就是一个计算表达式（通常是包含函数与单元格引用的计算表达式）。在Excel里，以“=”作为公式的标志，在任何一个非文本值类型的单元格内，只要以“=”开头，就必定是Excel公式，举一最简单的例子：如果A1、B1单元格的值为别为1和2，那么如果在C3单元格内输入“=A1+B1”，则Excel会自动将A1和B1的值相加，得到数值3，再返回给C3单元格。 再来说函数，函数其实就是包装好的公式，它能根据你提供的参数自动进行复杂的计算，从而最大限度地减轻你的工作量。Excel内置了大量具备各种功能的函数，而且Excel还允许用户自己添加函数（就像第二种方法中笔者写的那个），这样一来，在Excel里几乎没有计算不出来的东西了。拿Excel中较常用到的SUM函数来说，如果要计算从A1到A100单元格的数值总和，写公式时是用不着写成 “=A1+A2+A3+……A100”的，而只是简单地写成“=SUM（A1：A10）”就可以了。 Excel中有上百种函数，今天我们只讲我们将要用到的几个。其实所有这些函数的功能及详细用法在Excel 帮助文件里都有介绍，当你遇到具体计算要求时，只要你点击常用工具栏中“粘贴函数”按钮，Excel会将所有的函数一一展示在你眼前，结合相应的帮助文件，你可以迅速挑选到一个适合你的函数。 1、IF函数 这是Excel里最常用到的函数之一，它的功能是执行真假值判断，根据逻辑测试的真假值返回不同的结果。其语法为IF（判断表达式，当条件值为真时返回的值，当条件值为假时返回的值）。通俗地说，就是“如果……就……否则”的语法结构。比如A1单元格内为学生成绩，我们现在要在B1单元格计算此成绩是否及格，则公式为“=IF（A1<60，"不及格"，"及格"）”，这样一来，如果A1的数值小于60，B1就会显示“不及格”，否则就显示“及格”，是不是挺简单？IF函数是允许嵌套的，也就是说IF函数里面还可以有IF函数，这样就可以执行比较复杂的判断了。 2、TRUNC函数 这个函数可以截去指定位数的小数，如果将小数部分全部截去，就可以得到一个整数。要注意，截去是指

金额大小写转换

金额大小写转换 第一招：釜底抽薪——自动更正法 如果需要重复的输入一个大写数字金额，可以采用自动更正的方法。例如要重复输入“肆仟叁佰伍拾元零伍分”，可以先输入“肆仟叁佰伍拾元零伍分”并选中它，然后执行菜单“工具→自动更正选项”打开“自动更正”对话框，在“替换”下的框内输入“4350.05”并单击“添加”按钮确定后退出，以后直接输入“4350.05”后回车即可快速得到“肆仟叁佰伍拾元零伍分”。 第二招：一劳永逸——编制自动宏 如果有许多小写金额要变成大写的话，用上面的自动更正的方法需要定义很多自动更正项，显然也比较麻烦，其实只需要编辑一个宏就能做到“一劳永逸”了。启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码： Option Explicit Sub 小写金额变大写() Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String Const ZWDX As String = "壹贰叁肆伍陆柒捌玖零" '定义一个中文大写汉字常量 On Error Resume Next '错误忽略 With Selection Numeric = VBA.Round(VBA.V al(.Text), 2) '四舍五入保留小数点后两位 '判断是否在表格中 If .Information(wdWithInTable) Then _ .MoveRight unit:=wdCell Else .MoveRight unit:=wdCharacter '对数据进行判断,是否在指定的范围内 If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _ vbOKOnly + vbExclamation, "Warning": Exit Sub IntPart = Int(VBA.Abs(Numeric)) '定义一个正整数 Odd = VBA.IIf(IntPart = 0, "", "圆") '定义一个STRING变量 '插入中文大写前的标签 Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "人民币金额大写:", "人民币金额大写:负") '对小数点后面二位数进行择定 DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100 Select Case DecimalPart Case Is = 0 '如果是0,即是选定的数据为整数 Oddment = VBA.IIf(Odd = "", "", Odd & "整") Case Is < 10 '<10,即是零头是分 Oddment = VBA.IIf(Odd <> "", "圆零" & VBA.Mid(ZWDX, DecimalPart, 1) & "分", _ VBA.Mid(ZWDX, DecimalPart, 1) & "分") Case 10, 20, 30, 40, 50, 60, 70, 80, 90 '如果是角整 Oddment = "圆" & VBA.Mid(ZWDX, DecimalPart / 10, 1) & "角整" Case Else '既有角,又有分的情况

人民币大小写转换

成绩评定表

课程设计任务书

一、实训题目和实训任务 二、1. 实训题目 人民币大小写转换 2. 实训任务 输入一个钱数，比如3456.45，显示其人民币大写：叁仟肆佰伍拾陆元肆角伍分。用C#窗体程序实现，注意数字中带有零的情况，比如3009005.04。多试一些，确保你的程序可用于银行储蓄系统。 3. 题目分析 刚选这道题目的时候我认为这个应该是挺简单的一道题，运用数组定义单位和大写字符。然后再通过循环来实现对数字的大写转换和单位的添加。所以应该只有一个关键的转换代码。可以让这个代码通过butto按钮实现转换。之后对这个代码多次进行调试确保可以识别所有数字和单位然后重复这个关键代码就可以实现识别位数的增加达到规定要求。然后在完成题目中其他要求比如对于零的处理，可以添加一个整形变量用来识别本位数是否为零，进而达到对零的识别。完成课题中所有的要求。其次添加一些别的简单的小功能比如类似计算器键盘的按钮的输入功能。添加数字输入按钮、转换按钮、清空按钮等功能按钮。这样可以使得程序更加丰满不会觉得太过于单调，使得界面更加丰满。之后再添加各种图片用来装饰整个程序。完成此程序。 4. 开发工具和环境 开发工具：Visual Studio 2012 环境：Windows 2000, XP, Vista等

二、软件设计 1. 关键技术分析 ①实现数值和单位赋值大代码 //定义单位，大写，和用于判断的c，i，j，n string[] a = { "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖" }; string[] b = { "分", "角", "元", "十", "百", "千", "万", "十", "百", "千", "亿", "十", "百", "千" }; string c; int k = 0; int j; int a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11; //输入数值i强制只能读到分位 double i = double.Parse(textBox1.Text); int n = (int)(100 * i); //实现分位数的单位与数值转换 a1 = j = n % 10; if (n != 0) { if (j != 0) { c = a[j - 1]; textBox2.Text = (c + b[k] + textBox2.Text); k++; } else { textBox2.Text = (textBox2.Text); k++; } } else { textBox2.Text = textBox2.Text; k++; } ②实现对零的判断代码 //个位数对于零的判断以及读法 if (a3== 0) { if (a2==0&&a3==0) { textBox2.Text = "元整" + textBox2.Text; } else textBox2.Text ="元零"+ textBox2.Text; }

excel表格金额大小写转换

竭诚为您提供优质文档/双击可除excel表格金额大小写转换 篇一：excel表中小写金额直接转换成大写金额的公式excel表中小写金额直接转换成大写金额的公式：一、=iF(oR(a1 三、 用公式就可以，我不懂做会计的如何用大写表示如128.40这样的角 不为0但分为0的值，是“壹佰贰拾捌元肆角整”还是“壹佰贰拾捌元肆角”？ 如果是“壹佰贰拾捌元肆角”，请用这个公式： =text(int(b2),"[dbnum2]"),text((int(c10*100)-int(c1 0*10)*10),"[dbnum2]")nascurrency constcnumasstring="零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分" constcchaasstring="零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整" dimsnumasstring dimiaslong

if(n0)and(abs(n) snum=trim(str(int(abs(n)*100))) Fori=1tolen(snum)逐位转换 baituRmbdx=baituRmbdx+mid(cnum,(mid(snum,i,1))+1,1) +mid(cnum,26-len(snum)+i,1) next Fori=0to11去掉多余的零 baituRmbdx=Replace(baituRmbdx,mid(ccha,i*2+1,2),mid (ccha,i+26, 1)) next ifn else baituRmbdx=iif(n=0,"零元","溢出") endif endFunction 11 Functionuppernum(n)nassingle数字大写函数 ifn 正负判断="负" n=-n endif

excel金额大小写转换公式的用法

excel金额大小写转换公式的用法 Excel中经常需要使用到金额大小写转换公式对金额进行转换，金额大小写转换公式具体该如何使用呢?接下来是小编为大家带来的excel金额大小写转换公式的用法，供大家参考。 excel金额大小写转换公式用法（一）步骤1：数字转人民币大写形式的公式是： =IF(B10,金额为负无效, (IF(OR(B1=0,B1=),(人民币)零元, IF(B11,(人民币), TEXT(INT(B1),[dbnum2](人民币)G/通用格式)元)))),零), (TEXT(INT(B1*10)-INT(B1)*10,[dbnum2])角)) 整, TEXT((INT(B1*100)-INT(B1*10)*10),[dbnum2])分) 步骤2：数字转人民币大写形式的公式是： =大写金额：,,IF(B1=0,,人民币0,负,)[dbnum2])元,)[dbnum2])角,IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)0.1,,零)))[dbnum2])分,整))) excel金额大小写转换公式用法（二）步骤1：通过宏VBA自定义函数实现第一步：按下ALT+F11组合键，或者是单击工具宏Visual Basic编辑器，进入Visual Basic编程环境，单击插入菜单模块，复制下面代码，保存，退出关闭。Function N2RMB(M)

y = Int(Round(100 * Abs(M)) / 100) j = Round(100 * Abs(M) + 0.00001) - y * 100 f = (j / 10 - Int(j / 10)) * 10 A = IIf(y 1, , Application.Text(y, [DBNum2]) 元) b = IIf(j 9.5, Application.Text(Int(j / 10), [DBNum2]) 角, IIf(y 1, , IIf(f 1, 零, ))) c = IIf(f 1, 整, Application.Text(Round(f, 0), [DBNum2]) 分) N2RMB = IIf(Abs(M) 0.005, , IIf(M 0, 负 b b c)) End Function 步骤2：返回excel操作界面，在B1单元格输入：= N2RMB (A1)，就可以将A1单元格的数字转为人民币大写，然后向下复制公式即可将全部的数字转为人民币大写。 看了excel金额大小写转换公式的用法还看了：1.excel金额转大写的公式用法 2.excel 数字小写转大写公式的教程(2种) 3.怎么将Excel2007小写金额转换为大写金额 4.excel用函数将数字大小写转换的方法 5.怎么将Excel中将文本转换为小写形式 6.怎么利用Excel2013把数字转为中文大写数字 7.excel2010数字转换成中文大小写的教程

Excel中金额大小写转换(四舍五入都OK)

Excel中金额大小写转换 编制工程造价很有用 编制EXCEL财务表也很有用 Excel中金额大小写转换函数[=ntoc(单元格)] 一、使用加载宏方法：对于有四舍五入都没问题啊 “工具栏”→“宏”→“Visual Basic编辑器”，在“Visual Basic编辑器”中顶部选“插入”→“模块”，在“模块”对话框中选“通用”，并在编辑区域内粘贴以下内容： Function NtoC(n) 'n as single Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分" Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整" NtoC = "" n = Round(n, 2) sNum = Trim(Str(Int(n * 100))) For i = 1 To Len(sNum) '逐位转换 NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1) Next For i = 0 To 11 '去掉多余的零 NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1)) Next End Function 然后单击“保存”，关闭“Visual Basic编辑器”，回到“工作表１”，输入函数“=NtoC(单元格)”即可。例如在单元格A1输入：A1=222, 在单元格A2输入：A2=NTOC(A1) 即可，这样A1单元格输入的数变化，A2单元格的大写自动变化。A2单元格最好进行单元锁定。

Excel中金额大小写转换

Excel中金额大小写转换 一、Excel中金额大小写转换公式 公式1： “=IF(ROUND(E19,2)=0,"",IF(ROUND(ABS(E19),2)>=1,TEXT(INT(ROUND(ABS(E19),2)),"[ DBNum2]")&"元","")&IF(RIGHT(TEXT(E19,".00"),2)*1=0,"整 ",IF(RIGHT(TEXT(E19,".00"),4)*1>=1,IF(RIGHT(TEXT(E19,".00"),2)*1>9,"","零 "),IF(ROUND(ABS(E19),2)>=1,"零 ",""))&IF(RIGHT(TEXT(E19,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(E19,".00"),2)),"[DBNu m2]")&"角 ","")&IF(RIGHT(TEXT(E19,".00"))*1>0,TEXT(RIGHT(TEXT(E19,".00")),"[DBNum2]")&"分","整")))” 公式2：“=IF(F4<1,IF(F4<0.1,TEXT(INT(F4*100),"[DBNum2]G/通用格式")&"分 ",IF((INT(F4*100)-INT(F4*10)*10=0),TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分 ")),TEXT(INT(F4),"[DBNum2]G/通用格式"&"元 ")&IF((INT(F4*10)-INT(F4)*10)=0,IF((INT(F4*100)-INT(F4*10)*10)=0,"","零 "),IF((INT(F4*0.1)-INT(F4)*0.1)=0,"零","")&TEXT(INT(F4*10)-INT(F4)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(F4*100)-INT(F4*10)*10)=0,"整 ",TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分"))” 公式3：“=IF(B10<1,IF(B10<0.1,TEXT(INT(B10*100),"[DBNum2]G/通用格式")&"分 ",IF((INT(B10*100)-INT(B10*10)*10=0),TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分 ")),TEXT(INT(B10),"[DBNum2]G/通用格式"&"元 ")&IF((INT(B10*10)-INT(B10)*10)=0,IF((INT(B10*100)-INT(B10*10)*10)=0,"","零 "),IF((INT(B10*0.1)-INT(B10)*0.1)=0,"零 ","")&TEXT(INT(B10*10)-INT(B10)*10,"[DBNum2]G/通用格式")&"角 ")&IF((INT(B10*100)-INT(B10*10)*10)=0,"整 ",TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分"))” 二、Excel中金额大小写转换函数[=ntoc(单元格)] 使用加载宏方法： “工具栏”→“宏”→“V isual Basic编辑器”，在“Visual Basic编辑器”中顶部选“插入”→“模块”，在“模块”对话框中选“通用”，并在编辑区域内粘贴以下内容： Function NtoC(n) 'n as single Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分" Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整" NtoC = "" sNum = Trim(Str(Int(n * 100)))

EXCEL金额小写转大写公式

EXCEL金额小写转大写公式 近来看了转几个Excel相关论坛，发现有部分网友在寻求数字金额转换为人民币大写的方法。出于好奇，我在网上搜索了一番，什么VBA、加载宏，公式函数各式方法争相亮相，应有尽有。但我的习惯是，只要能用公式解决的问题，坚决不使用VBA。所以我就特别地关注使用公式来生成的方法，结果是用公式的方法可谓是更加地灿烂缤纷，使人眼花缭乱。 通过分析我收集到的二十几个公式，发现比较牛，适合我口味的公式有三个，在此我将其列出。 公式一： SUBSTITUTE(SUBSTITUTE(IF(A1《0，“负”，“”)&TEXT(TRUNC(ABS(ROUND(A1，2)))，“[DBNum2]”)&“元”&IF(ISERR(FIND(“。”，ROUND(A1，2)))，“”，TEXT(RIGHT(TRUNC(ROUND(A1，2)*10))，“[DBNum2]”))&IF(ISERR(FIND(“.0”，TEXT(A1，“0.00”)))，“角”，“”)&IF(LEFT(R IGHT(ROUND(A1，2)，3))=“。”，TEXT(RIGHT(ROUND(A1，2))，“[DBNum2]”)&“分”，IF(ROUND(A1，2)=0，“”，“整”))，“零元零”，“”)，“零元”，“”) 公式二： CONCA TENA TE(IF(A1《0，“负”，“”)，TEXT(IF(TRUNC(A1)=0，“”，TRUNC(ABS(A1)))，“[DBNum2]”)，IF(INT(TRUNC(A1))=0，“”，“元”)，TEXT(IF(OR(ABS(A1)《0.1，TRUNC(A1)=A1)，“”，RIGHT(TRUNC(A1*10)，1))，“[DBNum2]”)，IF(RIGHT(TRUNC(A1*10)，1)=“0”，“”，“角”)，TEXT(IF(RIGHT(TRUNC(A1*100)，1)=“0”，“”，RIGHT(TRUNC(A1*100)，1))，“[DBNum2]”)，IF(RIGHT(TRUNC(A1*100)，1)=“0”，“”，“分”)) 公式三： IF(ROUND(A1，2)=0，“”，IF(ROUND(ABS(A1)，2)》=1，TEXT(INT(ROUND(ABS(A1)，2))，“[DBNum2]”)&“元”，“”)&IF(RIGHT(TEXT(A1，“.00”)，2)*1=0，“整”，IF(RIGHT(TEXT(A1，“.00”)，4)*1》=1，IF(RIGHT(TEXT(A1，“.00”)，2)*1》9，“”，“零”)，IF(ROUND(ABS(A1)，2)》=1，“零”，“”))&IF(RIGHT(TEXT(A1，“.00”)，2)*1》9，