当前位置：文档之家 › 将数字转换成大写金钱

将数字转换成大写金钱

  • 格式：pdf
  • 大小：292.00 KB
  • 文档页数：6

下载文档原格式

  / 6

合集下载

怎样在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应用之家”蓝字关注微信公众号点击文章底部“阅读原文”可领取阅读红包；模板文档可免费获取送人玫瑰，手有余香，请将文章分享给更多朋友动手操作是熟练掌握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函数的格式参数是，你可以打开【自定义】，选择需要的格式，复制到公式中就可以了。

-END-欢迎关注【Excel应用之家】专栏，了解更多的Excel实际应用技能，尽在Excel应用之家！版权声明：本文归Excel应用之家专栏（微信公众号Excel应用之家）原创撰写，未经允许不得转载。

欢迎关注专栏/公众号。

Word中数字金额小写转大写

Word中数字金额小写转大写

Word中数字金额小写转大写Word中数字金额小写“变”大写在日常的办公应用中，尤其是作为一名财务人员，经常需要输入大写金额的形式的数字，“肆仟叁佰五拾元零伍分”，如果用手工输入的话，显得比较麻烦，其实只要通过输入小写数字并通过编写一个简单的宏就能达到快速输入的目的！启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码：Option ExplicitSub 小写金额变大写()Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As StringDim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As StringConst ZWDX As String = "壹贰叁肆伍陆柒捌玖零" '定义一个中文大写汉字常量On Error Resume Next '错误忽略With SelectionNumeric = VBA.Round(VBA.Val(.Text), 2) '四舍五入保留小数点后两位'判断是否在表格中If .Information(wdWithInTable) Then _.MoveRight unit:=wdCell Else .MoveRight unit:=wdCharacter '对数据进行判断,是否在指定的范围内If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _vbOKOnly + vbExclamation, "Warning": Exit SubIntPart = Int(VBA.Abs(Numeric)) '定义一个正整数Odd = VBA.IIf(IntPart = 0, "", "圆") '定义一个STRING变量'插入中文大写前的标签Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "人民币金额大写:", "人民币金额大写:负") '对小数点后面二位数进行择定DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100Select Case DecimalPartCase Is = 0 '如果是0,即是选定的数据为整数Oddment = VBA.IIf(Odd = "", "", Odd & "整")Case Is < 10 '<10,即是零头是分Oddment = VBA.IIf(Odd <> "", "圆零" & VBA.Mid(ZWDX, DecimalPart, 1) & "分", _ VBA.Mid(ZWDX, DecimalPart, 1) & "分") Case 10, 20, 30, 40, 50, 60, 70, 80, 90 '如果是角整Oddment = "圆" & VBA.Mid(ZWDX, DecimalPart / 10, 1) & "角整"Case Else '既有角,又有分的情况Jiao = VBA.Left(CStr(DecimalPart), 1) '取得角面值Fen = VBA.Right(CStr(DecimalPart), 1) '取得分面值Oddment = Odd & VBA.Mid(ZWDX, Jiao, 1) & "角" '转换为角的中文大写Oddment = Oddment & VBA.Mid(ZWDX, Fen, 1) & "分" '转换为分的中文大写End Select'指定区域插入中文大写格式的域Set MyField = .Fields.Add(Range:=.Range, Text:="= " & IntPart & " \\*CHINESENUM2") MyField.Select '选定域(最后是用指定文本覆盖选定区域)'如果仅有角分情况下,Mychinese为""MyChinese = VBA.IIf(MyField.Result <> "零", MyField.Result,"").Text = Lable & MyChinese & OddmentEnd WithEnd Sub输入完毕后按下Alt+Q键返回word中，以后只需要依次选中需要转换的小写金额后，按下Alt+F8打开宏对话框，选择“小写金额变大写”宏（图2），并单击“运行”即可快速地得出大写金额。

转大写金额

转大写金额

