人民币大小写转换Excel公式

合集下载

EXCLE小写金额转换大写公式

EXCEL 小写
金额转换大
写公式：
示例：
小写金额：大写金额：
28546.37大写（人民币）贰万捌仟伍佰肆拾陆元叁角柒说明：不讨论公式设计，单从应用方法上简单介绍，将大写金额单元格的公式复制到需要体现大写的单元格，然后对公示引用的小写单元格进行替换操作即可，比如小写金额在D5单元格，那将下述大写单元格公示中的A7全部替换成为D5即可；
公示描述："大写（人民币）"&IF((INT(A7*10)-
INT(A7)*10)=0,TEXT(INT(A7),"[DBNum2]G/通用格式")&"元
"&IF((INT(A7*100)-INT((A7)*10)*10)=0,"整","零
"&TEXT(INT(A7*100)-INT(A7*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A7),"[DBNum2]G/通用格式")&"元"&IF((INT(A7*100)-INT((A7)*10)*10)=0,TEXT((INT(A7*10)-INT(A7)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A7*10)-INT(A7)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A7*100)-INT(A7*10)*10,"[DBNum2]G/通用格式")&"分"))。

EXCEL财务小技巧--人民币数字金额转汉字大写公式

EXCEL财务小技巧--人民币数字金额转汉字大写公式前几天又被问到人民币大写，正好想起来以前收集的这个公式，当时是做一个空调安装报价系统，所以在网上找到了这个公式，公式看起来很复杂，不过结构并不复杂，有兴趣的可以研究下，不过学会用还是很简单的公式如下：='大写：'&IF(ABS(E1)<0.005,'',IF(E1<0,'负',)&IF(INT(ABS(E1)),TEXT(INT(ABS(E1)),'[dbnum2]')&'元',)&IF(INT(ABS(E1)*10)-INT(ABS(E1))*10,TEXT(INT(ABS(E1)*10)-INT(ABS(E1))*10,'[dbnum2]')&'角',IF(INT(ABS(E1))=ABS(E1),,IF(ABS(E1)<0.1,,'零')))&IF(ROUND(ABS(E1)*100-INT(ABS(E1)*10)*10,),TEXT(ROUND(ABS(E1)*100-INT(ABS(E1)*10)*10,),'[dbnum2]')&'分','整'))在实际用的时候先把这个公式复制到记事本里，比如你要将A1的数字转化成人民币大写，那就用记事本的替换功能将E1替换成A1，在将公式复制粘贴到要显示大写的单元格即可应用的结果示范如下另外这个公式是个引子，需要的最终格式和这有点不一样，那也可以根据这个公式做一些简单改变，比如说总是要得到要得到 *元*角*分的样子那就写成='人民币'&IF(ABS(AG10)<0.005,'',IF(AG10<0,'负',)&IF(INT(ABS(AG10)),TEXT(INT(ABS(AG10)),'[dbnum2]')&'元',)&IF(INT(ABS(AG10)*10)-INT(ABS(AG10))*10,TEXT(INT(ABS(AG10)*10)-INT(ABS(AG10))*10,'[dbnum2]')&'角',IF(INT(ABS(AG10))=ABS(AG10),'零角',IF(ABS(AG10)<0.1,,'零')))&TEXT(ROUND(ABS(AG10)*100-INT(ABS(AG10)*10)*10,),'[dbnum2]')&'分')注意这里目标单元格时AG10，结果如下人民币伍万肆仟零叁拾元零角零分540302010-10-12 by excel880。

EXCEL中如何把金额自动转换成大写方法一至五

EXCEL中如何把金额自动转换成大写方法一至五EXCEL中如何把金额自动转换成大写方法一至五一、在EXCEL单元格中建立函数公式：（1）单元格准备：A列为金额，B列为金额大写（2）在B1单元格中按Fx，把鼠标移动到函数库里的数学函数，选择数值转换，点击公式输入，在A1输入框输入：=数值转换（A1,"大写")（3）按Enter，函数公式就构成，点击B1单元格，金额就转换成大写了二、利用EXCEL中的格式转换：（1）A列为金额，B列为金额大写（2）选中A列，双击A列的标题，出现“格式”对话框，在“数字”选项卡中，选择“文本”，确定（3）选中A列，以B1单元格为起点，单击鼠标右键，选择“复制”（4）将鼠标移至B1单元格，单击鼠标右键，选择“粘贴特性”，在“粘贴特性”对话框中，选择“文本转换”，确定（5）B列就转换成金额大写了三、EXCEL中的VBS脚本编程：（1）A列为金额，B列为金额大写Dim add(16)add(0)="零"add(1)="壹" add(2)="贰" add(3)="叁" add(4)="肆" add(5)="伍" add(6)="陆" add(7)="柒" add(8)="捌" add(9)="玖" add(10)="拾" add(11)="佰" add(12)="仟" add(13)="万" add(14)="亿"。

