将以元为单位的人民币，拖成以千元为单位的人民币

浆糊虫

通常人民币有这么几种单位形式：一、9123元4角5分  二、4角5分  三、123元4角 四、123元5分 五、123元  六、4角  七、5分。现在想对它们全部换算成以“千元”做单位的币值。我进行了如下的尝试。
A1形如9123元4角5分，则B1=IF(AND(RIGHT(A1,1)="分",MID(A1,LEN(A1)-2,1)="角",MID   (A1,LEN(A1)-4,1)="元"),LEFT(A1,LEN(A1)-5)/1000+MID(A1,LEN(A1)-3,1)/10000+MID(A1,LEN(A1)-1,1)/100000&"千元","")；
A1形如4角5分，则B1=IF(AND(RIGHT(A2,1)="分",MID(A2,LEN(A2)-2,1)="角"),LEFT(A2,1)/10000+MID(A2,LEN(A2)-1,1)/100000&"千元","")；
A1形如4角5分，则B1=IF(AND(RIGHT(A2,1)="分",MID(A2,LEN(A2)-2,1)="角"),LEFT(A2,1)/10000+MID(A2,LEN(A2)-1,1)/100000&"千元","")
A1形如123元4角，则B1=IF(AND(MID(A3,LEN(A3)-2,1)="元",RIGHT(A3,1)="角"),LEFT(A3,LEN(A3)-3)/1000+MID(A3,LEN(A3)-1,1)/10000&"千元"," ")；
A1形如123元5分，则B1=IF(AND(MID(A4,LEN(A4)-2,1)="元",RIGHT(A4,1)="分"),LEFT(A4,LEN(A4)-3)/1000+MID(A4,LEN(A4)-1,1)/10000&"千元"," ")；
A1形如123元，则B1=IF(RIGHT(A5,1)="元",LEFT(A5,(LEN(A5)-1))/1000&"千元"," ")；
A1形如4角，则B1=IF(RIGHT(A6,1)="角",LEFT(A6,LEN(A6)-1)/10000&"千元"," ")；
A1形如5分，则B1=IF(RIGHT(A7,1)="分",LEFT(A7,LEN(A7)-1)/100000&"千元"," ")。
后三种情况可以合成一个公式，前四种情况就难以合成一个公式。请教有兴趣者，将这几种情况全部合成一个公式。别忘了发个邮件给我哟！我是新人难以找到自己提的问题，我的邮箱是yuegui519@yahoo.cn，谢谢！

[ 本帖最后由 浆糊虫 于 2009-2-23 21:37 编辑 ]

mosforyou

利用自定义名称，一个公式搞定
=CHOOSE(MAX(IF(SUM(fen,jiao,yuan)={111,110,101,100,11,10,1},{1,2,3,4,5,6,7})),SUBSTITUTE(SUBSTITUTE(repf,"角",""),"元","."),SUBSTITUTE(repj,"元","."),SUBSTITUTE(repf,"元",".0"),repy,SUBSTITUTE(repf,"角","")/100,repj/10,repf/100)/1000

[ 本帖最后由 mosforyou 于 2009-2-24 00:09 编辑 ]

曾杰

哦呀  我看晕咯  这么麻烦的东东啊

浆糊虫

二楼的哥们，你好！首先感谢你为我写出的公式，虽然我现在还看不懂，可是面包会有的——相信我会有看得懂的时候。其次，对于“123元5分”这种书写格式，我想还原成大家都默认的格式“123元零5分”，为什么公式就出错呢？弹出个“#VALUE!”，有兴趣的话再写个公式？！

mosforyou

原帖由 浆糊虫 于 2009-2-24 19:23 发表
二楼的哥们，你好！首先感谢你为我写出的公式，虽然我现在还看不懂，可是面包会有的——相信我会有看得懂的时候。其次，对于“123元5分”这种书写格式，我想还原成大家都默认的格式“123元零5分”，为什么公式就出错 ...

编辑——替换——在查找框里输入“零”，删除替换框里的所有内容，包括空格——全部替换，便可以使用公式了

[ 本帖最后由 mosforyou 于 2009-2-26 04:58 编辑 ]

浆糊虫

原帖由 mosforyou 于 2009-2-26 04:57 发表


编辑——替换——在查找框里输入“零”，删除替换框里的所有内容，包括空格——全部替换，便可以使用公式了

谢谢哥们！