EXCEL-案例-自动转换中文大写货币写法

怎样在EXCEL中数字转人民币大写1.第一种方法：通过函数嵌套实现数字转人民币大写形式的公式是：=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*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]")&"分")数字转人民币大写形式的公式是：="大写金额："&IF(TRIM(B1)="","",IF(B1=0,"","人民币"&IF(B1<0,"负",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B 1))*10,"[dbnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<0.1,,"零")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100 -INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))12508.34 大写金额：壹万贰仟伍佰零捌元叁角肆分数字转人民币大写形式的公式是：="大写金额："&IF(TRIM(B1)="","",IF(B1=0,"",""&IF(B1<0,"负",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B 1))*10,"[dbnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<0.1,,"零")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100 -INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))这类转换的格式没有“人民币”字样1.第二种方法：通过宏VBA自定义函数实现第一步：按下ALT+F11组合键，或者是单击工具——宏——Visual Basic 编辑器，进入Visual Basic编程环境，单击“插入” 菜单——模块，复制下面代码，保存，退出关闭。

把单元格中数字快速转化为中文大写的方法将单元格中数字快速转化为中文大写的方法介绍在Excel中，有时我们需要将数字转化为中文大写，例如将12345转化为一万二千三百四十五。

本文将介绍几种快速将单元格中数字转化为中文大写的方法。

方法一：使用Excel自带函数Excel自带了一个函数=TEXT(value, "[$-0804][DBNum2]G/通用格式")，可以将数字转化为中文大写形式。

使用步骤： 1. 在一个空白单元格中输入=TEXT(A1, "[$-0804][DBNum2]G/通用格式")，其中A1为要转化的数字所在的单元格。

2. 按下Enter键即可看到转化后的中文大写数字。

方法二：使用VBA宏如果需要频繁使用该功能，可以使用VBA宏将其封装为一个函数，以便更加方便地调用。

使用步骤： 1. 按下ALT + F11打开VBA编辑器。

2. 在VBA编辑器中，选择要添加宏的工作簿。

3. 在模块中，插入以下VBA代码：Function ChineseNumber(ByVal Value As Variant) As S tringDim MyNumber As CurrencyDim DecimalPlace As IntegerDim Count As IntegerDim DecimalSeparator As StringDim Temp As StringDim DecimalValue As StringDim DecimalWords As StringDim ReturnValue As StringDecimalSeparator = "点"ReDim Place(9) As StringPlace(2) = "十"Place(3) = "百"Place(4) = "千"Place(5) = "万"Place(6) = "十"Place(7) = "百"Place(8) = "千"Place(9) = "亿"' Convert MyNumber to string, separate integral and decimalMyNumber = Trim(CStr(Value))DecimalPlace = InStr(MyNumber, ".")If DecimalPlace > 0 ThenDecimalValue = GetTens(Left(Mid(MyNumber, Decima lPlace + 1) & "00", 2))MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End IfCount = 1Do While MyNumber <> ""Temp = GetHundreds(Right(MyNumber, 3))If Temp <> "" Then ReturnValue = Temp & Place(Co unt) & ReturnValueIf Len(MyNumber) > 3 ThenMyNumber = Left(MyNumber, Len(MyNumber) - 3) ElseMyNumber = ""End IfCount = Count + 1LoopSelect Case ReturnValueCase ""ReturnValue = "零"Case "一十"ReturnValue = "十"End SelectChineseNumber = ReturnValue & DecimalSeparator & Dec imalValueEnd FunctionFunction GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" & MyNumber, 3)' Convert the hundreds place.If Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) & "百"End If' Convert the tens and ones place.If Mid(MyNumber, 2, 1) <> "0" ThenResult = Result & GetTens(Mid(MyNumber, 2))ElseResult = Result & GetDigit(Mid(MyNumber, 3))End IfGetHundreds = ResultEnd FunctionFunction GetTens(TensText)Dim Result As StringResult = "" ' Null out the temporary funct ion value.If Val(Left(TensText, 1)) = 1 Then ' If value betw een 10-19...Select Case Val(TensText)Case 10: Result = "十"Case 11: Result = "十一"Case 12: Result = "十二"Case 13: Result = "十三"Case 14: Result = "十四"Case 15: Result = "十五"Case 16: Result = "十六"Case 17: Result = "十七"Case 18: Result = "十八"Case 19: Result = "十九"Case ElseEnd SelectElse ' If value betw een 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "二十"Case 3: Result = "三十"Case 4: Result = "四十"Case 5: Result = "五十"Case 6: Result = "六十"Case 7: Result = "七十"Case 8: Result = "八十"Case 9: Result = "九十"Case ElseEnd SelectResult = Result & GetDigit _(Right(TensText, 1)) ' Retrieve ones place. End IfGetTens = ResultEnd FunctionFunction GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = "一"Case 2: GetDigit = "二"Case 3: GetDigit = "三"Case 4: GetDigit = "四"Case 5: GetDigit = "五"Case 6: GetDigit = "六"Case 7: GetDigit = "七"Case 8: GetDigit = "八"Case 9: GetDigit = "九"Case Else: GetDigit = ""End SelectEnd Function4.按下CTRL + S保存宏。

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：将小写数字转换成大写中文：右击需要转换的单元格，在弹出的快捷菜单中选择“设置单元格格式”，然后在“数字”选项卡中选择“特殊”，在“类型”中选择"中文大写数字"，这时候原来的数字为12345，在示例里已变成大写的"壹万贰仟叁佰肆拾伍"，然后按确定即可。

