本文目录一览

1，小写金额转大写怎么弄

答：一、中文大写金额数字到“元”为止的，在“元”之后，应写“整”（或“正”）字；在“角”之后，可以不写“整”（或“正”）字；大写金额数字有“分”的，“分”后面不写“整”（或“正”字）。 二、中文大写金额数字前应标明“人民币”字样，大写金额数字有“分”的，“分”后面不写整（或“正”）字。 如：￥15308.01 应写成人民币壹万伍仟叁佰零捌元零壹分
a、a

小写金额转大写怎么弄

2，大写金额转换规则

如果你的金额在A1单元格，=IF(A1=0,"",CONCATENATE(IF(INT(A1)=0,"",TEXT(INT(A1),"人民币[DBNum2][$-804]G/通用格式元")),IF(INT(MID(RIGHT(FIXED(A1,2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1))=0,"",IF(INT(A1)=0,"","零")),TEXT(INT(MID(RIGHT(FIXED(A1,2,1),2),1,1)),"[DBNum2][$-804]G/通用格式角")),IF(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1))=0,"整",TEXT(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1)),"[DBNum2][$-804]G/通用格式分"))))复制上去就可以了
在EXCEL中用以下函数即可实现：SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A95)),"[dbnum2];; ")&SUBSTITUTE(TEXT(MOD(ABS(A95),1)/1%,"[>9][dbnum2]元0角0分;[>0][dbnum2]元零0分;元整"),"零分","整")," 元零",)," 元",)
壹拾万壹仟元整壹拾万伍仟零贰拾元伍角壹分壹仟零伍元零玖分壹仟零壹拾元伍角（一）阿拉伯数字中间有“0”时，中文大写金额要写“零”字。如￥1，409．50，应写成人民币壹仟肆佰零玖元伍角。（二）阿拉伯数字中间连续有几个“0”时，中文大写金额中间可以只写一个“零”字。如￥6，007．14，应写成人民币陆仟零柒元壹角肆分。（三）阿拉伯金额数字万位或元位是“0”，或者数字中间连续有几个“0”，万位、元位也是“0”，但千位、角位不是“0”时，中文大写金额中可以只写一个零字，也可以不写“零”字。如￥1，680．32，应写成人民币壹仟陆佰捌拾元零叁角贰分，或者写成人民币壹仟陆佰捌拾元叁角贰分；又如￥107，000．53，应写成人民币壹拾万柒仟元零伍角叁分，或者写成人民币壹拾万零柒仟元伍角叁分。（四）阿拉伯金额数字角位是“0”，而分位不是“0”时，中文大写金额“元”后面应写“零”字。如￥16，409．02，应写成人民币壹万陆仟肆佰零玖元零贰分；又如￥325．04，应写成人民币叁佰贰拾伍元零肆分。
其实你可以去百度直接搜，这里面提问效果不是很好！

大写金额转换规则

3，excel中人民币小写转大写的函数怎么写