转大写金额数字大写对照表
Excel中小写金额自动转换成大写1、我们打开需要转换成大写金额的数据表；
2、用鼠标选中大写金额所在单元格列，再鼠标点击右键；
3、弹出下拉选项菜单后，选择“设置单元格格式”；
4、这时就会弹出一个新的“单元格格式”对话框；
5、在对话框的分类列表中，我们选择“特殊”选项；
6、然后在类型列表中，选择“人民币大写”，再点击“确认”按钮；
7、接下来，我们回到数据表格中，在大写金额B3单元格中，输入条件函数公式=IF(A3,A3,””)，按Enter回车键，就设置好了自动转化大写金额的函数公式了；
8、最后，鼠标放到B3单元格右下角，变成黑色十字架后，鼠标双击就将其他需要设置自动转换大写金额的公式设置好了；
9、我们在小写金额单元格中输入金额时，可以看到大写金额单元格中自动的就生成了大写金额了；。

关于数字转人民币大写形式的几种方法(包含宏)

关于数字转人民币大写形式的几种方法(包含宏)

关于数字转人民币大写形式的几种方法1、输入法①QQ五笔（其他五笔未知）：先键入分号，再接着键入数字，即可显示大写内容②拼音输入（搜狗、QQ等）：先键入 “V”，再接着键入数字，即可显示大写内容以下仅限于EXCEL2、单元格格式①先在单元格内输入数字，再更改单元格格式为“特殊”-一百二十三万四千五百六十七.八九②先在单元格内输入数字，再更改单元格格式为“自定义”，选择最后一个格式：[DBNum1][$-804]G/通用格式，也可修改为[DBNum1][$-804]G/通用格式"元"-一百二十三万四千五百六十七.八九元3、工作表函数（具体使用时，请将下面公式其中的4处引用单元格换成实际表格里引用的单元格位置）：=IF(单元格=0,"",IF(单元格<0,"负","")&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(单元格)),"[DBNum2]")&"元"&TEXT(RIGHT(TEXT(单元格,".00"),2),"[DBNum2]0角0分"),"零角零分","整"),"零分","整"),"零角","零"),"零元零",""))-1234567.89负壹佰贰拾叁万肆仟伍佰陆拾柒元捌角玖分4、自定义函数（本文档包含自定义函数宏）-1234567.89负壹佰贰拾叁万肆仟伍佰陆拾柒元捌角玖分。

EXCE如何把数字转化成中文大写金额格式

EXCE如何把数字转化成中文大写金额格式

EXCEL 如何把数字转化成中文大写金额格式在EXCEL表中把数字转化成中文大写金额格式是财务人员在日常工作中的一个难题，虽然在EXCEL中的单元格格式设置中有一个特殊格式中可以转换在中文大写数字，但不能给出元、角、分整的中文金额特定格式，许多财务人员为之一筹莫展，最后只能手工输入，降低了EXCEL的使用效率，但如果TRUNC工作表函数，这个问题将迎刃而解，如单元格A1=123459.72，须在某一格记录其中文大写金额，则在该格内输入函数:="大写人民币:"&IF(TRUNC(A1)=0,"",TEXT(TRUNC(A1),"[DBNum2]G/通用格式")&"元")&IF(TRUNC(A1*10)-TRUNC(A1*10,-1)=0,IF(TRUNC(A1*100)-TRUNC(A1*100,-1)<>0,"零",""),TEXT(TRUNC(A1*10)-TRUNC(A1*10,-1),"[DBNum2]G/通用格式")&"角")&IF(TRUNC(A1*100)-TRUNC(A1*100,-1)=0,"",TEXT(TRUNC(A1*100)-TRUNC(A1*100,-1), "[DBNum2]G/通用格式")&"分")&IF(TRUNC(A1*100)-TRUNC(A1*100,-1)=0，"整"，"")回车后将得到完整的大写中文金额格式，这个函数将广泛应用于支票大家知道，在Excel中，可以通过设置单元格格式，把单元格的阿拉伯数字直接以中文数字形式来显示，但该格式并不适用于显示票据大写金额。

大写金额的公式

