excel金额大小写自动转换

【excel金额大小写自动转换】

excel金额大小写自动转换

文章插图
兄弟,如果用VBA编写的话,是可以编写出来,可是你想过没有,这种用EXCEL中微软的函数就能解决的事情,你去寻求VBA解决,这就是舍本求末啊,一个人VB程序无论学的有多好,都是建立在微软程序的基础上的,如果你舍本逐末,用VBA写,恰恰违反了VBA语言的宗旨!请注意,=IF(M13<0,"金额为负无效",IF((M13=0),"零元整",IF(M13<1,"",TEXT(INT(M13),"[dbnum2]G/通用格式"&"元")&IF(INT(M13*10)-INT(M13)*10=0,"",""))&IF(AND((INT(M13*100)-INT(M13*10)*10)<>0,(INT(M13*10)-INT(M13)*10)=0),"零",IF((INT(M13*10)-INT(M13)*10)=0,"",TEXT(INT(M13*10)-INT(M13)*10,"[dbnum2]G/通用格式"&"角")))&IF((INT(M13*100)-INT(M13*10)*10)=0,"整",TEXT(INT(M13*100)-INT(M13*10)*10,"[dbnum2]G/通用格式"&"分"))))这个函数能满足你的条件,同时,他的反应速度绝对在你编写的VBA代码之上! 无论,你怎么用VBA,你都没有这个函数完美,这是微软的已经做出来的,你为什么还要用VBA,我过会写段代码!

    推荐阅读