用VBA变成把小写金额转换成大写

来源：百度知道 编辑：UC知道 时间：2024/05/12 15:41:51
急需VBA方面的知识，在哪儿可以找到这方面的网站之类的
还有一个问题，如何把15位的身份证号转换成18位，就是在号码中加入年份如19，再加一位校验码！！！！！！

=IF(A1<0,"金额为负无效",IF(OR(A1=0,A1=""),"零元整",(IF(A1<1,"(人民币)",TEXT(INT(A1),"[dbnum2]G/通用格式")&"元"&IF(INT(A1)*100-INT(A1*100)=0,"整",IF(INT(A1*10)-INT(A1)*10=0,"零"&TEXT((INT(A1*100)-INT(A1*10)*10),"[dbnum2]")&"分",IF(INT(A1*10)*10-INT(A1*100)=0,TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角整",TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角"&TEXT((INT(A1*100)-INT(A1*10)*10),"[dbnum2]")&"分")))))))

上面是大写的解决方法,身份证要自己动加校验码?那和实际上的会不对啊.有兴趣加QQ群28052038.有高手帮你.