大写金额的公式
大写金额的公式是指将阿拉伯数字金额转换为中文大写金额的公式，其中包括以下步骤：
1. 将阿拉伯数字金额按每四位一组进行分组，从右到左依次为个位、十位、百位、千位。

2. 对每组数字进行转换，转换规则如下：
2.1 千位数字为0时，不写“千”字。

2.2 千位数字不为0时，写“千”字。

2.3 百位、十位、个位数字为0时，不写对应的数字。

2.4 百位数字不为0时，写“百”字。

2.5 十位数字不为0时，分两种情况：
2.5.1 当十位数字为1时，写“十”字。

2.5.2 当十位数字不为1时，写对应的数字加上“十”字。

2.6 个位数字不为0时，写对应的数字。

3. 对每组转换后的中文数字进行拼接，中间加上“万”、“亿”等单位。

4. 最终得到的就是中文大写金额。

例如，将阿拉伯数字金额“123456789.12”转换为中文大写金额，步骤如下：
1. 将数字分组为“12”、“3456”、“789”、“123”。

2. 转换每组数字得到“一百二十三”、“三千四百五十六”、“七百八十九”、“一百二十三”。

3. 拼接中间加上“亿”、“万”，得到“一百二十三亿三千四百五十六万七千八百九十点一二”。

4. 最终得到的中文大写金额为“壹佰贰拾叁亿叁仟肆佰伍拾陆万柒仟捌百玖拾元壹角贰分”。

货币大小写 转换

货币大小写转换
使用人民币大小写转换工具，具体操作方法如下：
1、把阿拉伯数字复制粘贴或者输入到“输入小写数字金额”中，比如（123456）；
2、然后单击“转换为大写金额”按钮。

就会在“显示中文大写金额”框里显示自动转换完成的中文大写内容；
3、最后复制转换完成的内容到需要的地方粘贴即可。

货币大写数字采用中文金额分别是壹，贰，叁，肆，伍，陆，柒，捌，玖，石头，佰，仟，万，亿，圆，角，分，零，整。

大写金额数字应用正楷或行书填写。

使用繁体中文书写数字具有防止被篡改的弊端，它用文字的形式，明确的表示了确切的意思，这是我们中华民族在文字表述上的智慧，也是象形文字较之字母文字的优势之一。

在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)”，就可看到效果。

会计数字大写转换公式

会计数字大写转换公式
会计数字大写转换公式是用于将阿拉伯数字转换为中文大写的公式。

以下是一个简单的会计数字大写转换公式的示例：
1. 整数部分：
0-9 分别对应的大写是：零、壹、贰、叁、肆、伍、陆、柒、捌、玖。

10-99 之间，可以拆分为十位和个位，例如 15 可以转换为壹拾伍，28 可以转换为贰拾捌。

之间，可以拆分为百位、十位和个位，例如 158 可以转换为壹佰伍拾捌，285 可以转换为贰佰捌拾伍。

之间，可以拆分为千位、百位、十位和个位，例如 1587 可以转换为壹仟伍佰捌拾柒，2856 可以转换为贰仟捌佰伍拾陆。

2. 小数部分：
如果小数部分只有一位，例如，可以转换为壹点伍。

如果小数部分有两位，例如，可以转换为壹点伍陆。

如果小数部分有三位，例如，可以转换为壹点伍陆捌。

这个简单的公式可以根据实际情况进行扩展和调整，以满足不同会计业务的需求。