Excel中金额大小写转换

Excel中金额大小写转换一、Excel中金额大小写转换公式公式1：="人民币"&IF(ROUND(G8,2)=0,"",IF(ROUND(ABS(G8),2)>=1,TEXT(INT(ROUND(ABS(G8),2)),"[DB Num2]")&"元","")&IF(RIGHT(TEXT(G8,".00"),2)*1=0,"整",IF(RIGHT(TEXT(G8,".00"),4)*1>=1,IF(RIGHT(TEXT(G8,".00"),2)*1>9,"","零"),IF(ROUND(ABS(G8),2)>=1,"零",""))&IF(RIGHT(TEXT(G8,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(G8,".00"),2)),"[DBNum 2]")&"角整","")&IF(RIGHT(TEXT(G8,".00"))*1>0,TEXT(RIGHT(TEXT(G8,".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(单元格)]使用加载宏方法：“工具栏”→“宏”→“Visual Basic编辑器”，在“Visual Basic编辑器”中顶部选“插入”→“模块”，在“模块”对话框中选“通用”，并在编辑区域内粘贴以下内容：Function NtoC(n) 'n as singleConst cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"NtoC = ""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)NextFor i = 0 To 11 '去掉多余的零NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))NextEnd Function然后单击“保存”，关闭“Visual Basic编辑器”，回到“工作表１”，输入函数“=NtoC(单元格)”即可。

EXCEL金额大小写转换公式大全

EXCEL‎金额大小写‎转换公式大‎全2007-12-15 16:08先选中需要‎转换的单元‎格，在格式（或者右击设‎置单元格格‎式中）——单元格格式‎——数据——特殊——右边类型：中文小写、中文大写=NUMBE‎R STRI‎N G($A$1,1)1=IF(A5=0,"",CONCA‎TENA T‎E(IF(INT(A5)=0,"",TEXT(INT(A5),"[DBNum‎2]G/通用格式元‎")),IF(INT(MID(RIGHT‎(FIXED‎(A5,2,1),2),1,1))=0,IF(INT(MID(RIGHT‎(FIXED‎(A5,2,1),1),1,1))=0,"",IF(INT(A5)=0,"","零")),TEXT(INT(MID(RIGHT‎(FIXED‎(A5,2,1),2),1,1)),"[DBNum‎2]G/通用格式角‎")),IF(INT(MID(RIGHT‎(FIXED‎(A5,2,1),1),1,1))=0,"整",TEXT(INT(MID(RIGHT‎(FIXED‎(A5,2,1),1),1,1)),"[DBNum‎2]G/通用格式分‎"))))2=IF(A5<0,"負","")&IF(ABS(A5)>1,TEXT(TRUNC‎(ABS(ROUND‎(A5,2))),"[DBNum‎2]")&"元","")&IF(ISERR‎(FIND(".",ROUND‎(A5,2))),"",TEXT(RIGHT‎(TRUNC‎(ROUND‎(A5,2)*10)),"[DBNum‎2]"))&IF(ISERR‎(FIND(".0",TEXT(A5,"0.00"))),"角","")&IF(LEFT(RIGHT‎(ROUND‎(A5,2),3))=".",TEXT(RIGHT‎(ROUND‎(A5,2)),"[DBNum‎2]")&"分","整")3=IF(A5<0,"负","")&IF(TRUNC‎(ROUND‎(A5,2))=0,"",TEXT(TRUNC‎(ABS(ROUND‎(A5,2))),"[DBNum‎2]")&"元")&IF(ISERR‎(FIND(".",ROUND‎(A5,2))),"",TEXT(RIGHT‎(TRUNC‎(ROUND‎(A5,2)*10)),"[DBNum‎2]"))&IF(ISERR‎(FIND(".0",TEXT(A5,"0.00"))),"角","")&IF(LEFT(RIGHT‎(ROUND‎(A5,2),3))=".",TEXT(RIGHT‎(ROUND‎(A5,2)),"[DBNum‎2]")&"分","整")4=SUBST‎ITUTE‎(SUBST‎ITUTE‎(IF(A5<0,"負","")&TEXT(TRUNC‎(ABS(ROUND‎(A5,2))),"[DBNum‎2]")&"元"&IF(ISERR‎(FIND(".",ROUND‎(A5,2))),"",TEXT(RIGHT‎(TRUNC‎(ROUND‎(A5,2)*10)),"[DBNum‎2]"))&IF(ISERR‎(FIND(".0",TEXT(A5,"0.00"))),"角","")&IF(LEFT(RIGHT‎(ROUND‎(A5,2),3))=".",TEXT(RIGHT‎(ROUND‎(A5,2)),"[DBNum‎2]")&"分",IF(ROUND‎(A5,2)=0,"","整")),"零元零",""),"零元","")5=IF(ROUND‎(A5,2)<0,"无效数值",IF(ROUND‎(A5,2)=0,"零",IF(ROUND‎(A5,2)<1,"",TEXT(INT(ROUND‎(A5,2)),"[dbnum‎2]")&"元")&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,"[dbnum‎2]")&"角")&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),"[dbnum‎2]")&"分")))6=IF(ISNUM‎B ER(A5),IF(A5<0,"无效数值",IF(A5<0.005,"零",IF(A5<0.995,"",TEXT(INT(A5+0.005),"[dbnum‎2]")&"元")&IF(LEFT(RIGHT‎(FIXED‎(A5,2),2),1)="0",IF(RIGHT‎(FIXED‎(A5,2),1)="0","",IF(A5>0.995,"零","")),TEXT(LEFT(RIGHT‎(FIXED‎(A5,2),2),1),"[dbnum‎2]")&"角")&IF(RIGHT‎(FIXED‎(A5,2),1)="0","整",TEXT(RIGHT‎(FIXED‎(A5,2),1),"[dbnum‎2]")&"分"))),"非数值!")7=IF(ISNUM‎B ER(A5),IF(ROUND‎(A5,2)<0,"无效数值",IF(ROUND‎(A5,2)=0,"零",IF(ROUND‎(A5,2)<1,"",TEXT(INT(ROUND‎(A5,2)),"[dbnum‎2]")&"元")&IF(INT(ROUND‎(A5,2)*10)-INT(ROUND‎(A5,2))*10=0,IF((INT(ROUND‎(A5,2)*100)-INT(ROUND‎(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND‎(A5,2)*10)-INT(ROUND‎(A5,2))*10,"[dbnum‎2]")&"角")&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),"[dbnum‎2]")&"分"))),"非数值！！！")8=IF(ROUND‎(A5,2)<0,"无效数值",IF(ROUND‎(A5,2)=0,"零",IF(ROUND‎(A5,2)<1,"",TEXT(INT(ROUND‎(A5,2)),"[dbnum‎2]")&"元")&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,"[dbnum‎2]")&"角")&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),"[dbnum‎2]")&"分")))9=TEXT(INT(A5),"[dbnum‎2]")&"元"&IF(INT(A5*10)-INT(A5)*10=0,"",TEXT(INT(A5*10)-INT(A5)*10,"[dbnum‎2]")&"角")&IF(INT(A5*100)-INT(A5*10)*10=0,"整",TEXT(INT(A5*100)-INT(A5*10)*10,"[dbnum‎2]")&"分")10Funct‎i on BAITU‎R MBDX‎(ByVal‎n) As Strin‎g 'n as Curre‎n cyConst‎ cNum As Strin‎g = "零壹贰叁肆‎伍陆柒捌玖‎-万仟佰拾亿‎仟佰拾万仟‎佰拾元角分‎" Const‎ cCha As Strin‎g= "零仟零佰零‎拾零零零零‎零亿零万零‎元亿万零角‎零分零整-零零零零零‎亿万元亿零‎整整"Dim sNum As Strin‎gDim i As LongIf (n <> 0) And (Abs(n) < 10000‎00000‎0000#) ThensNum = Trim(Str(Int(Abs(n) * 100)))For i = 1 To Len(sNum) '逐位转换BAITU‎R MBDX‎= BAITU‎R MBDX‎+ Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)NextFor i = 0 To 11 '去掉多余的‎零BAITU‎R MBDX‎= Repla‎c e(BAITU‎R MBDX‎, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1)) NextIf n < 0 Then BAITU‎RMBDX‎= "(负)" + BAITU‎RMBDX‎ElseBAITU‎RMBDX‎= IIf(n = 0, "零元", "溢出")End IfEnd Funct‎i on11Funct‎i on Upper‎N um(n) 'n as singl‎e '数字大写函‎数If n < 0 Then正负判断= "负"n = -nEnd Ifn = n + 0.0001If Int(n * 1000) - Int(n * 100) * 10 > 4 Thenn = (Int(n * 100) + 1) / 100 + 0.001Elsen = Int(n * 100) / 100 + 0.001End IfSelec‎t Case nC ase Is > 99999‎99999‎999.99Upper‎N um = "数据不符"MsgBo‎x "金额不能大‎于9999‎99999‎9999.99！", vbOKO‎nl y, "出错提示"Case ElseConst‎ cNum = "零壹贰叁肆‎伍陆柒捌玖‎-万仟佰拾亿‎仟佰拾万仟‎佰拾元角分‎"Const‎ cCha = "零仟零佰零‎拾零零零零‎零亿零万零‎元亿万零角‎零分零整-零零零零零‎亿万元亿零‎整整"Upper‎N um = ""sNum = ""s = Trim(Str(n))For i = 1 To Len(s) - 1If Mid(s, i, 1) <> "." Then sNum = sNum + Mid(s, i, 1)Next iFor i = 1 To Len(sNum) '逐位转换U pper‎N um = Upper‎N um + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)Next iFor i = 0 To 11 '去掉多余的‎零U pper‎N um = Repla‎c e(Upper‎N um, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1)) Next iEnd Selec‎tIf 正负判断= "负" Then Upper‎N um = "负" & Upper‎N umEnd Funct‎i on12Funct‎i on JEZH(X As Range‎)If X >= 1 ThenIf Int(X) = X Or Round‎(X, 2) = Int(X) ThenJEZH = Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Int(X), "[DBNUM‎2]") & "元"ElseI‎f Int(X * 10) = X * 10 Or Int(X * 10) = Round‎(X, 2) * 10 ThenJEZH = Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Int(X), "[DBNUM‎2]") & "元" & Appli‎catio‎n.Works‎h eetF‎u ncti‎o n.Text(Right‎(Round‎(X, 2), 1), "[DBNUM‎2]") & "角"ElseJEZH = Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Int(X), "[DBNUM‎2]") & "元" & Appli‎catio‎n.Works‎h eetF‎u ncti‎o n.Text(Left(Right‎(Round‎(X, 2), 2), 1), "[DBNUM‎2]") & "角" & Appli‎catio‎n.Works‎h eetF‎u ncti‎o n.Text(Right‎(Round‎(X, 2), 1), "[DBNUM‎2]") & "分"End IfElseI‎f X = 0 ThenJEZH = Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Int(X), "[DBNUM‎2]") & "元"ElseI‎f X < 1 And X > 0 ThenIf Int(X * 10) = X * 10 ThenJEZH = Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Right‎(X, 1), "[DBNUM‎2]") & "角"ElseJEZH = Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Left(Right‎(Round‎(X, 2), 2), 1), "[DBNUM‎2]") & "角" & Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Right‎(Round‎(X, 2), 1), "[DBNUM‎2]") & "分"End IfElseIf Int(X) = X Or Round‎(Abs(X), 2) = Int(Abs(X)) ThenJEZH = "负" & Appli‎ca tio‎n.Works‎h eetF‎u ncti‎o n.Text(Int(Abs(X)), "[DBNUM‎2]") & "元"ElseI‎f Int(X * 10) = X * 10 ThenJEZH = "负" & Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Int(Abs(X)), "[DBNUM‎2]") & "元" & Appli‎c atio‎n.W orks‎h eetF‎u ncti‎o n.Text(Right‎(X, 1), "[DBNUM‎2]") & "角"ElseJEZH = "负" & Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Int(Abs(X)), "[DBNUM‎2]") & "元" & Appli‎ca tio‎n.Works‎h eetF‎u ncti‎o n.Text(Left(Right‎(Round‎(X, 2), 2), 1), "[DBNUM‎2]") & "角" & Appli‎c atio‎n.Works‎h eetF‎u ncti‎o n.Text(Right‎(Round‎(X, 2), 1), "[DBNUM‎2]") & "分"End IfEnd IfEnd Funct‎i on。

