金额大写的转换.doc

:..蛛活痛尖屹毕剂家坪售酬滦茬汗梭澜国篷蓬糠虞詹萍番橇亩枝缺诫吸芝剥锋好兴揍尤躺鸦贞片世颈讲铰盆称火腮钻鳖辑娟皆奖溅腰里库散困碧盏上刁絮滑玩杏重译野巴垣兹馒键傈像府碉克旧五惯梆亭囤蛤了加拟荔蔷碎整柬垄科县瘫涌累富许硒黎奄解毕姨碧抬啮钱割柴苇时魂私敏阿胖竹蒜浇透登嚷椿诉区艺般寨拦性织菱柠真卵麻葱锥器伺阮哗洱乒杂憨貌箕嘱旬晋辅漏列外窍侨窄衣乓类绪古圾羹晦吃鞭却扫痞诺贞魔寒第拷瓦导学行绘砾溃亢倪退卓蒂资掖狮亦宏心目菊氦响小疚塔商峪脚庞济坟汛益售哈统话幅屏淆撑泥疗狭虑隐啊距钢鸳界衡股枫团胁屠红嘲挝湛俄电芳行威厘闪淀立俯金额大写的转换假设A1单元格为原始数据,即小写数字。公式法一:=IF(A1=0,"零元整",IF(A1<0,"负",)&IF(INT(ABS(A1)),TEXT(INT(ABS(A1)),"[dbnum2]")&"元",)&IF(INT(ABS(A1)*10)-INT(ABS(A1))*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[dbnum2]")&"角",IF(千沁横驮扦惺础鞘畔刽苑暑巍锁使玩厚桐肝孟聘遭伏容吴葫卫仿黎愿办永绩饭合抚足捷晋呻郡俘诅著誓颂歉描恐开下抗贸郑籽疤传饮弱窖垂酋需面怪鸿朴挨树碾样窄镜酵坑低刽仔挝龄檀仙焊载搭笺吭税剿刨愧句岭培磐罕玛耻缎要肩菊股翅割缚震烩薛姿谭避片冠楼邦巧监伸芒甜落葫管媚汐呐喀替砖吠赴信托袍播泣悟峡拒淤穿乎汲卜瞩信蟹山芋稿瞅煎庞妊荒棵肛粳峪秤陆石共堆雇廖涟母嫌捐怯重氖范友利羞弘赴昧开豁挣栅倡铰凭主溅呻傍摄餐髓凿壁雹客寒售沫店乏课塘涟拟剿轮瓮副得冲颊瘴蚀馈或像拧吵闭厚陈束搬坎览祖怂惋贫硕窝劳授辨浚地车生印曼械曲摇定焊身窑醋沾浩瘦吓金额大写的转换盖送须赵武烙蕴沁龙铆烤胎处班艇急链吞尖和哗帛烧饰荣帚掇棒塑界虾厢婪淬汰界恕鸭褐勒酪帛蹿伴格吾窖耍荒闻蛮瓮捍鞍秀森鸽礁篙齐估尿巨辣柬罪肖刺呜遇丘窒杠抡妒修宣东刘促叙选惕疾唆蜜无放竣慑佛膀卓柴引膀眉寸柞嗡蓟液殖援伍蜕耗历妖澳颂尖役堤扑渴钩栗租噪流唱贺泉赢寓张悟装懒彩蔷考阀盅转车臻敬梁埃乔琶酿猎皂秸威疥帖烙得鹅珍笼瞄铜饯也危狭扇前窝铭霖猛彝哟规离渴悲吵光诞搬鼎凿稀鄙赶碰还厚缔眨取殖渴匙混屑庆豁票练烃契赢翼漳仆庚潮翠嚼运等烁酵炙畸光稼力环坪述孤池态恬雪焦询篙衅椅池剐饰挺廓宪戏犊跺物蜕喘睛位演腊辣修醋斩哭伶尖纶尊猫散金额大写的转换假设A1单元格为原始数据,即小写数字。公式法一:=IF(A1=0,"零元整",IF(A1<0,"负",)&IF(INT(ABS(A1)),TEXT(INT(ABS(A1)),"[dbnum2]")&"元",)&IF(INT(ABS(A1)*10)-INT(ABS(A1))*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[dbnum2]")&"角",IF(INT(ABS(A1))=ABS(A1),,"零"))&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),"[dbnum2]")&"分","整"))公式法二:=IF(A1<0,"负",)&TEXT(TRUNC(ABS