excel 2007 自动将小写金额转换成大写金额的方法
我的图书馆
excel 2007 自动将小写金额转换成大写金额的方法
&&&&&引言&&,在公司经常需要写资金申请单,在最后金额总计处总会涉及人民币大小写的选项,有的时候非常忙,经常搞的焦头烂额的,改了小写的金额,忘了改大写的金额,找领导签字时被领导一顿K是难免的.怎么办呢,其实很简单只要一个函数或者是财务人员excel功夫了得,在涉及表格的时候就该为我们设计好贴心的申请表格.没办法,我们公司的财务表格使用的不是很好.自己来解决吧.&&首先根据公司资金申请表的形式做了如下修改.1&&&实现每次当想填写资金申请表时都显示当前的时间,这个在网上搜索了下,只要在要显示日期的位置加入一个函数即可&&&如&&=TODAY()&&&&&,但是这样显示的是2013/*/*,不合适,还需手工将短日期格式改成长日期格式.2&&&&对于人民币大小写 一直是个头痛的问题,在excelhome找到了一个自定义函数可以实现自动转换的功能,跟大家一起分享下.具体代码如下:Function N2RMB(M)&&&N2RMB = Replace(Application.Text(Round(M + 0.), "[DBnum2]"), ".", "元")&&&N2RMB = IIf(Left(Right(N2RMB, 3), 1) = "元", Left(N2RMB, Len(N2RMB) - 1) & "角" & Right(N2RMB, 1) & "分", IIf(Left(Right(N2RMB, 2), 1) = "元", N2RMB & "角整", IIf(N2RMB = "零", "", N2RMB & "元整")))N2RMB = Replace(Replace(Replace(Replace(N2RMB, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")End Function将以上代码添加到自定义函数,然后在要转换的大小写单元格&&直接调用函数 N2RMB即可实现大小写的自动转换.=N2RMB(单元格).插入数据并调用函数结果如下.
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&60.211.163.*
非常有用，万分感谢！
我上面的公式对你有用吗？
右键-&设置单元格格式-&数字-&特殊-&中文大写数字
就可以了，如图所示。
--------------------------
如果要实现你后来补充的效果，需要书写EXCEL公式。
=IF(A1=INT(A1),"￥"&TEXT(A1,"[DBNUM2]")&"元整",IF(INT(A1*10)=A1*10,"￥"&TEXT(INT(A1),"[DBNUM2]")&"元"&TEXT((INT(A1*10)-INT(A1)*10),"[DBNUM2]")&"角整","￥"&TEXT(INT(A1),"[DBNUM2]")&"元"&IF(INT(A1*10)=INT(A1)*10,"零",TEXT(INT(A1*10)-INT(A1)*10,"[DBNUM2]")&"角")&TEXT(INT(100*ROUND(A1,2))-FLOOR(100*ROUND(A1,2),10),"[DBNUM2]")&"分"))
哇噻的公式基本没有问题，不过对12.326这样的数字处理有点小小的问题。我在此基础上做了一点小修改，就是最后分的处理上
选择小数点后第二位而不是最后一位，同时四舍五入。
218.22.198.*
楼上的主人真是厉害,佩服.佩服呀
学长，我也非常感谢你！谢谢你第一个出来为我解决难题！
但答案只能选一个，如果可以选两个就好了！
您的举报已经提交成功，我们将尽快处理，谢谢！
=IF(ABS(A2)&0.005,"",IF(A2&0,"负",)&IF(INT(ABS(A2)),TEXT(INT(ABS(A2)),"[dbnum2]")...
分两格，人民币符号一格，金额放在另一格，再把人民币符号那一格设靠右。再去把金额转换成大写。
汉字大写金额数字，一律用正楷字或行书字书写，如壹（▲）、贰（▲）、叁、肆（▲）、伍（▲）、陆（▲）、柒、捌、玖、拾（▲）、佰、仟、万（▲）、亿、圆（元）、角、分...
这是标准银行要求的小写转大写，公式复杂点，但效果很好。
请见附件。
大家还关注支票大写金额怎么写-金投银行频道-金投网
网友评论：
来源：金投银行
编辑：wangshiyun
摘要：支票大写金额怎么写？出票日期（大写）：数字必须大写，大写数字写法：零、壹、贰、叁、肆、伍、陆、柒、捌、玖、拾。
大写金额怎么写？支票在会计日常工作中接触得非常多，签发和接收支票中也存在着很多细节，工作中稍不注意这些细节，支票就得作废。首先了解下支票要填写的内容：
1、日期（大写）；
2、金额，大写金额靠左侧；小写金额；
3、盖章。财务专用章和法人代表人名章。
4、预留密码的还要填写密码。 支票是商务活动中使用最多的票据，业务人员在收支票时要提防&支票陷阱&，因为票据退票会带给企业难以弥补的财务损失。现就实际业务中可能存在的&支票陷阱&加以说明。
支票大写金额怎么写：
1、出票日期（大写）：数字必须大写，大写数字写法：零、壹、贰、叁、肆、伍、陆、柒、捌、玖、拾。
举例：日：贰零零伍年捌月零伍日捌月前零字可写也可不写，伍日前零字必写。日：贰零零陆年零贰月壹拾叁日。
(1)&壹月贰月前零字必写，叁月至玖月前零字可写可不写。拾月至拾贰月必须写成壹拾月、壹拾壹月、壹拾贰月(前面多写了&零&字也认可，如零壹拾月)。
(2)&壹日至玖日前零字必写，拾日至拾玖日必须写成壹拾日及壹拾X日（前面多写了&零&字也认可，如零壹拾伍日，下同），贰拾日至贰拾玖日必须写成贰拾日及贰拾X日，叁拾日至叁拾壹日必须写成叁拾日及叁拾壹日。
2、收款人：(1)&现金支票收款人可写为本单位名称，此时现金支票背面&被背书人&栏内加盖本单位的财务专用章和法人章，之后收款人可凭现金支票直接到开户银行提取现金。（由于有的银行各营业点联网，所以也可到联网营业点取款，具体要看联网覆盖范围而定）。
(2)&现金支票收款人可写为收款人个人姓名，此时现金支票背面不盖任何章，收款人在现金支票背面填上身份证号码和发证机关名称，凭身份证和现金支票签字领款。
(3)&转帐支票收款人应填写为对方单位名称。转帐支票背面本单位不盖章。收款单位取得转帐支票后，在支票背面被背书栏内加盖收款单位财务专用章和法人章，填写好银行进帐单后连同该支票交给收款单位的开户银行委托银行收款。
3、付款行名称、出票人帐号：即为本单位开户银行名称及银行帐号，例如：高新支行九莲分理处0088888帐号小写。
4、人民币（大写）：数字大写写法：零、壹、贰、叁、肆、伍、陆、柒、捌、玖、亿、万、仟、佰、拾。注意：&万&字不带单人旁。
举例：(1)&289,546.52&贰拾捌万玖仟伍佰肆拾陆元伍角贰分。
(2)&7,560.31&柒仟伍佰陆拾元零叁角壹分，此时&&陆拾元零叁角壹分&&零&字可写可不写。
(3)&532.00&伍佰叁拾贰元正，&正&写为&整&字也可以。不能写为&零角零分&。
(4)&425.03&肆佰贰拾伍元零叁分。
(5)&325.20&叁佰贰拾伍元贰角。角字后面可加&正&字，但不能写&零分&，比较特殊。
5、人民币小写：最高金额的前一位空白格用&羊&字头打掉，数字填写要求完整清楚。
6、用途：(1)&现金支票有一定限制，一般填写&备用金&、&差旅费&、&工资&、&劳务费&等。
(2)&转帐支票没有具体规定，可填写如&货款&、&代理费&等等。
7、盖章：支票正面盖财务专用章和法人章，缺一不可，印泥为红色，印章必须清晰，印章模糊只能将本张支票作废，换一张重新填写重新盖章。反面盖章与否见&收款人&。
【免责声明】金投网发布此信息目的在于传播更多信息，与本网站立场无关。金投网不保证该信息（包括但不限于文字、数据及图表）全部或者部分内容的准确性、真实性、完整性、有效性、及时性、原创性等。相关信息并未经过本网站证实，不对您构成任何投资建议，据此操作，风险自担。
☆ 全币种消费人民币还款☆ 有效期内无附加条件免年费☆ 全球用卡服务及商户礼遇☆ 高额旅行保险赠送
☆店内消费积分最高可折抵1％☆店内店外，均可想分就分☆ 商户礼遇计划☆ 境外使用，都可选择人民币还款。
☆网购享积分礼遇 ☆购物可用积分抵现金 ☆首笔取现交易手续费全免
☆首张女性专属信用卡，具备三倍积分计划、自选保险计划等功能服务
☆ 每月首笔取现免手续费 ☆ 每年农历大年初五“财星日”红包派送 ☆ 财星专享积分礼品
☆全国特惠商户任意游 商旅酒店预定伴您行
额度：5-10万
额度：10-50万
额度：10-50万
额度：50万以上
额度：50万以上
额度：50万以上
额度：10-50万
额度：50万以上
额度：0-5万
☆ 全币种消费人民币还款☆ 有效期内无附加条件免年费☆ 全球用卡服务及商户礼遇☆ 高
☆店内消费积分最高可折抵1％☆店内店外，均可想分就分☆ 商户礼遇计划☆ 境外使用，都
☆网购享积分礼遇 ☆购物可用积分抵现金 ☆首笔取现交易手续费全免
☆首张女性专属信用卡，具备三倍积分计划、自选保险计划等功能服务
存款计算器◆
信用卡计算器◆
贷款计算器◆
13天后，美国有一件大事儿将发生——美联储议息会议来了！这次耶伦会...
“部分银行atm取现政策调整，跨行取款手续费上涨！”这条消息炸开了锅...
邮政银行上市最新消息：错过了阿里巴巴，港交所这次再也没错过另一宇...
据了解，史上最严银行理财新规出炉了！金投网小编提醒，所谓“银行理...
版权所有 (C) 金投网 gold.org 浙ICP备号 经营许可证编号：浙B2-
为方便用户快速收藏本站，请牢记本站易记网址：<
本站信息仅供投资者参考，不作为投资建议！本站所有广告均由第三方提供！联系管理员：webmaster@cngold.org　欢迎投稿：tougao@cngold.org
我的意见：怎么用Excel将小写金额转换成人民币的大写金额_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
怎么用Excel将小写金额转换成人民币的大写金额
上传于|0|0|文档简介
&&怎么用Excel将小写金额转换成人民币的大写金额
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢ORACLE小写金额转大写金额
ORACLE小写金额转大写金额
Create Or Replace Function Money2Chinese(Money In Number) Return Varchar2 Is
Varchar2(150);
strYuanFen
Varchar2(152);
numLenYuan
numLenYuanFen N
strRstYuan
Varchar2(600);
Varchar2(200);
Varchar2(800);
Type typeTabMapping Is Table Of Varchar2(2) Index By Binary_I
tabNumMapping
tabUnitMapping typeTabM
numUnitIndex
charCurrentNum Char(1);
If Money Is Null Then
strYuan := TO_CHAR(FLOOR(Money));
If strYuan = &#39;0&#39; Then
numLenYuan := 0;
strYuanFen := lpad(TO_CHAR(FLOOR(Money * 100)), 2, &#39;0&#39;);
numLenYuan := length(strYuan);
strYuanFen := TO_CHAR(FLOOR(Money * 100));
If strYuanFen = &#39;0&#39; Then
numLenYuanFen := 0;
numLenYuanFen := length(strYuanFen);
If numLenYuan = 0 Or numLenYuanFen = 0 Then
strRst := &#39;零圆整&#39;;
Return strR
tabNumMapping(0) := &#39;零&#39;;
tabNumMapping(1) := &#39;壹&#39;;
tabNumMapping(2) := &#39;贰&#39;;
tabNumMapping(3) := &#39;叁&#39;;
tabNumMapping(4) := &#39;肆&#39;;
tabNumMapping(5) := &#39;伍&#39;;
tabNumMapping(6) := &#39;陆&#39;;
tabNumMapping(7) := &#39;柒&#39;;
tabNumMapping(8) := &#39;捌&#39;;
tabNumMapping(9) := &#39;玖&#39;;
tabUnitMapping(-2) := &#39;分&#39;;
tabUnitMapping(-1) := &#39;角&#39;;
tabUnitMapping(1) := &#39;&#39;;
tabUnitMapping(2) := &#39;拾&#39;;
tabUnitMapping(3) := &#39;佰&#39;;
tabUnitMapping(4) := &#39;仟&#39;;
tabUnitMapping(5) := &#39;万&#39;;
tabUnitMapping(6) := &#39;拾&#39;;
tabUnitMapping(7) := &#39;佰&#39;;
tabUnitMapping(8) := &#39;仟&#39;;
tabUnitMapping(9) := &#39;亿&#39;;
For i In 1 .. numLenYuan Loop
:= numLenYuan - i + 1;
numUnitIndex := Mod(i, 8);
If numUnitIndex = 0 Then
numUnitIndex := 8;
If numUnitIndex = 1 And i & 1 Then
strRstYuan := tabUnitMapping(9) || strRstY
charCurrentNum := substr(strYuan, j, 1);
If charCurrentNum && 0 Then
strRstYuan := tabNumMapping(charCurrentNum) ||
tabUnitMapping(numUnitIndex) || strRstY
If (i = 1 Or i = 5) Then
If substr(strYuan, j - 3, 4) && &#39;0000&#39; Then
strRstYuan := tabUnitMapping(numUnitIndex) || strRstY
If substr(strYuan, j + 1, 1) && &#39;0&#39; Then
strRstYuan := tabNumMapping(charCurrentNum) || strRstY
For i In -2 .. -1 Loop
:= numLenYuan -
charCurrentNum := substr(strYuanFen, j, 1);
If charCurrentNum && &#39;0&#39; Then
strRstFen := tabNumMapping(charCurrentNum) || tabUnitMapping(i) ||
If strRstYuan Is Not Null Then
strRstYuan := strRstYuan || &#39;圆&#39;;
If strRstFen Is Null Then
strRstYuan := strRstYuan || &#39;整&#39;;
Elsif length(strRstFen) = 2 And substr(strRstFen, 2) = &#39;角&#39; Then
strRstFen := strRstFen || &#39;整&#39;;
strRst := strRstYuan || strRstF
--strRst := Replace(strRst, &#39;亿零&#39;, &#39;亿&#39;);
--strRst := Replace(strRst, &#39;万零&#39;, &#39;万&#39;);
Return strR
End Money2C
测试SQL如下：
Select Money2Chinese(4.213) F
玖仟叁佰贰拾肆亿零贰佰玖拾叁万肆仟零贰拾肆圆贰角壹分
(window.slotbydup=window.slotbydup || []).push({
id: '2467140',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467141',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467142',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467143',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467148',
container: s,
size: '1000,90',
display: 'inlay-fix'