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中怎么将表示金额的阿拉伯数字转换成中文大写1、假设数字在A1单元格，目标单元格公式：=SUBSTITUTE(SUBSTITUTE(IF(IS NUMBER(FIND(".",A1)),TEXT(LEFT(A1,FIND(".",A1)-1),"[dbnum2]")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[dbnum2]")&"角"&TEX T(MID(A1,FIND(".",A1)+2,1),"[dbnum2]")&"分",TEXT(A1,"[dbnum2]")&"元整"),"角分","角整"),"-","负")2、要结果的单元格输入公式=IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(T RUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00" ))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2) ),"[DBNum2]")&"分","整")，A2是数字格。
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]")nascurrencyconstcnumasstring="零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"constcchaasstring="零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"dimsnumasstringdimiaslongif(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)nextFori=0to11去掉多余的零baituRmbdx=Replace(baituRmbdx,mid(ccha,i*2+1,2),mid (ccha,i+26,1))nextifn elsebaituRmbdx=iif(n=0,"零元","溢出")endifendFunction11Functionuppernum(n)nassingle数字大写函数ifn 正负判断="负"endifn=n+0.0001ifint(n*1000)-int(n*100)*10>4thenn=(int(n*100)+1)/100+0.001elsen=int(n*100)/100+0.001endifselectcasencaseis>9999999999999.99uppernum="数据不符"msgbox"金额不能大于9999999999999.99！",vbokonly,"出错提示"caseelseconstcnum="零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"constccha="零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"uppernum=""snum=""s=trim(str(n))Fori=1tolen(s)-1ifmid(s,i,1)"."thensnum=snum+mid(s,i,1)Fori=1tolen(snum)逐位转换uppernum=uppernum+mid(cnum,(mid(snum,i,1))+1,1)+mid (cnum,26-len(snum)+i,1)nextiFori=0to11去掉多余的零uppernum=Replace(uppernum,mid(ccha,i*2+1,2),mid(cch a,i+26,1))nextiendselectif正负判断="负"thenuppernum="负"&uppernumendFunction12Functionjezh(xasRange)ifx>=1thenifint(x)=xorRound(x,2)=int(x)thenjezh=application.worksheetFunction.text(int(x),"[db num2]")&"元"elseifint(x*10)=x*10orint(x*10)=Round(x,2)*10then。
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先选中需要转换的单元格，在格式（或者右击设置单元格格式中）——单元格格式——数据——特殊——右边类型：中文小写、中文大写=NUMBER STRIN G($A$1,1)1=IF(A5=0,"",CONCATENA TE(IF(INT(A5)=0,"",TEXT(INT(A5),"[DBNum2]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)),"[DBNum2]G/通用格式角")),IF(INT(MID(RIGHT(FIXED(A5,2,1),1),1,1))=0,"整",TEXT(INT(MID(RIGHT(FIXED(A5,2,1),1),1,1)),"[DBNum2]G/通用格式分"))))2=IF(A5<0,"負","")&IF(ABS(A5)>1,TEXT(TRUNC(ABS(ROUND(A5,2))),"[DBNum2]")&"元","")&IF(ISERR(FIND(".",ROUND(A5,2))),"",TEXT(RIGHT(TRUNC(ROUND(A5,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A5,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A5,2),3))=".",TEXT(RIGHT(ROUND(A5,2)),"[DBNum2]")&"分","整")3=IF(A5<0,"负","")&IF(TRUNC(ROUND(A5,2))=0,"",TEXT(TRUNC(ABS(ROUND(A5,2))),"[DBNum2]")&"元")&IF(ISERR(FIND(".",ROUND(A5,2))),"",TEXT(RIGHT(TRUNC(ROUND(A5,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A5,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A5,2),3))=".",TEXT(RIGHT(ROUND(A5,2)),"[DBNum2]")&"分","整")4=SUBSTITUTE(SUBSTITUTE(IF(A5<0,"負","")&TEXT(TRUNC(ABS(ROUND(A5,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A5,2))),"",TEXT(RIGHT(TRUNC(ROUND(A5,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A5,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A5,2),3))=".",TEXT(RIGHT(ROUND(A5,2)),"[DBNum2]")&"分",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)),"[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]")&"分")))6=IF(ISNUMB ER(A5),IF(A5<0,"无效数值",IF(A5<0.005,"零",IF(A5<0.995,"",TEXT(INT(A5+0.005),"[dbnum2]")&"元")&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),"[dbnum2]")&"角")&IF(RIGHT(FIXED(A5,2),1)="0","整",TEXT(RIGHT(FIXED(A5,2),1),"[dbnum2]")&"分"))),"非数值!")7=IF(ISNUMB ER(A5),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)*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]")&"分"))),"非数值！！！")8=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]")&"分")))9=TEXT(INT(A5),"[dbnum2]")&"元"&IF(INT(A5*10)-INT(A5)*10=0,"",TEXT(INT(A5*10)-INT(A5)*10,"[dbnum2]")&"角")&IF(INT(A5*100)-INT(A5*10)*10=0,"整",TEXT(INT(A5*100)-INT(A5*10)*10,"[dbnum2]")&"分")10Functi on BAITUR MBDX(ByValn) As String 'n as Curren cyConst cNum As String = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分" Const cCha As String= "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"Dim sNum As StringDim i As LongIf (n <> 0) And (Abs(n) < 10000000000000#) ThensNum = Trim(Str(Int(Abs(n) * 100)))For i = 1 To Len(sNum) '逐位转换BAITUR MBDX= BAITUR MBDX+ Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)NextFor i = 0 To 11 '去掉多余的零BAITUR MBDX= Replac e(BAITUR MBDX, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1)) NextIf n < 0 Then BAITURMBDX= "(负)" + BAITURMBDXElseBAITURMBDX= IIf(n = 0, "零元", "溢出")End IfEnd Functi on11Functi on UpperN um(n) 'n as single '数字大写函数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 IfSelect Case nC ase Is > 9999999999999.99UpperN um = "数据不符"MsgBox "金额不能大于9999999999999.99！", vbOKOnl y, "出错提示"Case ElseConst cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"UpperN 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 pperN um = UpperN um + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)Next iFor i = 0 To 11 '去掉多余的零U pperN um = Replac e(UpperN um, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1)) Next iEnd SelectIf 正负判断= "负" Then UpperN um = "负" & UpperN umEnd Functi on12Functi on JEZH(X As Range)If X >= 1 ThenIf Int(X) = X Or Round(X, 2) = Int(X) ThenJEZH = Applic ation.Worksh eetFu nctio n.Text(Int(X), "[DBNUM2]") & "元"ElseIf Int(X * 10) = X * 10 Or Int(X * 10) = Round(X, 2) * 10 ThenJEZH = Applic ation.Worksh eetFu nctio n.Text(Int(X), "[DBNUM2]") & "元" & Application.Worksh eetFu nctio n.Text(Right(Round(X, 2), 1), "[DBNUM2]") & "角"ElseJEZH = Applic ation.Worksh eetFu nctio n.Text(Int(X), "[DBNUM2]") & "元" & Application.Worksh eetFu nctio n.Text(Left(Right(Round(X, 2), 2), 1), "[DBNUM2]") & "角" & Application.Worksh eetFu nctio n.Text(Right(Round(X, 2), 1), "[DBNUM2]") & "分"End IfElseIf X = 0 ThenJEZH = Applic ation.Worksh eetFu nctio n.Text(Int(X), "[DBNUM2]") & "元"ElseIf X < 1 And X > 0 ThenIf Int(X * 10) = X * 10 ThenJEZH = Applic ation.Worksh eetFu nctio n.Text(Right(X, 1), "[DBNUM2]") & "角"ElseJEZH = Applic ation.Worksh eetFu nctio n.Text(Left(Right(Round(X, 2), 2), 1), "[DBNUM2]") & "角" & Applic ation.Worksh eetFu nctio n.Text(Right(Round(X, 2), 1), "[DBNUM2]") & "分"End IfElseIf Int(X) = X Or Round(Abs(X), 2) = Int(Abs(X)) ThenJEZH = "负" & Applica tion.Worksh eetFu nctio n.Text(Int(Abs(X)), "[DBNUM2]") & "元"ElseIf Int(X * 10) = X * 10 ThenJEZH = "负" & Applic ation.Worksh eetFu nctio n.Text(Int(Abs(X)), "[DBNUM2]") & "元" & Applic ation.W orksh eetFu nctio n.Text(Right(X, 1), "[DBNUM2]") & "角"ElseJEZH = "负" & Applic ation.Worksh eetFu nctio n.Text(Int(Abs(X)), "[DBNUM2]") & "元" & Applica tion.Worksh eetFu nctio n.Text(Left(Right(Round(X, 2), 2), 1), "[DBNUM2]") & "角" & Applic ation.Worksh eetFu nctio n.Text(Right(Round(X, 2), 1), "[DBNUM2]") & "分"End IfEnd IfEnd Functi on。
excel中如何将数字变成大写金额的函数
excel中如何将数字变成大写金额的函数如何在Excel中将数字转化为大写金额在Excel中，我们经常需要将数字转化为大写金额，以便更直观地展示数值。
虽然Excel本身并没有提供直接将数字转化为大写金额的函数，但我们可以通过一些方法来实现这个功能。
本文将介绍两种常用的方法，分别是使用Excel的内置函数和使用自定义宏。
一、使用Excel的内置函数Excel提供了一个内置的函数——“人民币大写”函数，可以将数字转化为大写金额。
下面是使用该函数的步骤：步骤1：打开Excel并选择一个单元格，例如A1，用于输入要转化的数字。
步骤2：在另一个单元格中，例如B1，输入以下公式：=人民币大写(A1)步骤3：按下回车键，即可将A1单元格中的数字转化为大写金额。
需要注意的是，“人民币大写”函数只能将数字转化为中文大写金额，而不能转化为其他语言的大写金额。
如果需要转化为其他语言的大写金额，可以考虑使用自定义宏的方法。
二、使用自定义宏自定义宏是一种基于VBA（Visual Basic for Applications）语言的编程方式，可以在Excel中实现各种自定义功能。
下面是使用自定义宏将数字转化为大写金额的步骤：步骤1：按下Alt+F11键，打开VBA编辑器。
步骤2：在VBA编辑器中，选择“插入”菜单，然后选择“模块”。
步骤3：在新建的模块中，输入以下VBA代码：```Function ConvertToChineseNumber(ByVal MyNumber)Dim MyCurrency, DecimalPlace, CountReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "' Convert MyNumber to String, trimming extra spaces.MyNumber = Trim(CStr(MyNumber))' Check for valid input.If MyNumber = "" ThenConvertToChineseNumber = ""Exit FunctionEnd If' Convert MyNumber to Currency figures.ReDim DecimalPlace(9) As StringDecimalPlace(2) = " Hundred "DecimalPlace(3) = " Thousand "DecimalPlace(4) = " Million "DecimalPlace(5) = " Billion "' Convert MyNumber to Currency figures.MyNumber = Trim(CStr(MyNumber))' Remove leading zeros' DecimalPlace = GetVal(Trim(Mid(MyNumber, DecimalPlace + 1, 2)))Count = 1Do While MyNumber <> ""ReDim Preserve MyCurr(Count) As StringCount = Count + 1MyCurr(Count - 1) = GetTens(Trim(Mid(MyNumber, 1, 2)), MyNumber)If Len(MyNumber) > 2 ThenMyNumber = Trim(Mid(MyNumber, 3))ElseMyNumber = ""End IfLoopCount = Count - 1For DecimalPlace = Count To 1 Step -1MyCurrency = MyCurrency & " " & MyCurr(DecimalPlace) If DecimalPlace = 1 Then' -- If place is ten thousand and greater than 0 set nother name to RupeesIf Len(MyNumber) = 1 Then MyCurr(1) = " and " & MyCurr(1)MyCurrency = MyCurrency & Place(DecimalPlace)End IfNext DecimalPlaceConvertToChineseNumber = MyCurrencyEnd FunctionFunction GetTens(TensText, ByVal Amount)Dim Result As StringResult = "" ' Null out the temporary function value.If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...Select Case Val(TensText)Case 10: Result = "Ten"Case 11: Result = "Eleven"Case 12: Result = "Twelve"Case 13: Result = "Thirteen"Case 14: Result = "Fourteen"Case 15: Result = "Fifteen"Case 16: Result = "Sixteen"Case 17: Result = "Seventeen"Case 18: Result = "Eighteen"Case 19: Result = "Nineteen"Case ElseEnd SelectElse ' If value between 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "Twenty "Case 3: Result = "Thirty "Case 4: Result = "Forty "Case 5: Result = "Fifty "Case 6: Result = "Sixty "Case 7: Result = "Seventy "Case 8: Result = "Eighty "Case 9: Result = "Ninety "Case ElseEnd SelectResult = Result & GetDigit _(Right(TensText, 1)) ' Retrieve ones place. End IfGetTens = ResultEnd FunctionFunction GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = "One"Case 2: GetDigit = "Two"Case 3: GetDigit = "Three"Case 4: GetDigit = "Four"Case 5: GetDigit = "Five"Case 6: GetDigit = "Six"Case 7: GetDigit = "Seven"Case 8: GetDigit = "Eight"Case 9: GetDigit = "Nine"Case Else: GetDigit = ""End SelectEnd Function```步骤4：按下Ctrl+S保存宏，并关闭VBA编辑器。
excel数字变大写的函数
excel数字变大写的函数Excel 是一款功能强大的电子表格软件，广泛应用于商业、财务、教育等领域。
在日常使用中，我们经常会遇到将数字转换为大写的需求，例如将金额数字转换为大写金额。
Excel 提供了一些函数来实现这个需求，本文将介绍如何使用这些函数来将数字转换为大写。
在Excel 中，有几个函数可以帮助我们将数字转换为大写。
其中最常用的是“DOLLAR”函数。
这个函数的语法是“DOLLAR(number, decimals)”。
“number”是需要转换的数字，“decimals”是保留的小数位数。
例如，如果我们要将数字12345.67转换为大写金额，可以使用以下公式：=DOLLAR(12345.67, 2)这个公式将返回“Twelve Thousand Three Hundred Forty-Five and 67/100”。
通过设置“decimals”的值，我们可以控制保留的小数位数。
除了“DOLLAR”函数，Excel 还提供了“TEXT”函数来将数字转换为文本。
这个函数的语法是“TEXT(value, format_text)”。
“value”是需要转换的数字，“format_text”是转换的格式。
例如，如果我们要将数字12345.67转换为大写金额，可以使用以下公式：=TEXT(12345.67, "[$CNY]#,##0.00")这个公式将返回“人民币贰万叁仟肆佰伍拾元陆角柒分”。
通过设置“format_text”的值，我们可以控制转换的格式，例如设置为“[$USD]#,##0.00”可以转换为美元格式。
除了上述两个函数，Excel 还提供了一个内置的宏函数“PROPER”来将数字转换为大写。
这个函数的语法是“PROPER(text)”。
“text”是需要转换的文本。
例如，如果我们要将数字12345.67转换为大写金额，可以使用以下公式：=PROPER("Twelve Thousand Three Hundred Forty-Five and 67/100")这个公式将返回“Twelve Thousand Three Hundred Forty-Five And 67/100”。
Excel表中小写金额直接转换成大写金额的公式
Excel表中小写金额直接转换成大写金额的公式：一、=IF(OR(A1<0,A1=""),"",IF(VALUE(LEFT(A1,1))=0,"",NUMBERSTRIN G(INT(A1),2)&"元")&IF(ISERROR(FIND(".",A1)),"整",IF(VALUE(MID(A1,FIND(".",A1)+1,1))=0,"零",IF(ISERROR(FIND(".",A1)),"",NUMBERSTRING(MID(A1,FIND(".", A1)+1,1),2)&"角")))&IF(ISERROR(FIND(".",A1)),"",IF(LEN(ROUND(A1,2))=(FIND( ".",A1)+2),NUMBERSTRING(MID(ROUND(A1,2),FIND(".",A1)+2,1),2 )&"分","")))&IF(ISERROR(FIND(".",A1)),"","")二、假定你要在B1输入阿拉佰数字,C1转换成中文大写金额(含元角分),请在C1单元格输入如下公式:=SUBSTITUTE(SUBSTITUTE(IF(-RMB(B1),IF(B1>0,,"负")&TEXT(INT(ABS(B1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(B1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(B1^2<1,,"零")),"零分","整")三、用公式就可以，我不懂做会计的如何用大写表示如128.40这样的角不为0但分为0的值，是“壹佰贰拾捌元肆角整”还是“壹佰贰拾捌元肆角”？如果是“壹佰贰拾捌元肆角”，请用这个公式：=TEXT(INT(B2),"[DBNUM2]")&"元"&IF(INT(B2)=B2,"整",(IF(INT(B2*10)-INT(B2)*10>0,TEXT(INT(B2*10)-INT(B2)*10,"[ DBNUM2]")&"角","零")&IF(B2*100-INT(B2*10)*10>0,TEXT(B2*100-INT(B2*10)*10,"[db num2]")&"分","")))如果是“壹佰贰拾捌元肆角整”，请用这个公式：=TEXT(INT(B2),"[DBNUM2]")&"元"&(IF(INT(B2*10)-INT(B2)*10>0,TEXT(INT(B2*10)-INT(B2)*10,"[ DBNUM2]")&"角",IF(B2*100-INT(B2*10)*10>0,"零",""))&IF(B2*100-INT(B2*10)*10>0,TEXT(B2*100-INT(B2*10)*10, "[dbnum2]")&"分","整"))说明：1、将以上公式中的B2换成你要换算的值或对应的单元格。
excel金额转换大写的函数
excel金额转换大写的函数标题：Excel中使用函数实现金额数字转换为大写汉字的方法在日常办公和财务管理中，我们经常需要将阿拉伯数字形式的金额转换为大写汉字，以便于财务凭证、发票等正式文件的填写。
Microsoft Excel 提供了一项强大的功能，能够帮助用户自动完成这一转换过程。
本文主要介绍如何在Excel中运用函数实现金额数字转换为大写。
---**一、函数名称及用途**在Excel中，用于将数字金额转换为中文大写的内置函数是“TEXT”函数，结合特定的格式代码“[>=$99995]0,"元"万"；[>99]0,"元"；0"元""，可以轻松实现这一功能。
**二、函数语法**`=TEXT(数值, "格式代码")`这里的“数值”是指你需要转换的金额单元格，例如A1；“格式代码”即上述的特殊代码，表示按照人民币的大写格式进行转换。
**三、具体应用**假设A1单元格存储了我们需要转换的数字金额，那么在B1单元格输入以下公式：`=TEXT(A1, "[>=$99995]0,\"元\"万\";[>99]0,\"元\";0\"元\"")`此函数的工作原理是，当金额大于等于10000时，会以“元”和“万”为单位进行转换，如123456元会被转换为“十二万三千四百五十六元”。
对于不足万元的金额，也会正确转换为相应的汉字大写金额。
**四、注意事项**1. 此函数仅适用于正数金额，如果涉及到负数或零的处理，请根据实际情况进行调整。
2. 在实际应用中，可能需要根据不同的金额层级（如亿元、千万元）进一步细化格式代码。
3. 转换结果为文本格式，若需参与计算，需先转换回数值格式。
通过熟练掌握并运用Excel的TEXT函数，我们可以大大提高数据处理效率，确保金额信息准确无误地以符合规范的大写形式呈现。
EXCEL金额大小写转换公式大全
EXCEL金额大小写转换公式大全在Excel中，可以使用以下公式将金额从数字形式转换为大写形式：1.数字转换为大写金额：=IF(A1<0,"负","")&NUMBERTEXT(ABS(A1))这个公式将数字转换为大写金额。
如果数字为负数，则在转换后的金额前面加上“负”字样。
2.人民币大写金额：=TEXT(NUMBERTEXT(A1),"[DBNum2][$￥-804]")&"整"此公式将数字转换为人民币大写金额，并在金额后面加上“整”字样。
3.美元大写金额：=TEXT(A1,"[$-409]0")&"美元整"此公式将数字转换为美元大写金额，并在金额后面加上“美元整”字样。
4.英文大写金额：=PROPER(TEXT(A1,"[ENG11A]General Number")) & " DOLLARS"此公式将数字转换为英文大写金额，并在金额后面加上“DOLLARS”。
5.澳大利亚元大写金额：=TEXT(A1,"[$-C09]0") & " Australian Dollars"此公式将数字转换为澳大利亚元大写金额，并在金额后面加上“Australian Dollars”。
6.日元大写金额：=TEXT(A1,"[$¥-411]")&"日元整"此公式将数字转换为日元大写金额，并在金额后面加上“日元整”。
7.欧元大写金额：=TEXT(A1,"[$€-40C]")&"欧元整"此公式将数字转换为欧元大写金额，并在金额后面加上“欧元整”。
8.加拿大元大写金额：=TEXT(A1,"[$C0A]") & " Canadian Dollars"此公式将数字转换为加拿大元大写金额，并在金额后面加上“Canadian Dollars”。
excel人民币大写函数公式
excel人民币大写函数公式
Excel提供了一种方便的方式来将人民币金额转换为大写格式。
这种功能可以通过使用一个特殊的函数来实现，称为“人民币大写函数公式”。
这个函数可以将任何金额转换为中文数字格式，并将其显示在单元格中，使其更易于阅读和理解。
要使用这个函数，首先需要在工作表中选择一个空单元格。
然后，在该单元格中输入以下公式：=人民币大写(金额)。
在这个公式中，“金额”是要转换的数字，可以是任何数字，包括小数。
例如，要将1500元转换为大写，可以输入以下公式：=人民币大写(1500)。
当你按下“Enter”键时，Excel将自动将该数字转换为中文数字格式，并将其显示在单元格中。
例如，输入1500元，Excel将显示“壹仟伍佰元整”。
人民币大写函数公式可以在任何工作表中使用，无论是在个人财务管理工作表中，还是在商业会计工作表中。
这个功能可以帮助用户更好地理解他们的财务数据，并更好地规划他们的财务未来。
- 1 -。
巧用EXCEL公式将数字转换成为货币大写
巧用EXCEL公式将数字转换成为货币大写比如说：在A1单元格里的数字是：￥15275.00；我想转换成：人民币零拾壹万伍仟贰佰柒拾伍元零角零分。
而且“拾”、“万”、“仟”、“佰”、“拾”、“元”、“角”、“分”的是固定存在的。
并且在“零拾”前显示“人民币”或者“[敏感词语]”的中文字。
直接在你想要显示大写数字的单元格，输入以下公式就大功告成了。
复制，粘贴，OK以下为三种方法，只要贴一种就行了哟。
=TEXT(A1*100,"人民币0拾0万0仟0佰0拾0元0角0分[dbnum2]")无固定显示“人民币”时，=IF(A1<0,"无效数值",IF(A1=0,"",IF(A1<1,"",TEXT(INT(A1),"[dbnum2]")&"元")&IF(INT(A1*10)-INT(A1)*10=0,IF(INT(A1)*(INT(A1*100)-INT(A1*10)*10)=0,"","零"),IF(AND((INT(A1)-INT(A1/10)*10)=0,INT(A1)>0),"零"&TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角",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]")&"分")))=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[>0][d bnum2];[<0]负[dbnum2];;")&TEXT(RIGHT(FIXED(A1),2),"元[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"元整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")。
excel小写数值如何转换为大写
excel小写数值如何转换为大写篇一：Excel表中小写金额直接转换成大写金额的公式Excel表中小写金额直接转换成大写金额的公式：一、=IF(OR(A1零",IF(VALUE(MID(A1,FIND(".",A1)+1,1))=0,"",IF(ISERROR(FIND(".",A1)),"",NUMBERSTRING(MID(A1,FIND(".",A1)+1,1) ,2)&"角")))&IF(ISERROR(FIND(".",A1)),"",IF(LEN(ROUND(A1,2))=(FIND(".",A1)+2), NUMBERSTRING(MID(ROUND(A1,2),FIND(".",A1)+2,1),2)&"分","")))&IF(ISERROR(FIND(".",A1)),"","")二、假定你要在B1输入阿拉佰数字,C1转换成中文大写金额(含元角分),请在C1单元格输入如下公式:=SUBSTITUTE(SUBSTITUTE(IF(-RMB(B1),IF(B1>0,,"")&TEXT(INT(ABS(B1)+ 0.5%),"[dbnum2]G/通用格负式元;;")&TEXT(RIGHT(RMB(B1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(B1三、用公式就可以，我不懂做会计的如何用大写表示如128.40这样的角不为0但分为0的值，是“壹佰贰拾捌元肆角整”还是“壹佰贰拾捌元肆角”？如果是“壹佰贰拾捌元肆角”，请用这个公式：=TEXT(INT(B2),"[DBNUM2]")&"元"&IF(INT(B2)=B2,"整",(IF(INT(B2*10)-INT(B2)*10>0,TEXT(INT(B2*10)-INT(B2)*10,"[DBNUM2] ")&"角","零")&IF(B2*100-INT(B2*10)*10>0,TEXT(B2*100-INT(B2*10)*10,"[dbnum2] ")&"分","")))如果是“壹佰贰拾捌元肆角整”，请用这个公式：=TEXT(INT(B2),"[DBNUM2]")&"元"&(IF(INT(B2*10)-INT(B2)*10>0,TEXT(INT(B2*10)-INT(B2)*10,"[DBNUM2 ]")&"角",IF(B2*100-INT(B2*10)*10>0,"零",""))&IF(B2*100-INT(B2*10)*10>0,TEXT(B2*100-INT(B2*10)*10,"[dbnu m2]")&"分","整"))说明：1、将以上公式中的B2换成你要换算的值或对应的单元格。
excel金额大小写转换函数
excel金额大小写转换函数
Excel中有一个非常有用的函数，可以将数字金额转换为中文大写金额，这个函数就是“大写金额”函数。
该函数可以让你在Excel 中快速地将数字金额转换为大写的中文金额，并可以自动将结果显示在相应的单元格中。
使用该函数非常简单，只需要在需要转换的单元格中输入函数，然后按下回车键即可。
大写金额函数的基本语法如下：
=大写金额(数字)
其中“数字”参数是需要转换的金额，可以是一个单元格引用或直接输入的数值。
例如，如果要将1000元转换为大写金额，可以在单元格中输入以下公式：
=大写金额(1000)
Excel会自动计算并显示结果“壹仟元整”。
此外，大写金额函数还支持自定义数字和货币单位的方式，可以根据需要进行相应的设置。
例如，可以使用以下公式将数字和货币单位分别设置为单元格A1和B1中的值：
=大写金额(A1,B1)
这样就可以根据需要将转换结果显示为“一千美元整”或“壹仟元整”等。
总之，大写金额函数是Excel中非常实用的一个功能，可以帮助你快速、准确地将数字金额转换为中文大写金额，提高工作效率。
- 1 -。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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，
TEXT(LEFT(RIGHT(TEXT(A1，“.00”)，2))，“[DBNum2]”)&“角”，“”)&IF(RIGHT(TEXT(A1，“.00”))*1》0，TEXT(RIGHT(TEXT(A1，“.00”))，“[DBNum2]”)&“分”，“整”)))
我用不同的数值对这三个公式进行了一番测试，都达到了我的要求，至少到目前为止还没有发现上述公式存在着什么错误。
上述公式对负数的处理采取了不同的方法。
公式一和公式二对负数是在其前部加上一个“负”字，而公式三则是按正数进行处理。
我比较推崇公式三的方式，不是还有条件格式可以设置吗？若是负数就用条件格式来变为红色。
我不准备在此对上述公式进行分析解说。
撰写本文的目的是我也想自己来“组装”一个所谓的通用公式。
我只所以说是“组装”而不是叫什么“开发”或者是“拼凑”，是因为EXCEL 的函数现成地摆在了那里，使用时就是为了达到某种目的，按照其固有的规则，将其进行有机的组合，可谓“组装”。
但是在这个过程中，也是要开动脑筋的，并非是随随便便“拼凑”就能成功的。
本文的目的就是想将我在“组装”公式时的思路展现出来。
若用程序设计语言(比如用C语言)来写一个人民币数字金额转大写金额会怎样考虑呢？我想每一位数字都要考虑到。
但在EXCEL中，单元格格式中有一个“特殊”格式，里面就有将小写数字转换为大写数字的格式。
但要注意的是，这里转换的是数字而不是金额。
所以转换出来后并不存在“元”、“角”、“分”、“整”等在大写金额中出现的字。
但是，“元”只出现在整数部分的后面，而小数部分只有角分两位。
这样
只要利用EXCEL的“特殊”格式将数据分为整数部分、角位和分位三个部分来处理就行了。
处理的顺序是先整数，再角位、再分位。
由于要分三个部分分别处理，然后根据情况分别与“元”，“角”，“分”及“整”相连接。
连接的方式可以使用CONCATENATE()函数，如公式二，也可以使用连接符&。
而用&来连接，公式结构似乎会相对简单清晰一些，所以我选择了用&来连接。
虽然对问题进行了分解，但需要考虑的细节相当多。
若单元格为0或者空，输出空，避免出现“零”、“零元”等字样。
对非数字字符不进行处理，使用EXCEL自身的错误提示。
对负数按正数处理，再用条件格式将其转换为红色，不拟采用“负”的形式。