EXCEL-案例-自动转换中文大写货币写法
怎样在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财务小技巧--人民币数字金额转汉字大写公式
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金额转大写的公式用法，供大家参考。
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表人民币大写公式
excel表人民币大写公式
首先，在单元格输入【=NUMBERSTRING（F2，2）】（F2代表需要转换成大写数值的单元格），确定即可；其次，选中需转换的单元格，鼠标右键单击，依次选择【设置单元格格式】-【数字】-【特殊】-【中文大写数字】，【确定】即可。
方法一
用【NUMBERSTRING】公式，如：将F2单元格的4500转换成大写，则在G2输入公式
【=NUMBERSTRING（F2，2）】，然后点击空白单元格或按键盘上【回车】键就能得出：肆仟伍佰；
方法二
在表格中输入数值，选中想要转化为大写的数字单元格，鼠标右键选择【设置单元格格式】，在弹出来的设置对话框选择第一排的【数字】，分类中找到【特殊】，选择【中文大写数字】，点击【确定】就可以转换成大写。
excel自动生成大写元整的函数
excel自动生成大写元整的函数
Excel中有一个函数可以将数字转换成大写元整的形式，即人民币的大写形式。
这个函数叫做“人民币大写”函数，其语法为：=人民币大写(金额)。
其中，“金额”可以是单元格引用或数字。
此函数可以用于财务报表、发票等需要将数字转换成大写元整形式的场合。
使用该函数可以节省手动输入大写元整的时间，同时也避免了误差。
举个例子：如果要将金额1000转换成大写元整的形式，可以在任意单元格输入“=人民币大写(1000)”或者“=人民币大写(A1)”（假设A1单元格里是1000），然后按下回车键即可在当前单元格中显示“壹仟元整”。
除了基本的大写元整形式外，该函数还可以自定义前缀、后缀，以及小数部分的转换方式。
具体语法如下：
=人民币大写(金额, [整数前缀], [整数后缀], [小数前缀], [小数后缀], [小数转换方式])
其中，“整数前缀”、“整数后缀”、“小数前缀”、“小数后缀”可以是任意文字，用于自定义格式。
而“小数转换方式”则可以指定小数部分的转换方式，可选值为0、1、2、3，分别表示四舍五入、向上取整、向下取整、忽略小数部分。
例如，如果要将金额1000转换成“人民币壹仟圆整”的形式，可以输入“=人民币大写(1000, '人民币', '圆整')”，或者“=人民币大写(A1, '人民币', '圆整')”（假设A1单元格里是1000）。
总之，通过这个函数，我们可以非常方便地将数字转换成大写元整的形式，提高工作效率，减少错误率。
Excel-VBA自定义函数将人民币数字转换为大写
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中如何把金额自动转换成大写方法一至五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中转换人民币大写（公式一）本公式采用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]利用连接符&，严密组合，完成对指定单元格的阿拉伯数字金额数值转换成中文大写，完全符合各种情形的数值转换。
在EXCEL中将数字转换为人民币大写的三种方式
在EXCEL中将数字转换为人民币大写的三种方式鉴于EXCEL本身提供将数字转换为大写表示的功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，暂时找到了三种实现途径，经过测试均功能正常，还有一种是在书上找到的，懒得KEYIN进来了，反正也差不多了。
方法1，通过在EXCEL表格框（例如在“B1”单元）中直接输入以下公式：=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*100)-INT(A1*10)*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]")&"分")然后在“A1”中输入数字，就可看到效果。
方法2，通过VBA（宏）输入转换公式: 点击菜单“工具”->“宏”->“VisualBasic编辑器”,在编辑器窗口中，点击菜单“插入”->“模块”，在出现的窗口中输入以下内容：Function daxie(ByVal Num) ' 人民币中文大写函数Application.Volatile TruePlace = "分角元拾佰仟万拾佰仟亿拾佰仟万"Dn = "壹贰叁肆伍陆柒捌玖"D1 = "整零元零零零万零零零亿零零零万"If Num < 0 Then FuHao = "（负）"Num = Format(Abs(Num), "###0.00") * 100If Num > 999999999999999# Then: daxie = "数字超出转换范围!!": Exit FunctionIf Num = 0 Then: daxie = "零元零分": Exit FunctionNumA = Trim(Str(Num))NumLen = Len(NumA)For J = NumLen To 1 Step -1 ' 数字转换过程temp = Val(Mid(NumA, NumLen - J + 1, 1))If temp <> 0 Then ' 非零数字转换NumC = NumC & Mid(Dn, temp, 1) & Mid(Place, J, 1) Else ' 数字零的转换If Right(NumC, 1) <> "零" ThenNumC = NumC & Mid(D1, J, 1)ElseSelect Case J ' 特殊数位转换Case 1NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1)Case 3, 11NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"Case 7If Mid(NumC, Len(NumC) - 1, 1) <> "亿" ThenNumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"End IfCase ElseEnd SelectEnd IfEnd IfNextdaxie = "(人民币)" & FuHao & Trim(NumC)End Function然后切换回excel,在“A2”单元中输入数字，在“B2”单元中输入：“=DaXie(A2)”，就可看到效果。
Excel--手把手教你转换出中文大写金额
手把手教你转换出中文大写金额大家在使用Excel的时候，是否会遇到要把一个或一些阿拉伯数字转换成中文大写金额的计算要求呢？如果只是偶尔需要对少数几个数字进行转换，干脆手工操作啦，但如果要进行转换的数字较多或经常要转换时，该怎么办呢？一向无往不胜的Excel能为你做些什么呢？其实，这个不难，最少有三种方法可以实现。
一、设置单元格格式：用这个办法能直接将阿拉伯数字转换成中文大写金额，而且操作简单。
右击需要转换的单元格，在弹出的快捷菜单中选择“单元格格式”，然后在“数字”选项卡中选择“自定义”，在“类型”中写入“[DBNum2]G/通用格式"元"”后按确定即可。
瞧，321是不是已经变成了“叁佰贰拾壹元”了？可惜的是，这个办法只能处理整数，而对带有小数的数字无能为力。
当然也有过朋友通过对此法进行一定的扩展而可以处理部分带小数的数字，但效果不是很理想。
二、利用公式进行转换：所谓“自力更生，丰衣足食”，这第三种方法就是自己编写公式进行转换。
为了照顾一些Excel初学者，我们先来了解一下什么是Excel里的公式与函数。
Excel之所以计算功能异常强大，百分之八十的功劳就在于用户可以创建公式进行计算。
所谓公式，实际上就是一个计算表达式（通常是包含函数与单元格引用的计算表达式）。
在Excel里，以“=”作为公式的标志，在任何一个非文本值类型的单元格内，只要以“=”开头，就必定是Excel公式，举一最简单的例子：如果A1、B1单元格的值为别为1和2，那么如果在C3单元格内输入“=A1+B1”，则Excel会自动将A1和B1的值相加，得到数值3，再返回给C3单元格。
再来说函数，函数其实就是包装好的公式，它能根据你提供的参数自动进行复杂的计算，从而最大限度地减轻你的工作量。
Excel内置了大量具备各种功能的函数，而且Excel还允许用户自己添加函数，这样一来，在Excel里几乎没有计算不出来的东西了。
在excel中数值转换成人民币金额大写的公式
其中e13是单元格只需将以上公式复制到记事本然后利用编辑菜单中的替换来换成你所需转换的单元格即可
在excel中数值转换成人民币金额大写的公式
在excel中数值转换成人民币金额大写的公式
=IF((INT(E13*10)-INT(E13)*10)=0,TEXT(INT(E13),"[DBNum2]G/通用格式")&"元"&IF((INT(E13*100)-INT((E13)*10)*10)=0,"整","零"&TEXT(INT(E13*100)-INT(E13*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(E13),"[DBNum2]G/通用格式")&"元"&IF((INT(E13*100)-INT((E13)*10)*10)=0,TEXT((INT(E13*10)-INT(E13)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(E13*10)-INT(E13)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(E13*100)-INT(E13*10)*10,"[DBNum2]G/通用格式")&"分"))
在EXCEL中将数字转换为人民币大写的三种方式
在EXCEL中将数字转换为人民币大写的三种方式鉴于EXCEL本身提供将数字转换为大写表示的功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，暂时找到了三种实现途径，经过测试均功能正常，还有一种是在书上找到的，懒得KEYIN进来了，反正也差不多了。
方法1，通过在EXCEL表格框（例如在“B1”单元）中直接输入以下公式：=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*100)-INT(A1*10)*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]")&"分")然后在“A1”中输入数字，就可看到效果。
方法2，通过VBA（宏）输入转换公式: 点击菜单“工具”->“宏”->“VisualBasic编辑器”,在编辑器窗口中，点击菜单“插入”->“模块”，在出现的窗口中输入以下内容：Function daxie(ByVal Num) ' 人民币中文大写函数Application.Volatile TruePlace = "分角元拾佰仟万拾佰仟亿拾佰仟万"Dn = "壹贰叁肆伍陆柒捌玖"D1 = "整零元零零零万零零零亿零零零万"If Num < 0 Then FuHao = "（负）"Num = Format(Abs(Num), "###0.00") * 100If Num > 999999999999999# Then: daxie = "数字超出转换范围!!": Exit FunctionIf Num = 0 Then: daxie = "零元零分": Exit FunctionNumA = Trim(Str(Num))NumLen = Len(NumA)For J = NumLen To 1 Step -1 ' 数字转换过程temp = Val(Mid(NumA, NumLen - J + 1, 1))If temp <> 0 Then ' 非零数字转换NumC = NumC & Mid(Dn, temp, 1) & Mid(Place, J, 1) Else ' 数字零的转换If Right(NumC, 1) <> "零" ThenNumC = NumC & Mid(D1, J, 1)ElseSelect Case J ' 特殊数位转换Case 1NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1)Case 3, 11NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"Case 7If Mid(NumC, Len(NumC) - 1, 1) <> "亿" ThenNumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"End IfCase ElseEnd SelectEnd IfEnd IfNextdaxie = "(人民币)" & FuHao & Trim(NumC)End Function然后切换回excel,在“A2”单元中输入数字，在“B2”单元中输入：“=DaXie(A2)”，就可看到效果。
Excel中公式数字转化成中文人民币大写的操作方法
Excel中公式数字转化成中文人民币大写的操作方法
通过用公式以及各式法快速将数字转化为中文大写格式，中文小写格式以及纯中文计数格式。
今天，店铺就教大家在Excel中公式数字转化成中文人民币大写的操作方法。
Excel中公式数字转化成中文人民币大写的操作步骤：
打开软件在单元格输入数字，以254431031为例.
鼠标右键-单元格格式-数字-特殊-中文大写，确定后直接转化成大写.
如果转化成人民币，可直接选人民币大写，确定后在大写后加上元整.
如果微软office2003无人民币选项，可选中文大写然后选择自定义后加上"元整"即可.。
Excel文档数字快速转变成大写金额
Excel工作表的数值快速转变大写金额
我们在做投标文件及制作Excel工作表时，往往要把算出来的数子，后面附加上大写，我们通常用的方法是手写输入，不但难，浪费有限的投标文件的有限时间，还容易出错，能有一种方法又快有准的办法，使我们很渴望的事情，下面就在我工作中掌握的这种方法做一下介绍》
1、操作方法一：
我们要首先选中要转变大写的数字（适用于Excel工作表）如下图
（图一）
2、操作方法二：
我们单击鼠标右键，选择“设置单元格格式”在弹出的对话框里面选择左
边“特殊”如下图
（图二）
3、操作方法三：
再在右边找“中文大写数字”然后点击，最后再下面点击确定，这样大写金额就出来啦，绝对准确。
见下图
（图三）。