在EXCL中怎样把小写数字转换成中文大写.doc

在EXCL中怎样把小写数字转换成中文大写？=IF(A11,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(RIGHT(ROUND(A1,2),3)=.,TEXT(RIGHT(ROUND(A1,2),DBNum2)&分,整)=人民币&IF(ABS(A1)0.005,IF(A10,负,)&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,dbnum2)&角,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(ABS(A1)*10)*10,),dbnum2)&分,整)Excel数字转换为中文大写2009-12-23 09:47 在Excel应用过程中，常常有人尤其是会计需要实现货币由小写转大写，经本人归纳应用最多的有二种情况（可能不全哟，见怪），一是在单元格A中输入货币小字，在单元格B中实现小写到大写的自动转换，二是在单元格A中输入货币小写就在单元格A中实现小写到大写自动转换。 下面就这二种情况的解决方法分别进行详解。 一、在单元格A中输入货币小写，在单元格B中实现小写到大写的自动转换 实例及解决方法： 1、例：下表需要自动将C5单元格中的货币小写自动转换成C6单元格中的大写。 2、可在C6单元格输入如下内容： =IF(C50,(金额为负无效),IF(C5-INT(C5)=0,(人民币)&TEXT(C5,DBNUM2)&元整,IF(INT(C5*10)-C5*10=0,(人民币)&TEXT(INT(C5),DBNUM2)&元&TEXT(INT(C5*10)-INT(C5)*10),DBNUM2)&角整,TEXT(INT(C5),DBNUM2)&元&IF(INT(C5*10)-INT(C5)*10=0,零,TEXT(INT(C5*10)-INT(C5)*10,DBNUM2)&角)&TEXT(RIGHT(C5,1),DBNUM2)&分) 回车后，即可实现，效果如下图 根据个人情况不同，可将公式中的C5设置成其它单元格（货币小写所在的单元格）即可实现货币的小写转大写。 二、在单元格A中输入货币小写就在单元格A中实现小写到大写自动转换 (转） Function DXRMB(je As Currency) As String 湖南省巴陵石化热电厂陈放雄编制 很容易将其改为其它编程语言的人民币转换函数 * Dim sDW, sDX, sS, sCS, sWDX, sWDW As String sDW表示金额大写的单位 sDX表示数字的大写 sS表示转换的中间字符串 sCS表示金额转换为货币化的数字字符串 sWDX表示某一个位的位数字大写 sWDW表示某一个位的单位 Dim cJE As Currency cJE表示金额扩大100位并取整后的金额 Dim iL, iW, iLEN As Integer iL表示金额串的长度循环变量(包含角分位但不含小数点) iW表示某一个位的数字数值 iLEN表示金额串的总长度(包含角分位但不含小数点) Dim bCUR0, bPRE0 As Boolean bCUR0表示当前位数字是否为零 bPRE0表示前一位数字是否为零 * If Abs(je) 0.01 Then DXRMB = 零元整 Exit Function End If sWDX = 位大写赋初值 If je 922337203685.47 Then 超限判断 DXRMB = 数据的绝对值不能大于922337203685.47 Exit Function End If sDW = 分角元拾佰仟万拾佰仟亿拾佰仟万拾佰 sDX = 零壹贰叁肆伍陆柒捌玖 cJE = Round(je * 100) sCS = CStr(cJE) iL = Len(sCS) 长度循环变量初始化 iLEN = iL 保存总长度 sS = sWDX 转换中间字符串初始化 bPRE0 = False 前一位数字是否为零变量初始化 bCUR0 = False 当前位数字是否为零变量初始化 While iL = 1 金额长度循环 iW = CInt(Mid(sCS, iLEN - iL + 1, 1) 某位的数字数值 sWDX = MidB(sDX, iW * 2 + 1, 2) 某位的大写 sWDW = MidB(sDW, (iL - 1) * 2 + 1, 2) 某位的单位 iL = iL - 1 bCUR0 = iW = 0 If (Not bCUR0) Or (sWDW = 亿) Or (sWDW = 万) Or (sWDW = 元) Then If bPRE0 Then 前一位数字为零时 If Not bCUR0 Then 如果当前位不为零 sS = sS + 零 + sWDX + sWDW Else 如果当前位为零时 If Not (sWDW = 万) And (Right(sS, 1) = 亿) Then sS = sS + sWDW 必为位单位为亿|万|元,只需加入位单位 End If End If Else 前一位数字为不零时 If Not bCUR0 Then 且当前位不为零时 sS = sS + sWDX + sWDW Else 且当前位为零时 sS = sS + sWDW 必为位单位为亿|万|元,只需加入位单位 End If End If End If bPRE0 = bCUR0 And (sWDW 元) 前一位是否为零变量赋值 Wend If Right(sS, 1) 分 Then sS = sS + 整 End If DXRMB = sS 返回转换结果轻轻松松 Excel数字转换为中文大写 2007年10月11日15:58 IT168.com作者：宋志明Excel中我们在单元格输入了阿拉伯数字之后，比如“1234567890”，忽然想起应该将它改成中文的大写格式，这时怎么办？删掉此内容重新一个字一个字地输入“壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾”？显然太麻烦了。假若并不是一个数字，而是很长的一列单元格，那我们还不麻烦死？不过别担心，在Excel中这不是个难题，至少有以下的两种方法可供您选择：一、单元格格式法选中那些数字所在的单元格，点击右键，在弹出菜单中选择“设置单元格格式”命令，打开“设置单元格格式”对话框。点击“数字”选项卡，在左侧的“分类”列表中选择“特殊”，然后在右侧的“类型”列表中点击“中文大写数字”，如图1所示。确定后就可以了。若点击上方的那个“中文小写数字”，可以得到“一十二亿三千四百五十六万七千八百九十”。很简单吧？图1：选择“中文大写数字”二、函数更正法在Excel中还有一个隐含的函数可以解决这个问题。比如A1单元格中是数字“1234567890”，那么我们只要在其它单元格中输入公式“=NUMBERSTRING(A1,2)”。回车后就可以得到“壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾”了。如果我们将第二个参数“2”改成“1”或者“3”，那么我们就会得到“一十二亿三千四百五十六万七千八百九十”和“一二三四五六七八九”。再假如这个问题不是发生在Excel中，而是在Word表格中，那又该如何处理呢？当然，一种选择是将表格数据复制到Excel中，转换好了之后再复制到Word表格中。不过，我们还可以选择直接在Word中完成此项任务的。选中表格中的数字“1234567890”，点击功能区“插入”选项卡“符号”功能组“编号”按钮，打开“编号”对话框。在“编号类型”列表中选择“壹，贰，叁”项目，如图2所示，确定后就可以得到“壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾”了。如果在列表中选中“一，二，三”项目，那么可以得到“一十二亿三千四百五十六万七千八百九十”。图2：选择“壹，贰，叁”项目当然，如果您有域的编辑感兴趣的话，还可以在域符号中直接输入域代码“= 1234567890 * CHINESENUM3”，或“= 1234567