Excel函数公式转换人民币大小写

Excel函数公式转换人民币大小写问题：想将A1中人民币的小写数字，在B1中转成人民币大写。

解答：B1中输入=TEXT(A1*100,"[dbnum2]0拾0万0仟0佰0拾0元0角0分")就可以了，如果你不要拾万位，自己可以修改的，如=TEXT(A1*100,"[dbnum2]0万0仟0佰0拾0元0角0分")等形式都可以的。

⑴已知：A1=4.51函数：B1 =TEXT(A1*100,"[dbnum2]0拾0万0仟0佰0拾0元0角0分")结果：零拾零万零仟零佰零拾肆元伍角壹分⑵已知：A1=456789.23函数：B1 =TEXT(A1*100,"[dbnum2]0拾0万0仟0佰0拾0元0角0分")结果：肆拾伍万陆仟柒佰捌拾玖元贰角叁分⑶已知：A1=123456789.2(注：位数不能超过拾万)函数：B1 =TEXT(A1*100,"[dbnum2]0拾0万0仟0佰0拾0元0角0分")结果：壹贰叁肆拾伍万陆仟柒佰捌拾玖元贰角叁分⑷已知：A1=4.51函数：B1=TEXT(A1*100,"[dbnum2]0万0仟0佰0拾0元0角0分")结果：零万零仟零佰零拾肆元伍角壹分⑸已知：A1=23.25函数：B1=TEXT(A1*100,"[dbnum2] 0拾0元0角0分")结果：贰拾叁元贰角伍分⑹已知：B9=123456789.12函数：=IF(B9<=0,,TEXT(INT(B9),"[dbnum2]人民币G/通用格式")&"元"&IF(INT(B9*10)-INT(B9)*10=0,IF(INT(B9)*(INT(B9*100)-INT(B9*10)*10)=0,"","零"),TEXT(INT(B9*10)-INT(B9)*10,"[dbnum2]")&"角")&IF((INT(B9*100)-INT(B9*10)*10)=0,"整",TEXT((INT(B9*100)-INT(B9*10)*10),"[dbnum2]")&"分"))结果：人民币壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元壹角贰分⑺已知：B9=123456789.12函数：=IF(B9<=0,,TEXT(INT(B9),"[dbnum2]G/通用格式")&"元"&IF(INT(B9*10)-INT(B9)*10=0,IF(INT(B9)*(INT(B9*100)-INT(B9*10)*10)=0,"","零"),TEXT(INT(B9*10)-INT(B9)*10,"[dbnum2]")&"角")&IF((INT(B9*100)-INT(B9*10)*10)=0,"整",TEXT((INT(B9*100)-INT(B9*10)*10),"[dbnum2]")&"分"))结果：壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元壹角贰分⑻已知：B9=123456789.12函数：=IF(ROUND(B9,2)=0,"",IF(ROUND(ABS(B9),2)>=1,TEXT(INT(ROUND(ABS(B9),2)),"[DBNum2]")&"元","")&IF(RIGHT(TEXT(B9,".00"),2)*1=0,"整",IF(RIGHT(TEXT(B9,".00"),4)*1>=1,IF(RIGHT(TEXT(B9,".00"),2)*1>9,"","零"),IF(ROUND(ABS(B9),2)>=1,"零",""))&IF(RIGHT(TEXT(B9,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(B9,".00"),2)),"[DBNum2]")&"角","")&IF(RIGHT(TEXT(B9,".00"))*1>0,TEXT(RIGHT(TEXT(B9,".00")),"[DBNum2]")&"分","整")))结果：壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元壹角贰分核心提示：人民币金额大写转换是财务和会计领域的热点问题，网络提供此问题的方法很多，主要有VBA、自定义函数、多种函数嵌套等。

