Excel环境下金额数字大写转换的方法探讨

合集下载

如何转换【中文大写金额】

如何转换【中文大写金额】点击上方“EXCEL应用之家”蓝字关注微信公众号点击文章底部“阅读原文”可领取阅读红包；模板文档可免费获取送人玫瑰，手有余香，请将文章分享给更多朋友动手操作是熟练掌握EXCEL的最快捷途径！在实际工作中，尤其是财务工作中，需要将数字金额转换为中文大写金额。

一般地，中文大写金额需要将每位数字都写出来。

我们仍以上一篇的表格为例，来向大家介绍一下如何将数字金额转换为中文大写金额。

步骤一：我们对单元格区域A3:A4求和，并将结果输入单元格A6 步骤二：合并单元格B7:I7，并在其中输入：“=TEXT(A6*100,"[DBNum2]0拾0万0仟0佰0拾0元0角0分")”即可得到正确的结果了。

思路：同上一篇的例子一样，我们把单元格A6的金额扩大100倍，这样就没有小数点了。

在使用中文大写格式“[DBNum2]0拾0万0仟0佰0拾0元0角0分”来逐位显示大写数字。

这里用到的TEXT函数应用也比较广泛。

它的语法结构如下：TEXT(value,format_text）value为数字值format_text 为设置单元格格式中自己所要选用的文本格式。

其中Format_text的清单比较长，也没有必要全部都列在这里。

常用的部分大家可以在【设置单元格格式】-【自定义】中查看了。

这里有个小技巧，当输入TEXT函数的格式参数是，你可以打开【自定义】，选择需要的格式，复制到公式中就可以了。

欢迎关注专栏/公众号。

excel 金额大写转换公式

excel 金额大写转换公式摘要：一、介绍Excel 金额大写转换公式二、分析金额大写转换公式的原理三、讲解如何使用Excel 金额大写转换公式四、总结Excel 金额大写转换公式的优点与局限性五、提供使用Excel 金额大写转换公式时的注意事项正文：在Excel 中，我们常常需要将数字金额转换为大写金额。

为了方便用户实现这一功能，Excel 提供了一个金额大写转换公式。

本文将详细介绍这个公式，并分析其原理及使用方法。

首先，我们来了解一下Excel 金额大写转换公式的原理。

这个公式基于汉字数字与阿拉伯数字的对应关系，通过嵌套IF 函数，实现将阿拉伯数字转换为大写金额的功能。

接下来，我们来讲解如何使用Excel 金额大写转换公式。

假设A1 单元格中存储的数字金额为1234.56，我们可以在B1 单元格中输入以下公式：```=IF(A1>=10000, "壹万零" & TRANSPOSE(TEXT(A1-10000, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")), IF(A1>=1000, "壹仟零" & TRANSPOSE(TEXT(A1-1000, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")),IF(A1>=100, "壹佰零" & TRANSPOSE(TEXT(A1-100, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")), IF(A1>=10, "十元" & TRANSPOSE(TEXT(A1-10, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")), TEXT(A1, ";负数;零;壹;贰;叁;肆;伍;陆;柒;捌;玖;拾")))```以上公式可以根据需要进行调整，以适应不同的金额格式需求。

Excel表格怎么自动换算金额大写

Excel表格怎么自动换算金额大写EXCEL表格怎么自动换算金额大写：A1是123.45,A2我怎么能出现壹佰贰拾叁元肆角伍分第一步，打开已有的表格，同时把这个网页也打开，稍后能用到这个公式。

因为公式太长，必须得用复制，粘贴的方法，才保准。

第二步，复制公式，冒号后一个也不能落下。

即：=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(R OUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROU ND(A1,2)),"[D BNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","") 。

第三步，双击进入A2，使A2单元格中有光标在闪，点粘贴。

第四步，回车。

2.如果没有小数点的，就直接在单元格右击-设置单元格格式-特殊-中文大写数字。

3. a列格式为数值-货币,b列格式为特殊-中文大写数字-自定义-格式后加上圆整函数:b1=a1EXCEL表格中怎么设置美元的大写金额1.比如说1.2美元输入自动变成“壹美元贰美分”这样。

Excel中金额大小写转换(解决负数无法显示问题)

Excel中金额大小写转换（解决负数无法显示问题）一、Excel自动转换数字大小写具体的操作步骤如下：1. 启动excel。

按“alt+f11”快捷键打开“visual basic编辑器”。

2. 在“visual basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。