我给你一个方法将此复制下来粘贴到Excel单元格内就可以了。 =IF(ROUND(A5,2)<0,"无效数值","人民币"&IF(ROUND(A5,2)=0,"零元",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分"))) 还有以下方法：Excel将小写金额转换成人民币的大写金额 1、如何自定义： 打开EXCEL,新建一个文件Book1,按ALT+F11进入VBA编程环境,选中这个BOOK1文件,插入模块,将下面的源代码复制到右边的模块代码区内,然后将此BOOK1保存,保存类型一定选加载宏,文件名嘛可自由发挥,我就填"中文大写",确定OK!然后回到EXCEL,工具--加载宏-找到"中文大写",打勾确定,我们这个自定义函数就可以象内置函数样使用了!--->=rmbdx(123456.78),爽吧! 2、例子: A、直接在函数内输入数值的（请注意参数的用法，默认用法是不用输入） =rmbdx(123456.78)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分 =rmbdx(123456.78,0)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分 =rmbdx(123456.78,1)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分 =rmbdx(56.78)--->伍拾陆元柒角捌分 =rmbdx(0.78)--->柒角捌分 =rmbdx(0.784)--->柒角捌分 =rmbdx(0.785,1)--->柒角玖分 =rmbdx(0.02,1)--->贰分 B、引用某单元格数值进行转换的 假设你的D3单元格的数据（也可以是求和或其它公式得出的结果）需要转换，大写格式放在D4单元格，则D4输入公式：=rmbdx(d3)即可 C、其它形如=rmbdx(SUM(C4:C6))的也可以，用法象内置函数，请灵活使用 3、源代码： Functionrmbdx(value,Optionalm=0) 中文大写源代码,By对面男孩、redwin 支持负数,支持小数点后的第三位数是否进行四舍五入处理 默认参数为0,即不将小数点后的第三位数进行四舍五入处理 2002-10-11--2002-10-13 one rrorResumeNext Dima DimjfAsString定义角分位 Dimj定义角位 Dimf定义分位 Ifvalue<0Then处理正负数的情况 a="负" Else a="" EndIf IfIsNumeric(value)=FalseThen判断待转换的value是否为数值 rmbdx="需转换的内容非数值" Else value=Abs(CCur(value)) 当参数m不输入(默认为0)或为0时,小数点后的第三数不进行四舍五入处理 当参数m为1或其它数值时,小数点后的第三数进行四舍五入处理 Ifm=0Then jf=Fix((value-Fix(value))*100) value=Fix(value)+jf/100 Else厘位进行四舍五入实践很少用到,但还是要照顾到 value=Application.WorksheetFunction.Round(value,2)-->这句是关键!只用round有bug jf=Round((value-Fix(value))*100,0) EndIf Ifvalue=0Orvalue=""Then当待转换数值为0或空时,不进行转换 rmbdx="" Else strrmbdx=Application.WorksheetFunction.Text(Int(value),"[DBNum2]")&"元"转换整数位 IfInt(value)=0Then strrmbdx="" EndIf IfInt(value)<>valueThen Ifjf>9Then判断小数位 j=Left(jf,1) f=Right(jf,1) Else j=0 f=jf EndIf Ifj<>0Andf<>0Then角分位都有时 jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角"_ &Application.WorksheetFunction.Text(f,"[DBNum2]")&"分" Else 处理出现零几分的情况 IfInt(value)=0Andj=0Andf<>0Then jf=Application.WorksheetFunction.Text(f,"[DBNum2]")&"分" Else Ifj=0Then有分无角时 jf="零"&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分" Else Iff=0Then有角无分时 jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角整" EndIf EndIf EndIf EndIf strrmbdx=strrmbdx&jf组装 Else strrmbdx=strrmbdx&"整" EndIf rmbdx=a&strrmbdx最后成型了,各位MM满意了吧 EndIf EndIf EndFunction
设a1列为数据列，则在a2输入以下公式(可复制): =if(a1<0,"负","")&if(abs(a1)>1,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)),"[dbnum2]")&"分","整")
excel中人民币小写转大写的函数这样写：第1步 在Excel工作表中输入相关数据，并在A列中输入一些具有代表性的人民币小写数据用来测试函数的功能，第2步 在B2单元格中输入公式"=IF(ABS(A2)<0.005,"",IF(A2<0,"负",)&IF(INT(ABS(A2)),TEXT(INT(ABS(A2)),"[dbnum2]")&"元",)&IF(INT(ABS(A2)*10)-INT(ABS(A2))*10,TEXT(INT(ABS(A2)*10)-INT(ABS(A2))*10,"[dbnum2]")&"角",IF(INT(ABS(A2))=ABS(A2),,IF(ABS(A2)&lt;0.1,,"零")))&IF(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),TEXT(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),"[dbnum2]")&"分","整"))"。第3步 仔细检查公式输入无误后，按回车键即可将A2单元格中人民币小写金额转换为人民币大写金额第4步 拖动B2单元格中的填充柄将公式复制到以下相关的单元格中，即可将A列中数字转换为人民币大写，
楼上所有答案, 均不如楼主的第一条公式，而且答非所问。如用一条公式去解决 万位是0 显示 零 的问题, 公式会比原来的长三倍, 太吓人了。故建议用辅助格, 方法是:将原有公式放在辅助格, 假设是C9,C9会显示 人民币肆拾万肆仟四百元整再在需要显示大写的单元格, 输入下列公式:=IF(AND(ISERROR(FIND("拾万",C9))=FALSE,ISERROR(FIND("拾万零",C9)=TRUE)),SUBSTITUTE(C9,"拾万","拾万零"),C9)便会显示 人民币肆拾万零肆仟四百元整注意:1.)设定公式后, 需将C9设定成白色, 以免被打印出来2.)上述办法并未考虑百万位加零, 即 1,002,000 如有需要, 公式要添加一些内容
支持vip_shine请按他的步骤试试看呀
不需要函数，只需要把单元格格式设置为：特殊-中文大写数字

excel中人民币小写转大写的函数怎么写


文章TAG：金额大写转换  小写金额转大写怎么弄  
下一篇