需要注意的是，大写数字的转换应符合相关的规范和标准，以避免书写错误和歧义。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
s = replaceAll(s, regex1[i], "零"); } for (int j = 0; j < 3; j++) {
s = replaceAll(s, "零零零", "零")Байду номын сангаас s = replaceAll(s, "零零", "零"); s = replaceAll(s, regex2[j], regex3[j]); } for (int k = 0; k < 2; k++) { s = replaceAll(s, regex4[k], ""); } return s;
2. 实验内容
编写控制台模式的程序，接收用户输入的整数，然后将其转换为中文大写金额的形式。 例如：
输入：1024 输出：壹仟零肆贰拾肆
3.要求如下：
1）输入输出必须使用 cin、cout。 2）要求每个源文件仅包含单一功能模块。 3）先设计测试用的例子，并在 test.cpp 中实现，然后实现代码。 4）在实现上述要求的基础上，修改代码，使其可以转换小数形式的数据，例如输入 3.12， 转换成叁元壹角贰分。 5）在实现上述要求的基础上，修改代码，使其在输入出错时，给出错误提示，并说明 错误出现的位置。
4.实验分析
①输入 string 型字符串，将 string 型转换成 double 型，double d = atof(s.c_str()); ②四舍五入，保留两位小数，将 double 型转换成字符串，小数点消失，s = _fcvt(d, 2, &dec, &sign); ③将数字转换成中文大写，string ranslateChinese(int flag, string s)； ④ 清 除 多 余 的 零 ， string replaceAll(string src, string regex, string replacement)，string clean(string s)；
if (flag == INT_ONLY) {
newS = newS + bigLetter[s.at(i) - 48] + unit[sLength - i - 1]; } else if (flag == SMALL_ONLY) {
newS = newS + bigLetter[s.at(i) - 48] + small[sLength - i - 1]; } } return newS; } string splitNum(string s) { if ("" == s) {return "";}
string newS = intPart + smallPart; return newS; } string replaceAll(string src, string regex, string replacement) { int length = regex.length(); while (src.find(regex) < src.length()) {
cout << "测试成功！" << endl; } else {cout << "输入数据有错误，程序即将退出" << endl;} }
6. 测试数据及输出
输出结果：
7.文献
[1] C++程序设计教程/钱能著。——2 版.——北京：清华大学出版社，2005.9；
教师评语
成绩： 年月 日
5.关键代码
string roundString(string s) {
double d = atof(s.c_str()); int dec, sign; s = _fcvt(d, 2, &dec, &sign);//转换成字符串 if (s.length() >20) {
cout << "输入数据过大！" << endl;return ""; } return s; ｝
string intOnly = s.substr(0, s.size() - 2); string intPart = ranslateChinese(1, intOnly);
string smallOnly = s.substr(s.size() - 2, 2); string smallPart = ranslateChinese(2, smallOnly);
}
void Test_1() {
string s = "123.45"; if (checkNum(s)) {
s = roundString(s); s = splitNum(s); s = clean(s); const char *c = s.c_str(); assert(0==strcmp(c, "壹佰贰拾叁元肆角伍分"));
⑤test.cpp 测试文件 assert(0==strcmp(c, "壹佰贰拾叁元肆角伍分"));
assert(x)：也称断言，是 C 语言函数库中定义的带参数的宏。
如果定义了 NDEBUG 宏，那么什么不做。否则：当输入 X 为真时，什么也不做；
x 为假时，产生异常，终止程序运行，并提示导致断言失败，也就是 x 为假的代码位置。
string ranslateChinese(int flag, string s) {
int sLength = s.length(); string bigLetter[] = { "零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖" }; string unit[] = { "元", "拾", "佰", "仟", "万","拾", "佰", "仟","亿", "拾", "佰", "仟", "万","兆 ", "拾", "佰", "仟", "万"}; string small[] = { "分", "角" }; string newS = ""; for (int i = 0; i < sLength; i++) {
算法与数据结构实验报告
实验名称：将数字转换成大写金钱 学 院： 理 学 院 专业班级： 信 息 132 班 学 号： 1920135134 姓 名： 洪 宇 指导教师： 尹 宝 勇 实验时间： 2015 年 11 月 28 日
实验名称：将数字转换成大写金钱
1. 实验目的
了解 C++同 C 语言的异同，掌握多文件程序编译方法。
src.replace(src.find(regex), length, replacement); } return src; } string clean(string s) { if ("" == s) {return "";} string regex1[] = { "零仟", "零佰", "零拾" }; string regex2[] = { "零亿", "零万", "零元" }; string regex3[] = { "亿", "万", "元" }; string regex4[] = { "零角", "零分" }; for (int i = 0; i < 3; i++) {