excl表格自动生成大写后加单位.docx
- 文档编号:23217651
- 上传时间:2023-05-15
- 格式:DOCX
- 页数:6
- 大小:17.04KB
excl表格自动生成大写后加单位.docx
《excl表格自动生成大写后加单位.docx》由会员分享,可在线阅读,更多相关《excl表格自动生成大写后加单位.docx(6页珍藏版)》请在冰豆网上搜索。
excl表格自动生成大写后加单位
竭诚为您提供优质文档/双击可除
excl表格自动生成大写后加单位
篇一:
excel表格怎么自动换算金额大写
excel表格怎么自动换算金额大写:
a1是123.45,a2我怎么能出现壹佰贰拾叁元肆角伍分!
!
!
第一步,打开已有的表格,同时把这个网页也打开,稍后能用到这个公式。
因为公式太长,必须得用复制,粘贴的方法,才保准。
第二步,复制公式,冒号后一个也不能落下。
即:
=substitute(substitute(iF(a1 ","")&text(tRunc(abs(Round(a1,2))),"[dbnum2]")&"元
"&iF(iseRR(Fi(excl表格自动生成大写后加单位)nd(".",Round(a1,2))),"",text(Right(tRunc(Round(a1,2)*10)),"[dbnum2]"))&iF(iseRR(Find(".0",text(a1,"0.00"))),"角
","")&iF(leFt(Right(Round(a1,2),3))=".",text(Right(Round(a1,2)),"[dbnum2]")&"分",iF(Round(a1,2)=0,"","整")),"零元零",""),"零元","")。
第三步,双击进入a2,使a2单元格中有光标在闪,点粘贴。
第四步,回车。
2.如果没有小数点的,就直接在单元格右击-设置单元格格式-特殊-中文大写数字。
3.a列格式为数值-货币,b列格式为特殊-中文大写数字-自定义-格式后加上圆整函数:
b1=a1
excel表格中怎么设置美元的大写金额
1.比如说1.2美元输入自动变成“壹美元贰美分”这样。
选中要输入数据的区域,右击>"设置单元格格式">"数字">"自定义">0"美元"0"美分",
将数据扩大10倍输入,如1.2美元只输入"12"即可.
数字要设置成大写呢?
应该怎么设置?
选中要输入数据的区域,右击>"设置单元格格式">"数字">"自定义
">"[dbnum2][$-804]g/通用格式"
>"确定",效果如图:
或者用如下公式转换:
=text(int(a1),"[dbnum2][$-804]g/通用格式")&"美元
"&text((a1-int(a1))*10,"[dbnum2][$-804]g/通用格式")&"美分"
效果如图:
继续追问:
到这里以后是如何设置成美元美分的公式怎么出来的哦?
补充回答:
直接设置的话,我目前只会设置到此()效果。
用公式的话,直接从12.5单元格转换,不需设置格式。
2.假设在c6,以下为中文大写
3.=iF(int(c6)-c6=0,text(c6,"[dbnum2][$-804]g/通用格式""美元整"""),text(int(c6),"[dbnum2][$-804]g/通用格式""美元""")&text(Right(c6,len(c6)-Find(".",c6)),"[dbnum2][$-804]g/通用格式""美分"""))
补充回答:
公式短一点:
=substitute(text(c6,"[dbnum2][$-804]g/通用格式"),".","美元")&"美分"4.excel表格中设置美元的大写金额
假设在c6,以下为中文大写
=substitute(text(c6,"[dbnum2][$-804]g/通用格式"),".","美元")&"美分"人民币金额大写的excel公式
公式一:
substitute(substitute(iF(a1 ","")&text(tRunc(abs(Round(a1,2))),"[dbnum2]")&"元
"&iF(iseRR(Find(".",Round(a1,2))),"",text(Right(tRunc(Round(a1,2)*10)),"[dbnum2]"))&iF(iseRR(Find(".0",text(a1,"0.00"))),"角
","")&iF(leFt(Right(Round(a1,2),3))=".",text(Right(Round(a1,2)),"[dbnum2]")&"分",iF(Round(a1,2)=0,"","整")),"零元零",""),"零元","")公式二:
concatenate(iF(a1 ",""),text(iF(tRunc(a1)=0,"",tRunc(abs(a1))),"[dbnum2]"),iF(int(tRunc(a1))=0,"","元
"),text(iF(oR(abs(a1) "),text(iF(Right(tRunc(a1*100),1)="0","",Right(tRunc(a1*100),1)),"[dbnum2]"),iF(Right(tRunc(a1*100),1)="0","","分"))
公式三:
iF(Round(a1,2)=0,"",iF(Round(abs(a1),2)>=1,text(int(Round(abs(a1),2)),"[dbnum2]")&"元","")&iF(Right(text(a1,".00"),2)*1=0,"整
",iF(Right(text(a1,".00"),4)*1>=1,iF(Right(text(a1,".00"),2)*1>9,"","零"),iF(Round(abs(a1),2)>=1,"零
",""))&iF(Right(text(a1,".00"),2)*1>9,text(leFt(Right(text(a1,".00"),
2)),"[dbnum2]")&"角
","")&iF(Right(text(a1,".00"))*1>0,text(Right(text(a1,".00")),"[dbnum2]")&"分","整")))
公式四:
iF(a1=0,"",iF(abs(a1) "),text(iF(abs(a1) ")&iF(Right(text(a1,".00"))*1=0,"整
",text(Right(text(a1,".00")),"[dbnum2]")&"分")))
公式五:
iF(a1=0,"",iF(abs(a1) 篇二:
在excel中根据小写的金额自动生成大写金额
在excel中根据小写的金额自动生成大写金额
20xx年05月24日星期六10:
44
在excel中,我想根据小写的金额自动生成大写金额
例一:
问:
如附件所示,我希望根据已有的小写金额让excel自动生成规范的大写金额。
谢谢!
附件:
例表.人民币大小写之间的转换.xls
答案一:
=iF(isnumbeR(a3),iF(int(a3),text(int(a3),"[dbnum2]")&"元
",)&iF(int(a3*10)-int(a3)*10,text(int(a3*10)-int(a3)*10,"[dbnum2]")&"角",iF(int(a3)=a3,,iF(a3 ")))&iF(Round((a3)*100-int(a3*10)*10,),text(Round(a3*100-int(a3*10)*10,),"[dbnum2]")&"分","整"),"")
附件:
例表.人民币大小写之间的转换2.xls
答案二:
给你一个,放在工具里:
Functionconvert_digital_chinese(byValmyinput)
dimtemp,tempa,myinputa,myinputb,myinputc
dimplaceasstring
dimjasinteger
place="分角元拾佰仟万拾佰仟亿拾佰仟万"
shuzi1="壹贰叁肆伍陆柒捌玖"
shuzi2="整零元零零零万零零零亿零零零万"
qianzhui=""
ifmyinput myinput=int(abs(myinput)*100+0.5)
ifmyinput>999999999999999#then
mychange="数字太大了吧?
?
?
"
exitFunction
endif
ifmyinput=0then
mychange="零元零分"
exitFunction
endif
myinputa=trim(str(myinput))
shuzilong=len(myinputa)
Forj=1toshuzilong
myinputb=mid(myinputa,j,1)&myinputb
next
Forj=1toshuzilong
temp=Val(mid(myinputb,j,1))
iftemp=0then
myinputc=mid(shuzi2,j,1)&myinputc
else
myinputc=mid(shuzi1,temp,1)&mid(place,j,1)&myinputc
endif
next
shuzilong=len(myinputc)
Forj=1toshuzilong-1
ifmid(myinputc,j,1)="零"then
selectcasemid(myinputc,j+1,1)
case"零","元","万","亿","整":
myinputc=left(myinputc,j-1)&mid(myinputc,j+1,30)
j=j-1
endselect
endif
next
shuzilong=len(myinputc)
Forj=1toshuzilong-1
ifmid(myinputc,j,1)="亿"andmid(myinputc,j+1,1)="万"then
myinputc=left(myinputc,j)&mid(myinputc,j+2,30)
exitFor
endif
next
mychange=qianzhui&trim(myinputc)
endFunction
来源:
例二:
如何设公式将¥654654.36自动生成"人民币陆拾伍万肆仟陆佰伍拾肆元叁角陆分"
答案一:
=text(int(a1),"[dbnum2]")&"元"&substitute(substitute(substitute(text(Right(text(a1,"0.00"),2),"[dbnum2]0角0分"),"零角零分","整"),"零分",""),"零角","零")
答案二:
="人民币"&text(int(a1),"[dbnum2]")&"元"&substitute(substitute(substitute(text(Right(text(a1,"0.00"),2),"[dbnum2]0角0分"),"零角零分","整"),"零分","整"),"零角","零")
1、楼主需要在前面加上人民币
2、如果没有分的话,角后面应该也加个“整”字
这个我用过试了,不错,好用,呵呵
来源:
/dispbbs.aspboardid=38&id=38088
三、
复制下列公式,然后“选择性粘贴”(以“文本”方式)到除“a1”单元格外的任意一个单元格中,比如“b1”单元格,然后在“a1”单元格中输入数字即可实现小写金额转大写金额的效果。
特棒!
为便于你对公式的理解,特附公式的解释于后。
=iF(a1 ")&iF(Right(text(a1,".00"),2)="00",iF(abs(a1) "),iF(abs(a1) 难点解释:
1.iF(abs(a1) 如果整数部分刚好是“0”,则整数部分输出为空,否则输出整数部分
2.iF(Right(text(a1,".00"),2)="00",iF(abs(a1) 如果是纯整数,则进一步判断是否为“0”的纯整数,若是则不输出“整”字,否则输出“整”字(补注:
若是纯整数,“”号后的语句已经不用处理,即小数部分已不用考虑)
3.iF(abs(a1) 如果是纯小数,则进一步判断角位是否为“0”,若是,则角位输出为空,否则输出角位
4.iF(leFt(Right(text(a1,".00"),2),1)="0","","角")
如果角位为“0”,则不输出“角”字样,否则输出“角”
5.iF(Right(text(a1,".00"),1)="0","整",text(Value(Right(text(a1,".00"),1)),"[dbnum2]")&"分")
如果分位为“0”,则输出“整”字样,否则输出分位及“分”字样
来源:
篇三:
excel表格中输入小写金额怎样自动转换为大写
excel表格中输入小写金额怎样自动转换为大写?
有什么公式,具体怎样操作。
若是03版,比如在a1输小写金额,只能在除a1之外的单元格(如b1)显示大写金额,则b1=text(int(a1),"[dbnum2]")&iF(int(a1)=a1,"元整","元")&iF(iseRRoR(Find(".",a1))=tRue,"",iF(len(a1)-Find(".",a1)=1,text(Right(a1,1),"[dbnum2]")&"角",iF(and(len(a1)-Find(".",a1)=2,mid(a1,len(a1)-1,1)"0"),text(mid(a1,len(a1)-1,1),"[dbnum2]")&"角"&text(Right(a1,1),"[dbnum2]")&"分","零"&text(Right(a1,1),"[dbnum2]")&"分"))),直接复制公式到b1就行了
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- excl 表格 自动 生成 大写 单位
![提示](https://static.bdocx.com/images/bang_tan.gif)