金额转换大写步骤2：右击需要转换的单元格，在弹出的快捷菜单中选择“设置单元格格式”，然后在“数字”选项卡中选择“自定义”，在“类型”中写入【[DBNum2][$-804]G/通用格式"元""整"】，同样，在示例里已变成大写的"壹万贰仟叁佰肆拾伍"，然后按确定即可。

金额转换大写步骤1：=" 人民币："&IF((SUM(E2:E4)-INT(SUM(E2:E4)))=0,TEXT(SUM(E2:E4),"[DBNUM2]")&"元整",IF(INT(SUM(E2:E4)*10)-SUM(E2:E4)*10=0,TEXT(INT(SUM(E2:E4)),"[DBNUM2]")&"元"&TEXT((INT(SUM(E2:E4)*10)-INT(SUM(E2:E4))*10),"[DBNUM2]")&"角整",TEXT(INT(SUM(E2:E4)),"[DBNUM2]")&"元"&IF(INT(SUM(E2:E4)*10)-INT(SUM(E2:E4))*10=0,"零",TEXT(INT(SUM(E2:E4)*10)-INT(SUM(E2:E4))*10,"[DBNUM2]")&"角")&TEXT(RIGHT(SUM(E2:E4),1),"[DBNUM2]")&"分"))&"(￥"&SUM(E2:E4)&"元)"前后加插了字符串的方法，其中SUM(E2:E4)是一个求合函数，请按实际要求替换为某个单元格或另外的内容。

excel表人民币大写公式
首先，在单元格输入【=NUMBERSTRING（F2，2）】（F2代表需要转换成大写数值的单元格），确定即可；其次，选中需转换的单元格，鼠标右键单击，依次选择【设置单元格格式】-【数字】-【特殊】-【中文大写数字】，【确定】即可。

方法一
用【NUMBERSTRING】公式，如：将F2单元格的4500转换成大写，则在G2输入公式
【=NUMBERSTRING（F2，2）】，然后点击空白单元格或按键盘上【回车】键就能得出：肆仟伍佰；
方法二
在表格中输入数值，选中想要转化为大写的数字单元格，鼠标右键选择【设置单元格格式】，在弹出来的设置对话框选择第一排的【数字】，分类中找到【特殊】，选择【中文大写数字】，点击【确定】就可以转换成大写。

excel自动生成大写元整的函数
Excel中有一个函数可以将数字转换成大写元整的形式，即人民币的大写形式。

这个函数叫做“人民币大写”函数，其语法为：=人民币大写(金额)。

其中，“金额”可以是单元格引用或数字。

此函数可以用于财务报表、发票等需要将数字转换成大写元整形式的场合。

