小写金额转换大写金额公式(小写金额转换大写金额公式怎么写)

Word办公小技巧：将阿拉伯数字转换为人民币大写格式

本文介绍了三种在word中将阿拉伯数字转换为人民币大写格式的方法，前两种比较简单，但是不完美，最后一种使用函数方式完美解决转换问题。

在报价书、投标书、竞价谈判文件等一类文件中，经常要把数字价格改写为大写格式，遇到数字多时，输入也挺费事的，因为这些字不常用，尤其是对于键盘不熟悉不能实现盲打的小伙伴。

下面介绍三种将数字几个转换为大写的方法。

一、用“编号”功能直接转换

1、选中在word中的要转化为大写的数字，点击“插入”菜单中的“编号”功能，调出对话框。

2、选择大写的编号类型，数字就转换好了。

虽然到这里已经把数字改为大写，但是有几个事项需要注意：

（1）大写的“萬”需要改回小写的“万”，因为现在标准书写已经不用大写的，而使用小写的了。

（2）没有货币单位在后面，所以要自己添加“元、整”等字样，添加后正确的为：壹拾贰万叁仟肆佰伍拾陆元整。

（3）这种方法有局限性，只能改写0-999999之间的数字，100万及以上的数字就不支持了。

（4）这种方法不支持有小数点后的数字，如果有小数点，只会转换小数点之前的。

二、使用excel的格式转换功能

第一种方法有局限性，遇上超过百万且复杂的数字，可以借助excel来实现。

1、将数字填入excel的单元格中，右键快捷菜单中，选择单元格格式功能选项。

2、在“分类”中，选择“中文大写数字”，即可完成数字的大小写转换。

3、选中单元格，复制，将改写后的数字拷贝到word中即可。注意，粘贴到word中时，要选择“只保留文本”选项，不然复制过来的还是数字。

注意，这种方法也有缺陷。虽然能转换复杂的且带有小数点的数字，但没有带单位，需要自己添加单位“元”、“角”、“分”等。添加完成后正确的是：壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元.壹角贰分。

三、使用excel的强大函数功能完美解决问题

前两种方法虽然简单，但是都有缺陷，完美的解决办法是借用excel的函数功能，使用到了if函数（判断）、round函数（四舍五入）、text函数（显示方式更改）、int函数（取整）等函数，比较复杂，编号的代码已经放在文本中了，复制到单元格中即可进行转化。

注意：代码中的“A1”是指将单元格A1的数值进行转换，也可以换成其他的单元格。

=IF(ROUND(A1,2)<0,"无效数值","人民币"&IF(ROUND(A1,2)=0,"零元",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&"分")))

这种方法可以完美的解决转换问题，带有货币单位，在excel里转换好，拷贝到word中即可。

Oracle实现金额小写转大写函数

函数代码：