双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码:Function NtoC(n) 'n as singleConstcNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"ConstcCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"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 Function3.练习A1=-10135.33 A2=NTOC(ABS(A1))二、Excel中金额大小写转换公式公式1：“=IF(ROUND(E19,2)=0,"",IF(ROUND(ABS(E19),2)>=1,TEXT(INT(ROUND(ABS(E19),2)),"[DBNum2]" )&"元","")&IF(RIGHT(TEXT(E19,".00"),2)*1=0,"整",IF(RIGHT(TEXT(E19,".00"),4)*1>=1,IF(RIGHT(TEXT(E19,".00"),2)*1>9,"","零"),IF(ROUND(ABS(E19),2)>=1,"零",""))&IF(RIGHT(TEXT(E19,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(E19,".00"),2)),"[DBNum2]")&"角","")&IF(RIGHT(TEXT(E19,".00"))*1>0,TEXT(RIGHT(TEXT(E19,".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中将数字转换为人民币大写的三种方式

在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中金额大写自动生成的公式的使用方法和注意事项。

二、公式的基本原理1. 在Excel中，可以利用VBA编程语言来编写宏以实现金额大写自动生成的功能。

通过编写相应的VBA代码，可以使Excel自动将输入的数字金额转换为大写金额。

2. 公式的基本原理是将输入的阿拉伯数字金额拆分成整数和小数部分，然后分别进行转换为大写金额，最后将整数和小数部分的大写金额合并为最终结果。

三、公式的具体实现步骤1. 在Excel中，首先需要按下Alt + F11组合键打开VBA编辑器，在项目资源管理器中选择需要添加宏的工作簿。

2. 在选中的工作簿中插入一个新的模块，然后在模块中编写相应的VBA代码。

可以借助搜索引擎查找金额大写自动生成的VBA代码，然后将其粘贴到模块中。

3. 在编写完成VBA代码后，可以利用快捷键Alt + F8来运行宏，或者将宏添加到快速访问工具栏，方便日常使用。

四、注意事项1. 在使用金额大写自动生成的公式时，需要确保输入的金额格式正确，且没有特殊符号和字母等非数字字符。

2. 由于VBA代码的复杂性和灵活性，建议在使用前充分了解其功能和运行原理，以避免出现不必要的错误和问题。

3. 在日常工作中，需要根据具体的需求，对金额大写自动生成的公式进行必要的修改和调整，以满足不同的应用场景。

五、结语通过以上介绍，相信大家对Excel金额大写自动生成的公式有了一定的了解。

在实际工作中，合理利用Excel的功能和公式，可以提高工作效率，减少重复劳动，帮助我们更好地处理各类金额转换的需求。

希望本文的介绍能够对大家有所帮助。

六、如何修改VBA代码以适应不同的需求1. 调整显示格式：根据实际需求，我们可以修改VBA代码中的显示格式，包括小数点后保留位数、显示大写金额的格式等。

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表格里怎么将数字金额转换为大写？很多朋友都有这样的需求，手动打字太慢而且容易错，大家可以尝试把数字金额直接转换成大写，今天系统之家我就来讲解office软件里Excel表格怎么将金额转成大写的方法，感兴趣的小伙伴快来这里学习一下。

Excel表格将金额转成大写的方法
1、进入Excel后，将金额复制到大写的一列，并选中这一列。

2、单击鼠标右键，在弹出的功能栏中选择设置单元格格式。

3、在左侧栏中点击特殊，选择中文大写数字，点击确定。

4、此时小写的金额就变成大写的金额了。

以上就是系统之家给大家分享的Office Excel表格将金额转成大写的快捷方法，希望对你有帮助。

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