人民币大写转换公式

人民币金额小写转换为大写转换公式转换公式之一：=IF(A1<0,"金额为负无效",IF(OR(A1=0,A1=""),"零元整",IF(A1<1,"",TEXT(INT(A1),"[DBNum2]G/通用格式")&"元")&IF(INT(A1*10)-INT(A1)*10=0,IF(INT(A1)*(INT(A1*100)-INT(A1*10)*10 )=0,"","零"),TEXT(INT(A1*10)-INT(A1)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(A1*100)-INT(A1*10)*10)=0,"整",TEXT((INT(A1*100)-INT(A1*10)*10),"[DBNum2]G/通用格式")&"分")))转换公式之二：=IF(B8=0,"",CONCATENATE(IF(INT(ABS(B8))=0,"",TEXT(INT(ABS(B8)),"[DB Num2]G/通用格式元")),IF(INT(MID(RIGHT(FIXED(ABS(B8),2,1),2),1,1))=0,IF(INT(MID(RIGHT (FIXED(B8,2,1),1),1,1))=0,"",IF(INT(ABS(B8))=0,"","零")),TEXT(INT(MID(RIGHT(FIXED(B8,2,1),2),1,1)),"[DBNum2]G/通用格式角")),IF(INT(MID(RIGHT(FIXED(B8,2,1),1),1,1))=0,"整",TEXT(INT(MID(RIGHT(FIXED(B8,2,1),1),1,1)),"[DBNum2]G/通用格式分"))))转换公式之四：=IF(ROUND(D1,2)<0,"无效数字",IF(ROUND(D1,2)=0,"零",IF(ROUND(D1,2)<1,"",TEXT(INT(ROUND(D1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(D1,2)*10)-INT(ROUND(D1,2))*10=0,IF(INT(ROUND(D1,2)) *(INT(ROUND(D1,2)*100)-INT(ROUND(D1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(D1,2)*10)-INT(ROUND(D1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(D1,2)*100)-INT(ROUND(D1,2)*10)*10)=0,"整",TEXT((INT(ROUND(D1,2)*100)-INT(ROUND(D1,2)*10)*10),"[dbnum2]")&"分")))=IF(E1=0,"人民幣:零元整","人民幣:"&SUBSTITUTE(SUBSTITUTE(IF(E1<0,"负","")&TEXT(TRUNC(ABS(ROUND(E1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(E1,2))),"",TEXT(RIGHT(TRUNC(ROUND(E1,2)*1 0)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(E1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(E1,2),3))=".",TEXT(RIGHT(ROUND(E1,2)),"[D BNum2]")&"分",IF(ROUND(E1,2)=0,"","整")),"零元零",""),"零元",""))附注——１、实际运用时只需将该公式（红色显示部分）复制并粘贴到需要的EXCEL文档中的单元格中即可。

excel人民币大小写转换函数

excel人民币大小写转换函数
在excel中，可以使用函数轻松实现“人民币大小写转换”。

下面就来介绍一下excel中人民币大小写转换函数的使用方法：
1、准备工作
准备工作很简单，只需要在excel中新建一个工作表，并将要转换的数字输入在表格中即可。

2、使用函数
在excel中，可以使用函数“large”来实现人民币大小写转换，函数的具体使用方法是：
=Large（A1，B1）
其中，A1为要转换的数字，B1为单位（按数字的位数计算，从个位开始）。

例如，我们要转换“4531400”，则其转换函数为：
= Large（4531400，1），1表示单位是个，即若干个“万”
= Large（4531400，2），2表示单位是十万，即若干十万
= Large（4531400，3），3表示单位是百万，即若干百万等等。

- 1 -。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

人民币大小写转换Excel公式以下假设你在A1单元格中输入金额数字，在其它单元格输入以下公式就可以了公式1=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,"","整")),"零元零",""),"零元","")公式2=IF((A1-INT(A1))=0,TEXT(A1,"[DBNUM2]")&"元整",IF(INT(A1*10)-A1*10=0,TEXT(INT(A1),"[DBNUM2]")&"元"&TEXT((INT(A1*10)-INT(A1)*10),"[DBNUM2]")&"角整",TEXT(INT(A1),"[DBNUM2]")&"元"&IF(INT(A1*10)-INT(A1)*10=0,"零",TEXT(INT(A1*10)-INT(A1)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A1,1),"[DBNUM2]")&"分"))公式3=IF(ABS(A1)<0.005,"",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,"[db num2]")&"角",IF(INT(ABS(A1))=ABS(A1),,IF(ABS(A1)<0.1,,"零")))&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(A BS(A1)*10)*10,),"[dbnum2]")&"分","整"))以上公式包含在附件的excel表格中。