create or replace function F_upper_money(p_num in number default null)return nvarchar2 is/*Ver:1.0 Created By xsb on 2003-8-18 For: 将金额数字(单位元)转换为大写(采用从低至高算法) 数字整数部分不得超过16位,可以是负数。Ver：1.1 Modified By xsb on 2003-8-20 For:个位数处理也放在For循环中。 Ver：1.2 Modified By xsb on 2003-8-22 For:分后不带整字。Ver：1.3 Modified By xsb on 2003-8-28 For:完善测试用例。测试用例:SET HEAD OFFSET FEED OFFselect '无参数时='||f_upper_money() from dual;select 'null='||f_upper_money(null) from dual;select '0='||f_upper_money(0) from dual;select '0.01='||f_upper_money(0.01) from dual;select '0.126='||f_upper_money(0.126) from dual;select '01.234='||f_upper_money(01.234) from dual;select '10='||f_upper_money(10) from dual;select '100.1='||f_upper_money(100.1) from dual;select '100.01='||f_upper_money(100.01) from dual;select '10000='||f_upper_money(10000) from dual;select '10012.12='||f_upper_money(10012.12) from dual; select '20000020.01='||f_upper_money(20000020.01) from dual;select '3040506708.901='||f_upper_money(3040506708.901) from dual;select '40005006078.001='||f_upper_money(40005006078.001) from dual;select '-123456789.98='||f_upper_money(-123456789.98) from dual;select '123456789123456789.89='||f_upper_money(123456789123456789.89) from dual;*/Result nvarchar2(100);--返回字符串num_round nvarchar2(100) :=to_char(abs(round(p_num,2)));--转换数字为小数点后2位的字符(正数)num_left nvarchar2(100);--小数点左边的数字num_right nvarchar2(2);--小数点右边的数字str1 nchar(10) :='零壹贰参肆伍陆柒捌玖';--数字大写str2 nchar(16) :='元拾佰仟万拾佰仟亿拾佰仟万拾佰仟';--数字位数(从低至高)num_pre number(1):=1;--前一位上的数字num_current number(1);--当前位上的数字num_count number:=0;--当前数字位数beginif p_num is null then return null;end if;--转换数字为null时返回nullselect to_char(nvl(substr(to_char(num_round),1,decode(instr(to_char(num_round),'.'),0,length(num_round),instr(to_char(num_round),'.')-1)),0)) into num_left from dual;--取得小数点左边的数字select substr(to_char(num_round),decode(instr(to_char(num_round),'.'),0,length(num_round)+1,instr(to_char(num_round),'.')+1),2)into num_right from dual;--取得小数点右边的数字if length(num_left)>16 then return '**********'; end if;--数字整数部分超过16位时 --采用从低至高的算法，先处理小数点右边的数字 if length(num_right)=2 then if to_number(substr(num_right,1,1))=0 then result:='零'||substr(str1,to_number(substr(num_right,2,1))+1,1)||'分'; else result:=substr(str1,to_number(substr(num_right,1,1))+1,1)||'角'|| substr(str1,to_number(substr(num_right,2,1))+1,1)||'分'; end if; elsif length(num_right)=1 then result:=substr(str1,to_number(substr(num_right,1,1))+1,1)||'角整'; else result :='整'; end if; --再处理小数点左边的数字 for i in reverse 1..length(num_left) loop --(从低至高) num_count:=num_count+1;--当前数字位数 num_current:=to_number(substr(num_left,i,1));--当前位上的数字 if num_current>0 then --当前位上数字不为0按正常处理 result:=substr(str1,num_current+1,1)||substr(str2,num_count,1)||result; else --当前位上数字为0时 if mod(num_count-1,4)=0 then --当前位是元、万或亿时 result:=substr(str2,num_count,1)||result; num_pre:=0;--元、万,亿前不准加零 end if; if num_pre>0 or length(num_left)=1 then --上一位数字不为0或只有个位时 result:=substr(str1,num_current+1,1)||result; end if; end if; num_pre:=num_current; end loop; if p_num<0 then --转换数字是负数时 result:='负'||result; end if; return Result; exception when others then raise_application_error(-20001,'数字转换大写出现错误！'||sqlerrm);end ;

测试用例：