对仟位上的数字转换公式：
＝Ｉ（Ｅ（ＥＴ（Ｎ（１，＃）ＦＬＮＴＸＩＴＥ） ” ” ）＞＝ＭＤ ” 壹４，ＩＢ（零
ｘｄｚ＝ＩＳ（，ｒｄｓ）．）ｓｗｎｔ１Ｔｉｘｔ，” ” ｒｍ（ｒＸＷ＝Ｍｄｄｓ，ｓｗ＋１Ｓｉ（ｘｔｘｄｚｒ）ｄｌ＝Ｌｆｄｓ，ｓｗ一１ｘｅ（ｘｔｘｄｚｔｒ）＆ ” ” 元
ｘｏ＝ｄｔｄｘＥｎｄＦｕｔｏｎｃｉｎ
如下公式，可将Ｅ就２单元格的小写数字转换为大写：
注意，ＶｓａＢｓ在ｉｌａｉｕｃ语句中可以使用Ｅｃｌ工作表函ｘｅ
需要通过ＡｐｉｔｎＷｏｋｈｅＦｎｔｎ对象来使用工作ｐｌａｏ．ｒｓｅｔｕｃｉｃｉｏ＝ＦＴＰＦＮ ” ” ＴＸＥ ” ｄｎｍ］＇，）数，Ｉ（ＹＥ（ＩＤ（．，ＥＴ（２，［ｂｕ２＇１））
元 ” Ｉ（Ｅ（ＤＴＸ（２ ” ｄｎｍ］１，ＩＤ（．，＆ＦＬＮＭＩ（ＥＴＥ，［ｂｕ２｜ＦＮ ” ” ）
编写自定义函数时，参数应作为双精度数据类型其
ＴＸ（２ ” ｄｎｍ］）１ＥＴＥ，［ｂｕ２ｔ，）＋１２）＝１ＭＩＴＸＥ，１，），Ｄ（ＥＴ（２ ” “ ｏｂｅ定义，ｘｄＡｃＡｏｂｅ，能作为单精度数据Ｄｕｌ” 即ｔ（ｂｓＤｕｌ）不ｏ
种方法，使用者要根据自身的兴趣和水平来选择适合自己的
方法
主要参考文献
［］・巴赫．ｘｅ２０１沃肯Ｅｃｌ０３公式与函数应用宝典［．路晓村，Ｍ］等
图１模拟运算表对话框
１／ＣＨｆＭＡＮＡＧＥ２ＮＡＭＥＮＴＩＯＲＡＴＯＮＩＡＴＯＮＮＦＭＩＺＩ
２２整体转换．
２２１编程法．．
ｄ２＝ＭｄＴｉｄｓ）ｓｗｘｉ（ｒｍ（ｘｔ，ｘｄｚ＋１）＆ ” ｒ，，１角整”
Ｅｓｆｉ（Ｓ１１＝ ” ”ＴｅｌＩＭｄＸＷ，，）ｅ零ｈｎｄ２＝ｘｗ＆ ” ” ｘｓ分
Ｅｌｅｓ
表２
ＡＢ
综合公式
ＣＤ
表３
ＡＢ
模拟运算表
ＣＤ
ｌ２
３
编
号
姓张
李
名健
强
应纳税金额２９０６
３７０５
应缴所得税
１７
１８
编
号
姓
名
应纳税金额
＝Ｅｌ２
应缴所得税
对位转换就是对相应数位上的小写数字转换为大写数字，然后在已印有万仟佰十元角分的汉字之问套打相应数位
的大写数字，如对Ｅ单元格万位上的数字，１其大写转换公式
为：
＝
［Ｂｕ２ｆＤＮｍ１１）
Ｉ（ＥＴＸ（Ｎ（１，＃）ＦＬＮ（ＥＴＩＴＥ） ” ” ）＞＝，Ｄ（零壹５ＭＩＢ ”
译．北京：电子工业出版社，０２１６ —１０２０：５６
会计信息化
２大写转换的方法
２１对位转换．
数。如下宏代码定义函数ｘｏ，ｔｄ可将小写转换为大写，使用时
在单元格中输入 “＝ｘｄ）即可，ｔ（” ｏ非常方便。
ＰｂｉＦｎｔｎｘｄＡｃＡｏｂｅｓｔｎｕｌｕｃｏｔ（ｂｓＤｕｌ）ＡｒｇｃｉｏＳｉ
ｂｎｌ＝ＡｐｉｔｎＷｏｋｈｅＦｎｔｎＦｘｄＡｃ２ｉｔｐｌａｏ．ｒｓｅｔｕｃｏ．ｉ（ｂ，）ｃｉｉｅ
ｄｓ：Ａｐｌａｉｎｘｔｒｐｉｔ．ＷｏｋｈｅＦｎｔｎｅｔ（ｂｎｌ， ” ｃｏｒｓｅｔｕｃｉ．Ｔｘｏｉｔ
出格式的打印。
１数字大写转换的意义
金额数字大写在会计核算中有广泛的运用，支票、如领
［收稿日期］０８— ９—２２００４［作者简介］王光伟（９６）男，１６，重庆人，重庆市长寿区人民医院总会汁师，计‘ 、师。统师会计
贰叁肆伍陆柒捌玖拾” ＶＩＥ（１Ｂ（Ｎ（１，ＥＴＸ，ＡＭＤＩＴＥ）ＬＮ（ＥＴＵ
（Ｎ（１，＃）３１）￥ＩＴＥ） ” ” ）一，）２＋１２，” 。，） ” ）
ＩＬｎＸＷ＝１Ｔｅｆｅ（Ｓ）ｈｎ
［ｂｕ２ ’ ，ＩＤ（．，ＥＴ（２ ”［ｂｕ２］）１ｄｎｍ］）ＦＮ ” ” ＴＸＥ，ｄｎｍｔ，）＋１类型“ ｉｌ定义，．｜，Ｓｎｅｇ” 否则，转换将出现偏差。如１．１３１５元，双
１＆” ）角整 ” Ｉ（Ｄ（ＥＴＥ，［ｂｕ２ ’ ，ＩＤ（．，精度转换为“ ，ＭＩＴＸ（２ ” ｄｎｍ］）ＦＮ ” ” Ｆ．壹拾叁元壹角贰分 ” 单精度转换为 “ ，壹拾叁元ＴＸ（２ ”［ｂｕ２］＇，）＋１１ＥＴＥ，ｄｎｍ｜１），）：”零 ” ”零 ”＆Ｄ壹角壹分 ” ，ＭＩ。（ＥＴ（Ｅ，ＴＸ２ ”［ｄｎｍ．，ＦＮ（” ” ＥＴ（Ｅ，ｂｕ２］１）ＩＤ．，ＴＸ２” ４［ｂｕ２］）１）＋２１）＆”分 ” ｄｎｍ．，．，，（ＭＩ（ＥＴ（２ ” ＤＴＸＥ，
无元角分等字样。注意参数”［ｂｕ２］是函数ＴＸ（转ｄｎｍ ” ＥＴ）
ＥｎｄＩｆ
换为大写的关键。接着再根据转换结果中有无小数点以及
有无角分位的情况分别加上“ 整” “ 元、角整 ” “ 、零几分 ” “ 、几
角几分 ” 。如将Ｅ２单元格的数字转换，在Ｆ可２单元格输入
（）右键单击１４８行的行标，弹出菜单中选择“ 隐藏” 。（）注意，５使用模拟运算表功能时，必须保证表１和表３
在同一个工作簿中。
六、总结
本文提供的方法，创新点在于“ 位函数 ” 定的应用，难点
在于综合公式中“ 数引用” 参。用Ｅｃｌ算个人所得税有多ｘｅ计
对财务会计相关数据的管理和规定格式的输出。
［关键词］大写转换；数据管理；ｘｅ公式；Ｅｃｌ自定义函数
［中图分类号］２２Ｆ３［文献标识码］Ａ［文章编号］６３— １４２０）６— ０２— ２１７０９（０９００１０款单的填写等。手工填写大写数字，时会出现错误，能有如在计算机中实现金额数字大写的自动转换，则不用专门的计算机程序，就可实现对财务会计相关数据的管理和按规定输
＝
１，ＥＴ（２ ” ｄｎｍｔ＆” 整” ＬＦ（ＥＴＥ，表函数。６ＴＸＥ，［ｂｕ２］）元１，ＥＴＴＸ（２ ”
［ｂｕ２．，ＩＤ（．，ＥＴＥ，［ｂｕ２］）１ｄｎｍ］ＩＦＮ ” ” ＴＸ（２ ” ｄｎｍｔ，）一１３自定义函数法的比较）ｔ）
＝Ｅ４ｌ
Ｎ０１００
Ｎ）０【ＨＯ２
ｌ９
Ｎ０１ｏ０
张
健
２９０６
４５６
７８
Ｎｏ３０ｏＮ０４ｏ０Ｎ０５ｏｏ
Ｎｏ６０ＯＮ）７ｆｏｏ
刘钱楚
徐邓
畅进欢
言爽
２８０８２７０６３３０５
３９０２１９０８
２０
２１
Ｎ０２００
Ｎ ∞３ｄ
李
刘
强
畅
３７０５
２８０８
２２
２３
Ｎ０４００
Ｎｏ５ｏ０
钱
楚
进
欢
２７ｏ６
３３０５
２４
２５
Ｎ０６０Ｈ０Ｎ（７ Biblioteka ｏ）徐邓言
爽
３９０２
王光伟
（重庆市长寿区人民医院，重庆
［摘
４１２）０２０
要］金额数字大写在会计工作中有广泛的运用，如支票、领款单的填写等。人工转换大写数字，时会出现错有
误，本文探讨了在Ｅｃｌｘｅ环境下利用带”［ｂｕ２ ” ｄｎｍ］参数的ＴＸ（函数进行金额数字大写的转换方法，ＥＴ）主要用于
２００９年３月
中国管
理
信