[已解决]将人民币转换成固定位数大写,用VBA或函数怎么实现?

cennacenna · 发表于 2012-7-27 11:38

将人民币转换成固定位数大写,用VBA或函数怎么实现?
比如说A1=101.1元
要求B1为零拾零万零仟壹佰零壹元壹角

最佳答案

hwc2ycy

2012-7-27 11:49

本帖最后由 hwc2ycy 于 2012-7-27 11:53 编辑

我只会在表格里用TEXT函数就实现。text(a1,"[DBNum2]0万0仟0佰0拾0元0角0分")

JLxiangwei · 发表于 2012-7-27 11:49

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(-RMB(--SUBSTITUTE(A1,"元",""),2),TEXT(--SUBSTITUTE(A1,"元",""),";负")&TEXT(INT(ABS(--SUBSTITUTE(A1,"元",""))+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(--SUBSTITUTE(A1,"元",""),2),2),"[dbnum2]0角0分;;整"),),"零角",IF(--SUBSTITUTE(A1,"元","")^2<1,,"零")),"万",IF(AND(MOD(ABS(--SUBSTITUTE(A1,"元","")%),1000)<100,MOD(ABS(--SUBSTITUTE(A1,"元","")%),1000)>=10),"万零","万")),"零分","整")

复制代码

hwc2ycy · 发表于 2012-7-27 11:49

本帖最后由 hwc2ycy 于 2012-7-27 11:53 编辑

我只会在表格里用TEXT函数就实现。text(a1,"[DBNum2]0万0仟0佰0拾0元0角0分")

JLxiangwei · 发表于 2012-7-27 11:51

cennacenna · 发表于 2012-7-27 11:59

hwc2ycy 发表于 2012-7-27 11:49
我只会在表格里用TEXT函数就实现。text(a1,"[DBNum2]0万0仟0佰0拾0元0角0分")

不能不正确显示，要*100才能正确显示

hwc2ycy · 发表于 2012-7-27 12:09

cennacenna 发表于 2012-7-27 11:59
不能不正确显示，要*100才能正确显示

我知道单位在哪了，是小数位的问题。

hwc2ycy · 发表于 2012-7-27 12:12

楼主，还是把最佳给2楼吧，我这受之有愧。

cennacenna · 发表于 2012-7-27 13:24

现在给不了了，不过还是要感谢2楼

iaw528 · 发表于 2012-7-27 18:52

学习一下，看看怎么样顶顶顶

		自动登录	找回密码
密码			注册