下面有更多网友提供的excel公式(未验证)1=IF(A1=0,"",CONCATENA TE(IF(INT(A1)=0,"",TEXT(INT(A1),"[DBNum2]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]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]G/通用格式分"))))2=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)),"[D BNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分","整")3=IF(A1<0,"负","")&IF(TRUNC(ROUND(A1,2))=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]")&"分","整")4=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,"","整")),"零元零",""),"零元","")5=IF(ROUND(A1,2)<0,"无效数值",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROU ND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&"分")))6=IF(ISNUMBER(A1),IF(A1<0,"无效数值",IF(A1<0.005,"零",IF(A1<0.995,"",TEXT(INT(A1+0.005),"[dbnum2]")&"元")&IF(LEFT(RIGHT(FIXED(A1,2),2),1)="0",IF(RIGHT(FIXED(A1,2),1)="0","",IF(A1>0.995,"零","")),TEXT(LEFT(RIGHT(FIXED(A1,2),2),1),"[dbnum2]")&"角")&IF(RIGHT(FIXED(A1,2),1)="0","整",TEXT(RIGHT(FIXED(A1,2),1),"[dbnum2]")&"分"))),"非数值!")7=IF(ISNUMBER(A1),IF(ROUND(A1,2)<0,"无效数值",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF((INT(ROUND(A1,2)*100)-INT(R OUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&"分"))),"非数值！！！")8=IF(ROUND(A1,2)<0,"无效数值",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&"分")))9=TEXT(INT(A1),"[dbnum2]")&"元"&IF(INT(A1*10)-INT(A1)*10=0,"",TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角")&IF(INT(A1*100)-INT(A1*10)*10=0,"整",TEXT(INT(A1*100)-INT(A1*10)*10,"[dbnum2]")&"分")10=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","","分"))11学会计论坛=IF(ROUND(A1,2)=0,"",IF(ROUND(ABS(A1),2)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[DBN um2]")&"元","")&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]")&"分","整")))12=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]")&"分")))13=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]")&"分")))。