-- 无参数，结果为：null=select 'null='||f_upper_money(null) total from dual;-- 0=零元整select '0='||f_upper_money(0) total from dual;-- 0.05=零元零伍分select '0.05='||f_upper_money(0.05) total from dual;-- 0.155=零元壹角陆分select '0.155='||f_upper_money(0.155) total from dual;-- 01.125=壹元壹角参分select '01.125='||f_upper_money(01.125) total from dual;-- 10=壹拾元整select '10='||f_upper_money(10) total from dual;-- 100.5=壹佰元伍角整select '100.5='||f_upper_money(100.5) total from dual;-- 100.05=壹佰元零伍分select '100.05='||f_upper_money(100.05) from dual;-- 10000=壹万元整select '10000='||f_upper_money(10000) from dual;-- 10025.52=壹万零贰拾伍元伍角贰分select '10025.52='||f_upper_money(10025.52) from dual;-- 50000020.05=伍仟万零贰拾元零伍分select '50000020.05='||f_upper_money(50000020.05) from dual;-- 5040302105.501=伍拾亿肆仟零参拾万贰仟壹佰零伍元伍角整select '5040302105.501='||f_upper_money(5040302105.501) from dual;-- 50002001075.001=伍佰亿零贰佰万壹仟零柒拾伍元整select '50002001075.001='||f_upper_money(50002001075.001) from dual;-- -123456789.15=负壹亿贰仟参佰肆拾伍万陆仟柒佰捌拾玖元壹角伍分select '-123456789.15='||f_upper_money(-123456789.15) from dual;-- 123456789123456789.89=**********select '123456789123456789.89='||f_upper_money(123456789123456789.89) from dual;

财务必备，Excel数字小写转大写完美公式，正负数、小数皆可转换

Excel小写数字如何转换成中文大写？

工作中经常遇到需要将数字转换为中文大写，比如差旅费报销的时候，我们在Excel中填写好数据之后，如何自动转换成大写金额呢？

选中需要转换的数字，右键选择“设置单元格格式”（快捷键Ctrl+1）；依次点击【特殊】—【中文大写数字】，即可。

我们来看下转换的效果：

可以发现的是，设置单元格格式这种方法仅适用于正整数的情况，如果出现负数或者小数，并不能很好地转换成中文大写。

NUMBERSTRING函数是Excel中的一个隐藏函数，可以将数据大写化。

语法：NUMBERSTRING（数字，类型）

参数二有三种类型供选择，分别是1/2/3，这里我们选择2,（大写中文），其它两种小伙伴们自行尝试。

转换效果如下所示：

上图可以看出，NUMBERSTRING函数转换效果基本同设置单元格格式法，仅能转换正整数，在遇到负数的时候会直接报错，小数则直接截断，不进行转换。

B2单元格输入以下公式：

=IF(A2<0,"负","")&IF(TRUNC(A2)=A2,TEXT(IF(A2<0,-A2,A2),"[DBNum2]")&"元整",IF(TRUNC(A2*10)=A2*10,TEXT(TRUNC(IF(A2<0,-A2,A2)),"[DBNum2]")&"元"&TEXT(RIGHT(A2),"[DBNum2]")&"角整",TEXT(TRUNC(A2),"[DBNum2]")&"元"&IF(ISNUMBER(FIND(".0",A2)),"零",TEXT(LEFT(RIGHT(A2,2)),"[DBNum2]")&"角")&TEXT(RIGHT(A2),"[DBNum2]")&"分"))

有点长，o(╯□╰)o

转换效果：

转换效果堪称完美，正数、负数、小数皆正确转换成中文。

公式解读：

公式整体是利用IF函数进行多层次判断，判断数据是否为负、是否为整数、为1位小数还是2位小数。

第一个IF函数用于判断数值是否小于0，如果小于0，则在范围内容的最前方加一个"负"字；

第二个IF函数用于判断数值是否为整数，TRUNC函数直接对数字格式的数据进行截断，这里参数2未输入，默认取整；取整后的数字等于数字，代表该数字是整数；

第三个IF函数用于判断数值是否为1位小数；如果为1位小数，分别取出整数与分数部分、转换大写，并添加单位；

最后一步默认数值是2位小数，分别取整数、小数部分进行转换以及添加单位。

[DBNum2]是数字格式函数，将数字转换成中文大写。

公式整体逻辑如此，小伙伴们对照着看下就好，涉及到的函数都比较简单，只不过需要多层嵌套，理清逻辑即可。

以上就是Excel中关于数字转换成大写中文的小技巧，分享给大家，希望有所帮助，我们下期再见~