人民币大小写转换自动生成器(非常方便)
金额小写自动生成大写公式
金额小写自动生成大写公式金额小写转换成大写的公式主要依据中文的数字命名规则。
以下是一个可将金额小写转换成大写的公式：1.将金额小写以“元”为单位进行分组，每四位一组分组（从低位到高位），以方便命名。
2.对于每一组最高位的数字，根据其所在的组数命名单位（例如“元”、“万”、“亿”）。
其他位的数字分别根据其所在的位数加上相应的单位（例如“拾”、“佰”、“仟”、“拾万”、“佰万”、“仟万”、“拾亿”等）。
3.对于每一组中的数字，根据其大小进行命名。
命名规则如下：-0不进行命名，直接舍弃。
-1命名为“壹”或“一”（个别情况）。
-其他数字命名为“贰”、“叁”、“肆”、“伍”、“陆”、“柒”、“捌”、“玖”。
4.在每个数字后面添加相应的单位（例如“角”、“分”、“整”），其他位的单位根据需要进行命名，例如“拾角”、“佰角”、“仟分”等。
5.将每一组的命名和单位合并，组成完整的大写金额。
以下是一个具体的例子来说明公式的应用：假设要将金额小写1202.34转换成大写金额，根据公式：1.将金额小写以“元”为单位进行分组，得到两组数字：1202和342.对于最高位的数字1202，根据其所在的组数命名单位为“元”，其他位的数字分别命名为“壹仟”、“贰佰”、“零拾”、“贰”。
3.对于数字34，命名为“叁拾肆”。
4.在每个数字后面添加相应的单位：1202命名为“壹仟贰佰零拾贰元”，34命名为“叁拾肆分”。
5.将每一组的命名和单位合并，得到大写金额为“壹仟贰佰零拾贰元叁拾肆分”。
这就是将金额小写1202.34转换成大写的公式。
根据这个公式，可以将任何金额小写转换成大写。
大写人民币转换
大写人民币转换小写金额：1688.99大写金额：[转换为大写金额]可以将人民币小写金额转换为大写金额,在下面的小写金额框中填入人民币金额的小写阿拉伯数字，例如1688.99，然后点击“转换为大写金额”按钮即可得转换成汉字。
在输入数字的时候，可以包含小数点，也可以写成千进制，例如1,688.99（注意是英文逗号，而不是中文逗号）。
人民币金额用到的中文大写汉字如下：零，一，二，三，四，五，六，七，八，九，十，一百，一千，一万，一亿。
大写人民币转换 1一、中文大写金额数字到“元”为止的，在“元”之后、应写“整”(或“正”)字；在“角”和“分”之后，不写“整”(或“正”)字。
二、中文大写金额数字前应标明“人民币”字样，大写金额数字应紧接“人民币”字样填写，不得留有空白。
大写金额数字前未印“人民币”字样的，应加填“人民币”三字，在票据和结算凭证大写金额栏内不得预印固定的“仟、佰、拾、万、仟、佰、拾、元、角、分”字样。
三、阿拉伯数字小写金额数字中有“0”时，中文大写应按照汉语语言规律、金额数字构成和防止涂改的要求进行书写。
举例如下：1). 阿拉伯数字中间有“0”时，中文大写要写“零”字，如￥1409.50应写成人民币壹仟肆佰零玖元伍角；2). 阿拉伯数字中间连续有几个“0”时、中文大写金额中间可以只写一个“零”字，如￥6007.14应写成人民币陆仟零柒元壹角肆分。
3). 阿拉伯金额数字万位和元位是“0”，或者数字中间连续有几个“0”，万位、元位也是“0”但千位、角位不是“0”时，中文大写金额中可以只写一个零字，也可以不写“零”字，如￥1680.32应写成人民币壹仟陆佰捌拾元零叁角贰分，或者写成人民币壹仟陆佰捌拾元叁角贰分。
又如￥107000.53应写成人民币壹拾万柒仟元零伍角叁分，或者写成人民币壹拾万零柒仟元伍角叁分。
4). 阿拉伯金额数字角位是“0”而分位不是“0”时，中文大写金额“元”后面应写“零”字，如￥16409.02应写成人民币壹万陆仟肆佰零玖元零贰分，又如￥325.04应写成人民币叁佰贰拾伍元零肆分。
excel表格中数字自动变成人民币大写的函数
标题：excel表格中数字自动变成人民币大写的函数在许多日常工作中，我们经常会用到Microsoft Excel这一办公软件来处理数据和表格。
在处理涉及人民币金额的时候，通常需要将数字自动转换成人民币大写的形式，这不仅方便了数据的阅读和理解，也符合财务报表的要求。
下面介绍一种在Excel中实现这一功能的方法，希望对大家有所帮助。
1. 准备工作在使用Excel表格处理人民币金额时，首先需要保证表格中含有人民币金额的数字列。
假设我们要将A列的数字自动转换成人民币大写，我们可以将转换后的结果显示在B列。
2. 编写函数在B列的第一个单元格中，输入以下函数来实现将数字自动转换成人民币大写的功能：=人民币(A1)其中，A1代表了要转换的人民币金额所在的单元格，人民币()为自定义的转换函数名称，可以根据个人喜好进行修改。
3. 自定义函数在Excel中，默认并没有内置的函数来实现将数字转换成人民币大写的功能，因此需要通过自定义宏来实现。
以下是一个示例的自定义函数，供大家参考：Function 人民币(ByVal MyNumber) As StringDim Dollars, Cents, TempDim DecimalPlace, CountReDim place(9) As Stringplace(2) = " Thousand "place(3) = " Million "place(4) = " Billion "place(5) = " Trillion "' String representation of amount.MyNumber = Trim(Str(MyNumber))' Position of decimal place 0 if none.DecimalPlace = InStr(MyNumber, ".")' Convert cents and set MyNumber to dollar amount.If DecimalPlace > 0 ThenCents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) _ "00", 2))MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))End IfCount = 1Do While MyNumber <> ""Temp = GetHundreds(Right(MyNumber, 3))If Temp <> "" Then Dollars = Temp place(Count) Dollars If Len(MyNumber) > 3 ThenMyNumber = Left(MyNumber, Len(MyNumber) - 3)ElseMyNumber = ""End IfCount = Count + 1LoopSelect Case DollarsCase ""Dollars = "No Dollars"Case "One"Dollars = "One Dollar"Case ElseDollars = Dollars " 元"End SelectSelect Case CentsCase ""Cents = " and No Cents"Case "One"Cents = " and One Cent"Case ElseCents = " and " Cents " 分"End Select人民币 = Dollars CentsEnd FunctionFunction GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" MyNumber, 3)If Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) " 百"End IfIf Mid(MyNumber, 2, 1) <> "0" ThenResult = Result GetDigit(Mid(MyNumber, 2, 1)) " 十"ElseIf Mid(MyNumber, 1, 1) <> "0" And Mid(MyNumber, 2, 1) = "0" ThenResult = Result " 零"End IfEnd IfIf Mid(MyNumber, 3, 1) <> "0" ThenResult = Result GetDigit(Mid(MyNumber, 3, 1))End IfGetHundreds = ResultEnd FunctionFunction GetTens(TensText)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 = "十"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 between 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. 使用自定义函数在完成自定义函数的编写后，我们可以在B列的第一个单元格中输入=人民币(A1)，然后按下Enter键，即可看到A1单元格中的人民币金额被自动转换成人民币大写的形式，并显示在B1单元格中。
将数字自动转换为人民币大写
捌分 捌分
使用说明
此转换是依据财政部制定的会计基础工作规范的数字书写 要求编制的，格式要求见网页： /view/2369188.htm。
左侧各灰绿阴影内，第一行是小写数字即要转换的内容， 第二行为元、角、分各占一个单元的形式，第三行元角分合并 后占一个单元的形式(一般选择这种方式)，获得的大写是文 本，不能再参与数学运算。
将数字自动转换为人民币大写
ቤተ መጻሕፍቲ ባይዱ
-18.00
负值无效 负值无效
0.68 人民币 陆角
人民币陆角捌分
0.08 人民币
人民币捌分
0.70 人民币 柒角整
人民币柒角整
1.76 人民币壹元 柒角
人民币壹元柒角陆分
10.76 人民币壹拾元零 柒角
人民币壹拾元零柒角陆分
10.06 人民币壹拾元零
人民币壹拾元零陆分
10202010.46 人民币壹仟零贰拾万贰仟零壹拾元零 肆角 人民币壹仟零贰拾万贰仟零壹拾元零肆角陆分
陆分 陆分
50230870 人民币伍仟零贰拾叁万零捌佰柒拾元整
或：
50230870 人民币伍仟零贰拾叁万零捌佰柒拾元整
注：在菜单栏中“格式→单元格→数字→自定义→类型”中定义
陆分
陆分
左侧多个灰绿阴影内的表达是一样，主要是为验证不同的 数字转换后的正确性。
使用方法：将B4中的表达式复制到你所要转换的单元格， 并使用菜单中“编辑→替换”命令，将B2全部替换为你数字所 在的单元格的行列号(如C47、A21等)。注意：复制时要双击鼠 标左键进入单元格，然后全部拖黑再复制。
如果要转换的数字为整数形式，则简单得多。若有小数则 与会计要求不符。如下所示：
例表.人民币大小写之间的转换2
小写金额大写金额￥521.23伍佰贰拾壹元贰角叁分￥23.00贰拾叁元整￥125.20壹佰贰拾伍元贰角整￥348.00叁佰肆拾捌元整￥15.00壹拾伍元整￥23.21贰拾叁元贰角壹分给你一个,放在工具里：Function convert_digital_chinese(ByVal Myinput)Dim Temp, TempA, MyinputA, MyinputB, MyinputCDim Place As StringDim J As IntegerPlace = "分角元拾佰仟万拾佰仟亿拾佰仟万"shuzi1 = "壹贰叁肆伍陆柒捌玖"shuzi2 = "整零元零零零万零零零亿零零零万"qianzhui = ""If Myinput < 0 Then qianzhui = "负"Myinput = Int(Abs(Myinput) * 100 + 0.5)If Myinput > 999999999999999# Thenmychange = "数字太大了吧？？？"Exit FunctionEnd IfIf Myinput = 0 Thenmychange = "零元零分"Exit FunctionEnd IfMyinputA = Trim(Str(Myinput))shuzilong = Len(MyinputA)For J = 1 To shuzilongMyinputB = Mid(MyinputA, J, 1) & MyinputBNextFor J = 1 To shuzilongTemp = Val(Mid(MyinputB, J, 1))If Temp = 0 ThenMyinputC = Mid(shuzi2, J, 1) & MyinputCElseMyinputC = Mid(shuzi1, Temp, 1) & Mid(Place, J, 1) & MyinputC End IfNextshuzilong = Len(MyinputC)For J = 1 To shuzilong - 1If Mid(MyinputC, J, 1) = "零" ThenSelect Case Mid(MyinputC, J + 1, 1)Case "零", "元", "万", "亿", "整":MyinputC = Left(MyinputC, J - 1) & Mid(MyinputC, J + 1, 30)J = J - 1End SelectEnd IfNextshuzilong = Len(MyinputC)For J = 1 To shuzilong - 1If Mid(MyinputC, J, 1) = "亿" And Mid(MyinputC, J + 1, 1) = "万" Then MyinputC = Left(MyinputC, J) & Mid(MyinputC, J + 2, 30)Exit ForEnd IfNextmychange = qianzhui & Trim(MyinputC)。
excel人民币大小写转换函数
excel人民币大小写转换函数
在excel中，可以使用函数轻松实现“人民币大小写转换”。
下面就来介绍一下excel中人民币大小写转换函数的使用方法：
1、准备工作
准备工作很简单，只需要在excel中新建一个工作表，并将要转换的数字输入在表格中即可。
2、使用函数
在excel中，可以使用函数“large”来实现人民币大小写转换，函数的具体使用方法是：
=Large（A1，B1）
其中，A1为要转换的数字，B1为单位（按数字的位数计算，从个位开始）。
例如，我们要转换“4531400”，则其转换函数为：
= Large（4531400，1），1表示单位是个，即若干个“万”
= Large（4531400，2），2表示单位是十万，即若干十万
= Large（4531400，3），3表示单位是百万，即若干百万等等。
- 1 -。
小写数字(阿拉伯数字)转换为大写人民币的方法
在EXCEL中需要人民币大小写的转换。
在网上找了多种小写转换成大写的方法，有的效果不满意，有的又太深奥不适合初学者，这里给大家分享个方便的方法（也是网上查询到的…^O^）——将如下语句粘贴到你要得到结果的单元格中就成了(所有蓝色部分都要复制过去)=IF(A9<0,"负","")&IF(TRUNC(ROUND(A9,2))=0,"",TEXT(TRUNC(ABS(R OUND(A9,2))),"[DBNum2]")&"元")&IF(ISERR(FIND(".",ROUND(A9,2))),"",TEXT(RIGHT(TRU NC(ROUND(A9,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0 ",TEXT(A9,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A9,2),3))=".",TEXT(RIGHT( ROUND(A9,2)),"[DBNum2]")&"分","整")注意：将下公式中的所有“A9”（需要转换数值的单元格）换成你输入数据的单元格名称就可以了。
具体操作：选定复制后的单元格，点击“编辑（E）”——“替换”——在“查找内容”输入a9——在“替换为”输入原数值的“a1”或“b2”等要得到结果的单元格的地址名称——点击“全部替换（A）。
OK!!看看结果吧：）补充：单位只能到”分"。
人民币大小写转换(非常方便)
肆万叁仟零柒拾肆元整
转换值 肆万叁仟零柒拾肆元整 肆万叁仟零柒拾肆元整
肆万叁仟零柒拾肆元整
ቤተ መጻሕፍቲ ባይዱ
说明： 在“请输入数字”右侧输入 你所要的数字，然后到下方 的“请参照大写”处查看你的 目标大写数据，其他地方不必 操作。
请输入数字：
43,074.00 各部分转换值
整数部分 角位 分位 角分位 判断条件 是否为零 是否只有整数部分 是否没有整数部分 是否只有角 是否只有分
请参照大写： 分三次转换 角分位 0
肆万叁仟零柒拾肆元整
元位 肆万叁仟零柒拾肆元整 肆万叁仟零柒拾肆元整
肆万叁仟零柒拾肆元 角 零分 角零分
FALSE TRUE FALSE TRUE FALSE
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
FALSE FALSE FALSE FALSE FALSE
壹拾陆万陆仟壹佰贰拾壹元贰角捌分
转换值 壹拾陆万陆仟壹佰贰拾壹元贰角捌分 壹拾陆万陆仟壹佰贰拾壹元贰角捌分
说明： 在“请输入数字”右侧输入 你所要的数字，然后到下方 的“请参照大写”处查看你的 目标大写数据，其他地方不必 操作。 19431.36 19431.36 21172.32 21172.32 24654.24 24654.24 17802.72 17802.72
166121.28 美元
请输入数字：
166121.28 各部断条件 是否为零 是否只有整数部分 是否没有整数部分 是否只有角 是否只有分
请参照大写： 分三次转换 元位 角分位 壹拾陆万陆仟壹佰贰拾壹元 贰角捌分 壹拾陆万陆仟壹佰贰拾壹元 贰角捌分
壹拾陆万陆仟壹佰贰拾壹元 贰角 捌分 贰角捌分