当前位置：文档之家 › 小写金额转换大写金额函数公式

小写金额转换大写金额函数公式

  • 格式：docx
  • 大小：3.59 KB
  • 文档页数：2

小写金额转换大写金额函数公式

小写金额转换成大写金额是我们在日常生活和工作中经常会遇到的问题。无论是在填写支票、填写发票、办理贷款还是进行财务报表的编制，都需要将小写金额转换成大写金额。这个过程虽然简单，但却是非常重要的，因为任何一个错误都可能导致不必要的损失或麻烦。

在进行小写金额转换成大写金额时，我们通常使用的是中文的读法，即将数字转换成对应的汉字。例如，将“123”转换成“壹佰贰拾叁”。这种方式简单直观，容易理解。但对于一些较大的金额，汉字的读法可能会比较复杂，需要一定的规律和技巧来进行转换。

在进行小写金额转换成大写金额时，我们可以按照以下规律进行转换：

1. 将小写金额从右到左每四位一组进行分组，最后不足四位的补零。例如，将“1234567890”分成“0001 2345 6789 0000”。

2. 对每一组数字进行转换，从高位到低位依次转换。例如，对于“0001 2345 6789 0000”，先转换第一组“0001”，再转换第二组“2345”，以此类推。

3. 对于每一组数字，首先将高位的数字转换成对应的汉字，然后加上对应的单位。例如，对于第一组“0001”，将“1”转换成“壹”，再加上“万”。

4. 对于每一组中的每一位数字，按照规定的读法进行转换。例如，将“2345”转换成“贰仟叁佰肆拾伍”。

按照以上规律，我们可以将任意的小写金额转换成大写金额。例如，将“1234567890”转换成“壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾元整”。

在实际操作中，我们可以编写一个函数来实现小写金额转换成大写金额。这个函数可以接受一个小写金额作为输入，并返回对应的大写金额。函数的实现可以分为以下几个步骤：

1. 将小写金额按照每四位一组进行分组，并补零。

2. 对每一组数字进行转换，得到对应的汉字。

3. 将每一组数字转换后的汉字加上对应的单位。

4. 将每一组数字转换后的汉字连接起来，得到最终的大写金额。

通过以上步骤，我们可以编写一个简单而有效的小写金额转换成大写金额的函数。这个函数可以方便地在各种场合中使用，提高工作效率，减少错误的发生。

小写金额转换成大写金额虽然看似简单，但却是我们在日常生活和工作中必须要掌握的基本技能。通过掌握小写金额转换成大写金额的规律和方法，我们可以更加准确地进行金额的书写和计算，避免不必要的错误和麻烦。希望通过本文的介绍，能对大家有所帮助。

合集下载

excel金额大小写转换公式用法(二)

excel金额大小写转换公式用法(二)

本文整理于网络，仅供阅读参考

excel金额大小写转换公式用法（二）

excel金额大小写转换公式用法（一） 步骤1：数字转人民币大写形式的公式是：

=if(b1excel金额大小写转换公式用法（二） 步骤1：通过宏vba自定义函数实现第一步：按下alt+f11组合键，或者是单击工具——宏——visual basic编辑器，进入visual basic编程环境，单击“插入” 菜单——模块，复制下面代码，保存，退出关闭。function n2rmb(m)

y = int(round(100 * abs(m)) / 100)

j = round(100 * abs(m) + 0.00001) - y * 100

f = (j / 10 - int(j / 10)) * 10

a = iif(y 9.5, application.text(int(j / 10),

"[dbnum2]") & "角", iif(y 1, "零", "")))