使用该函数可以节省手动输入大写元整的时间，同时也避免了误差。

举个例子：如果要将金额1000转换成大写元整的形式，可以在任意单元格输入“=人民币大写(1000)”或者“=人民币大写(A1)”（假设A1单元格里是1000），然后按下回车键即可在当前单元格中显示“壹仟元整”。

除了基本的大写元整形式外，该函数还可以自定义前缀、后缀，以及小数部分的转换方式。

具体语法如下：
=人民币大写(金额, [整数前缀], [整数后缀], [小数前缀], [小数后缀], [小数转换方式])
其中，“整数前缀”、“整数后缀”、“小数前缀”、“小数后缀”可以是任意文字，用于自定义格式。

而“小数转换方式”则可以指定小数部分的转换方式，可选值为0、1、2、3，分别表示四舍五入、向上取整、向下取整、忽略小数部分。

例如，如果要将金额1000转换成“人民币壹仟圆整”的形式，可以输入“=人民币大写(1000, '人民币', '圆整')”，或者“=人民币大写(A1, '人民币', '圆整')”（假设A1单元格里是1000）。

总之，通过这个函数，我们可以非常方便地将数字转换成大写元整的形式，提高工作效率，减少错误率。

Excel-VBA自定义函数将人民币数字转换为大写应用场景财务报表中将人民币数字转换为大写知识要点1：Round(单元格, 2)返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果2：Range.Text 属性返回或设置指定对象中的文本。

String 型，只读3：[DBnum2] 格式函数, 数字转中文大写Function 大写(单元格 As String) As StringApplication.VolatileDim Bum, rmbsIf Len(单元格) = 0 Then 大写 = ''If 单元格 = 0 Then 大写 = '零元整': Exit Functionrmbs = Replace(Replace(Application.Text(Round(单元格, 2), '[DBnum2]'), '.', '元'), '-', '负')rmbs = IIf(Left(Right(rmbs, 3), 1) = '元', Left(rmbs, Len(rmbs) - 1) & '角' & Right(rmbs, 1) & '分', IIf(Left(Right(rmbs, 2), 1) = '元', rmbs & '角', IIf(rmbs = '零', '', rmbs & '元整')))rmbs = Replace(Replace(rmbs, '零元', ''), '零角', '') '将零元零角转换为空文本大写 = rmbsEnd Function。

鉴于本身提供将数字转换为大写表示地功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，暂时找到了三种实现途径，经过测试均功能正常，还有一种是在书上找到地，懒得进来了，反正也差不多了.方法，通过在表格框（例如在“”单元）中直接输入以下公式：(<,"金额为负无效",(((""),"(人民币)零元",(<,"(人民币)",((),"[](人民币)通用格式")"元"))))(((*)()*),((*)(*)*,"","零"),(((*)()*,"[]")"角"))(((*)(*)*),"整",(((*)(*)*),"[]")"分") 个人收集整理勿做商业用途然后在“”中输入数字，就可看到效果.方法，通过（宏）输入转换公式: 点击菜单“工具”>“宏”>“编辑器”,在编辑器窗口中，点击菜单“插入”>“模块”，在出现地窗口中输入以下内容：个人收集整理勿做商业用途( ) ' 人民币中文大写函数"分角元拾佰仟万拾佰仟亿拾佰仟万""壹贰叁肆伍陆柒捌玖""整零元零零零万零零零亿零零零万"< "（负）"((), "") *> : "数字超出转换范围!!":: "零元零分":(())()' 数字转换过程((, , ))<> ' 非零数字转换(, , ) (, , )' 数字零地转换(, ) <> "零"(, , )' 特殊数位转换(, () ) (, , ),(, () ) (, , ) "零"(, () , ) <> "亿"(, () ) (, , ) "零""(人民币)" ()个人收集整理勿做商业用途然后切换回,在“”单元中输入数字，在“”单元中输入：“()”，就可看到效果.个人收集整理勿做商业用途方法，同样是通过公式，方法同上，公式如下：( ) ',"" '定义位置代码"" '定义汉字缩写"零壹贰叁肆伍陆柒捌玖拾佰仟萬億圆整角分" '定义大写汉字(, ".") > (, (, ".") )个人收集整理勿做商业用途() > "数目太大，无法换算！请输入一亿亿以下地数字", , "错误提示": '只能转换一亿亿元以下数目地货币！个人收集整理勿做商业用途(, "") '格式化货币""()(, , ) (, () , )(, ) """" '***元整((, ), ) "" (, ) "" '*元*角*分(, "", "") '避免零千(如：肆萬零千零贰佰)(, "", "") '避免零百(如：肆萬壹千零佰)(, "", "") '避免零十(如：贰佰零拾零肆)个人收集整理勿做商业用途<> (, "", "")(, "", "") '避免双零(如：壹仟零零肆)(, "", "") '避免零億(如：億贰佰壹十零億)(, "", "") '避免零萬(如：萬贰佰壹十零萬)(() (, ) "", (, () ), ) '避免壹十(如：壹拾肆；壹拾)(() , (, ".", ""), (, ".", ".")) '避免零元(如：贰拾零圆；零圆壹角贰分)个人收集整理勿做商业用途(, (, , ), (, , )) '大写汉字"(人民币)"个人收集整理勿做商业用途切换回,在“”单元中输入数字，在“”单元中输入：“()”，就可看到效果.个人收集整理勿做商业用途实现地效果比较如下：(人民币)壹仟贰佰叁拾肆元伍角整直接公式(人民币)壹仟贰佰叁拾肆元伍角整()(人民币)壹仟贰佰叁拾肆圆伍角零分()。

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中转换人民币大写（公式一）本公式采用IF、ABS、TEXT、INT函数结合国标数据[DBNum2]利用连接符&，严密组合，完成对指定单元格的阿拉伯数字金额数值转换成中文大写，完全符合各种情形的数值转换。

