[原创]金额大写（公式处理，简单、明了）

龙逸凡 · 发表于 2005-3-26 00:44

以上贴子中的公式都考虑得不周全，至少没考虑到金额小于1时的情况，我也提供我以前编的一个公式给大家参考：=IF(B10<1,IF(B10<0.1,TEXT(INT(B10*100),"[DBNum2]G/通用格式")&"分",IF((INT(B10*100)-INT(B10*10)*10=0),TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分")),TEXT(INT(B10),"[DBNum2]G/通用格式"&"元")&IF((INT(B10*10)-INT(B10)*10)=0,IF((INT(B10*100)-INT(B10*10)*10)=0,"","零"),IF((INT(B10*0.1)-INT(B10)*0.1)=0,"零","")&TEXT(INT(B10*10)-INT(B10)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(B10*100)-INT(B10*10)*10)=0,"整",TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分"))此公式也没考虑—1.999等情况，

wvgang · 发表于 2005-3-29 01:55

Re：

提得好，改进一下。

=IF(OR(ISNUMBER(E15)=FALSE,ROUND(E15,2)=0),"",IF(E15<0,"负","")&IF(INT(ROUND(ABS(E15),2))=0,"",TEXT(INT(ROUND(ABS(E15),2)), "[DBNum2]")&"元")&IF(INT(ROUND(ABS(E15),2))=ROUND(ABS(E15),2),"整",IF(INT(ROUND(ABS(E15),2)*10)=ROUND(ABS(E15)*10,1),TEXT(RIGHT(INT(ROUND(ABS(E15),2)*10),1),"[DBNum2]")&"角整",TEXT(RIGHT(INT(ROUND(ABS(E15),2)*10),1),"[DBNum2]")&IF(RIGHT(INT(ROUND(ABS(E15),2)*10),1)="0","","角")&TEXT(RIGHT(ROUND(ABS(E15),2),1),"[DBNum2]")&"分")))

rubby815 · 发表于 2005-4-27 01:29

好棒的公式！

翩翩枫叶 · 发表于 2005-4-27 14:51

好可用 !顶一下!就是太复杂了一点!

aichong · 发表于 2005-4-27 17:42

ok

[此贴子已经被作者于2005-4-27 17:45:13编辑过]

wintercom · 发表于 2005-4-29 14:44

以下是引用liyh67在2005-3-25 22:40:00的发言：
在有效性中能设置最多两位小数吗？会不会又是版本不同的问题，我用的是Excel2000

在有效性中自定义公式=ROUNDDOWN(C6,2)=C6,好象根版本没关系吧

好男的 · 发表于 2005-5-14 09:36

这对新手的确不错啊,但如何将在一个单元格的金额数转换到千百十元角分的各单元格中呢?

六出飞花 · 发表于 2005-5-14 17:27

好用啊，谢谢

我菜故我在 · 发表于 2006-9-17 13:41

=IF(ABS(H15)<0.005,"",IF(H15<0,"负",)&IF(INT(ABS(H15)),TEXT(INT(ABS(H15)),"[dbnum2]")&"元",)&IF(INT(ABS(H15)*10)-INT(ABS(H15))*10,TEXT(INT(ABS(H15)*10)-INT(ABS(H15))*10,"[dbnum2]")&"角",IF(INT(ABS(H15))=ABS(H15),,IF(ABS(H15)<0.1,,"零")))&IF(ROUND(ABS(H15)*100-INT(ABS(H15)*10)*10,),TEXT(ROUND(ABS(H15)*100-INT(ABS(H15)*10)*10,),"[dbnum2]")&"分","整"))楼主强啊　更精辟啊　上面是我以前用的　有时会出现这样的　贰拾万元零整　楼主强啊

我菜故我在 · 发表于 2006-9-17 13:46

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用wvgang在2005-3-29 1:55:00的发言： Re：提得好，改进一下。=IF(OR(ISNUMBER(E15)=FALSE,ROUND(E15,2)=0),"",IF(E15<0,"负","")&IF(INT(ROUND(ABS(E15),2))=0,"",TEXT(INT(ROUND(ABS(E15),2)), "[DBNum2]")&"元")&IF(INT(ROUND(ABS(E15),2))=ROUND(ABS(E15),2),"整",IF(INT(ROUND(ABS(E15),2)*10)=ROUND(ABS(E15)*10,1),TEXT(RIGHT(INT(ROUND(ABS(E15),2)*10),1),"[DBNum2]")&"角整",TEXT(RIGHT(INT(ROUND(ABS(E15),2)*10),1),"[DBNum2]")&IF(RIGHT(INT(ROUND(ABS(E15),2)*10),1)="0","","角")&TEXT(RIGHT(ROUND(ABS(E15),2),1),"[DBNum2]")&"分")))</div>用这个公式　1*1.999他得到的大写是2元　是正确的吗　还是1.999是正确的啊

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

[原创] [原创]金额大写（公式处理，简单、明了）

Re：