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，我过会写段代码！

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/evrj3xrjy.html