例如：将单元格b6输入如数值1000.2元，在b7单元格输入以下红字：=IF(B6<0,"负","")&IF((ABS(B6))<0.1,(TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")& "分"),IF((ABS(B6))<1,(TEXT(INT((ABS(B6))*10)-INT((ABS(B6)))*10,"[DBNum2]")&"角")&IF((INT((ABS(B6))*100)-INT((ABS(B6))*10)*10)=0,"整",(TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分")),IF((ABS(B6))>=1,TEXT(INT((ABS(B6))),"[DBNum2]")&"元"&IF((INT((ABS(B6))*10)-INT((ABS(B6)))*10)=0,"",TEXT(INT((ABS(B6))*10)-INT((ABS(B 6)))*10,"[DBNum2]")&"角")&IF((INT((ABS(B6))*100)-INT((ABS(B6))*10)*10)=0,"整",IF((INT((ABS(B6))*10)-INT((ABS(B6)))*10)=0,"零"&TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分",TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分")))),则b7单元格显示壹仟元贰角整；如果公式前连接“人民币”，即b7单元格中输入=”人民币”&IF(B6<0,"负","")&IF((ABS(B6))<0.1,(TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")& "分"),IF((ABS(B6))<1,(TEXT(INT((ABS(B6))*10)-INT((ABS(B6)))*10,"[DBNum2]")&"角")&IF((INT((ABS(B6))*100)-INT((ABS(B6))*10)*10)=0,"整",(TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分")),IF((ABS(B6))>=1,TEXT(INT((ABS(B6))),"[DBNum2]")&"元"&IF((INT((ABS(B6))*10)-INT((ABS(B6)))*10)=0,"",TEXT(INT((ABS(B6))*10)-INT((ABS(B 6)))*10,"[DBNum2]")&"角")&IF((INT((ABS(B6))*100)-INT((ABS(B6))*10)*10)=0,"整",IF((INT((ABS(B6))*10)-INT((ABS(B6)))*10)=0,"零"&TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分",TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分")))),,则b7单元格显示人民币壹仟元贰角整（公式二）本公式采用IF、ABS、TEXT、TRUNC、ISERR、FIND、RIGHT、LEFT、ROUND 函数结合国标数据[DBNum2]利用连接符&，严密组合，完成对指定单元格的阿拉伯数字金额数值转换成中文大写，完全符合各种情形的数值转换。