大家好，相信到目前为止很多朋友对于人民币小写转大写公式和表格人民币小写转大写公式不太懂，不知道是什么意思？那么今天就由我来为大家分享人民币小写转大写公式相关的知识点，文章篇幅可能较长，大家耐心阅读，希望可以帮助到大家，下面一起来看看吧！
我给你一个***将此复制下来粘贴到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
OnErrorResumeNext
Dima
DimjfAsString’定义角分位
Dimj’定义角位
Dimf’定义分位
Ifvalue0Then’处理正负数的情况
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
Ifjf9Then’判断小数位
j=Left(jf,1)
f=Right(jf,1)
Else
j=0
f=jf
EndIf
Ifj0Andf0Then’角分位都有时
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")"角"_
Application.WorksheetFunction.Text(f,"[DBNum2]")"分"
Else
’处理出现零几分的情况
IfInt(value)=0Andj=0Andf0Then
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=strrmbdxjf’组装
Else
strrmbdx=strrmbdx"整"
EndIf
rmbdx=astrrmbdx’最后成型了,各位MM满意了吧
EndIf
EndIf
EndFunction
工具/原材料
excel2018版、电脑。
1、打开电脑找到并双击打开excel2018新建工作表格；
2、双击打开excel新建工作表格以后，为了示范在A1输入好数字，在复制粘贴到B1中；
3、编辑数字并选中B1后，点击鼠标右键选择”设置单元格格式“的命令；
4、在弹出的对话框中点击特殊，并在右边的界面选择人民币大写点击确定；
5、设置并确定好以后，此时B1的单元格就自动的转换为大写；
6、也可以在单元格内直接输入v+数字，如：”v365874.51“选择大写的金额即可完成。
向你推荐两个公式，这两个公式很完整也很简洁(并且使用了TEXT(A1,";负")函数，可以处理文本型数字)的人民币金额大写:
公式一（172个字符）
=SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")TEXT(RIGHT(RMB(A1,2),2),"[9][dbnum2]0角0分;"IF(A1^21,,0)"[][dbnum2]0分;整"),),"零分","整")
公式二（171个字符）
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^21,,"零")),"零分","整")
我一直都在使用，这两个公式很好用。
1565.36套用公式的结果就是“壹仟伍佰陆拾伍元叁角陆分”；
如果数字是整数如1565.00，则大写金额为“壹仟伍佰陆拾伍元整”。
这是最符合财务规范的大写金额的写法。
利用相对应的函数即可在excel中将数字人民币转换成大写，具体操作请参照以下步骤，演示软件版本为Excel2007。
1、首先在电脑上打开一个Excel文件，进入编辑区，如图所示。
2、然后在B1单元格中输入目标数字123.56，如图所示。
3、然后选中B2单元格作为结果输出单元格，如图所示。
4、然后输入下图中的函数命令，公式中的B1是之前输入***数字的单元格。
5、按下回车键，即可得到结果。完成以上设置后，即可在excel中，使用函数将数字人民币转换成大写。
文章到此结束，希望可以帮助到大家。