c = iif(f 看了excel金额大小写转换公式的用法

如何将金额自动变成大写

如何将金额自动变成大写

B1=IF(A1<0,"负",)&TEXT(TRUNC(ABS(A1)),"[DBNum2]G/通用格式")&"元"&IF(ROUND(A1,3)=ROUND(A2,),"整",TEXT(RIGHT(TRUNC(A1*10),1),"[DBNum2]G/通用格式")&"角"&IF(ROUND(A1,3)=ROUND(A1,1),"整",TEXT(RIGHT(ROUND((A1*100),),1),"[DBNum2]G/通用格式")&"分"))

=IF(A1="","",IF(A1<0,"负",)&IF(INT(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表格中人民币小写金额自动转大写金额的方法

一个自定义函数就可以实现！！！

使用自定义函数

下面就通过此例也来介绍使用自定义函数的全过程，即使是初学Excel的朋友，也会感觉其操作实际上是非常简单的。

1. 选择菜单“工具→宏→Visual Basic编辑器”命令，打开Visual Basic窗口，我们将在这里自定义函数。

2. 进入Visual Basic窗口后，选择菜单“插入→模块”命令，于是得到“模块1”，在其中输入如下自定义函数的代码(如图1)： 1. Function DX(n)

2. DX = Replace(Application.Text(Round(n + 0.00000001, 2), "[DBnum2]"),

Excel金额大写公式详解

Excel金额大写公式详解

Excel金额大写公式详解

人民币大写的公式很多，随便百度就能找到一堆，但网上的公式多无原理解析，知其然而不知其所以然，用的时候只能将公式复制过去，总有几分不完美

那么一起来追根究底吧，长文预警，今天的内容1400字

================

先搜个金额大写公式再就公式进行解析网上相关公式太多，选个稍微短点的，公式如下 ▼

=TEXT(LEFT(RMB(A1),LEN(RMB(A1))-3),'[>0][dbnum2]G/通用格式元;[<0]负[dbnum2]G/通用格式元;;') &

TEXT(RIGHT(RMB(A1),2),'[dbnum2]0角0分;;整')

表示完全看不懂

1、如何快速看懂长公式？

▼ Excel公式求值

Excel自带公式求值，可查看公式每步计算结果，通过查看每步计算结果分析思路在A1单元格中输入小写金额，B1中输入以上公式

选中B1单元格，【公式】-【公式审核】-【公式求值】

运行求值，查看每一步运算结果，如下图：通过查看计算步骤得知，金额小写转为大写主要通过格式转换函数TEXT函数，将金额分两部分转换为大写金额，整数部分大写 小数点部分大写

提到格式转换，Excel单元格格式设置中就有金额大写转换

【数字】-【特殊】-【中文大写数字】如A1单元格金额201711.06单元格格式转换后显示为贰拾万壹仟柒佰壹拾壹.零陆

距离我们想要的金额大写很接近了，如果能将数字大写格式转换的代码找到就可用于金额大写中

2、如何查看格式转换代码？

▼ 点击对应格式后，点击自定义，显示对应代码点击 【特殊】-【中文大写数字】后点击自定义代码为【[DBNum2][$-804]G/通用格式】

其中[$-804]表示国家或地区（语言）编号，一般可以不填，可直接忽略

提取有用部分：[DBNum2]G/通用格式其中[DBNum2]表示将数字大写G/通用格式表示以常规的数字显示——数字不发生任何变化

怎样设置excel表可以在输入小写金额的同时自动填充大写金额？

怎样设置excel表可以在输入小写金额的同时自动填充大写金额？

⼊⼩写⾦额，⼤写⾦额⾃动⽣成的⽅法（有公式及动画步聚操作）怎样设置excel表可以在输⼊⼩写⾦额的同时⾃动填充⼤写⾦额？

怎样设置excel表可以在输⼊⼩写⾦额的同时⾃动填充⼤写⾦额？

平时⼯作⽤到EXCEL时，经常会遇到输⼊⼩写⾦额，然后还得把⼤写⾦额再打⼀遍，⽐较⿇烦，现在只需输

⼊⼩写⾦额，⼤写⾦额则会⾃动随着变化，我刚刚试过，很实⽤，真的⾮常棒!

输⼊函数(复制粘贴即可)

=IF(A1<0,"⽆效值",IF(A1=0,"零元",IF(A1<1,"",TEXT(INT(A1),"[DBNUM2]")&"元")&IF(INT(A1*10)-

INT(A1)*10=0,IF((INT(A1)*(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为⼩写⾦额单元格)，然后回车即可，以后⼩写⾦额内

输⼊任何数值，⼤写⾦额会⾃动改变过来 !

平时⼯作⽤到EXCEL时，经常会遇到输⼊⼩写⾦额，然后还得把⼤写⾦额再打⼀遍，⽐较⿇烦，现在只需输⼊⼩写⾦额，

⼤写⾦额则会⾃动随着变化，我刚刚试过，很实⽤，真的⾮常棒!

输⼊函数(复制粘贴即可)=IF(A1<0,"⽆效值",IF(A1=0,"零元",IF(A1<1,"",TEXT(INT(A1),"[DBNUM2]")&"元")&IF(INT(A1*10)-

INT(A1)*10=0,IF((INT(A1)*(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]")&"分")))