| 楼主 罗刚君 |
Q：金额可以在大小写间任何转换吗？ A：可以，用VBA和公式都可以完成，公式操作稍简单 =IF(B3=0,"零元整",IF(B3>-0.5%,,"负")&TEXT(INT(ABS(B3)),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(FIXED(B3),2),"[dbnum2]0角0分;;"),"零角",IF(ABS(B3)<1,,"零")),"零分","整")) =IF(COUNT(FIND("亿",C3)),SUM(TEXT(FIND(MID(C3,FIND({"亿","拾","佰","仟"},C3&"整拾佰仟")-1,1),"拾佰仟整壹贰叁肆伍陆柒捌玖")-4,"0;!0")*10^{8,9,10,11}*(FIND({"亿","拾","佰","仟"},C3&"拾佰仟")<=FIND("亿",C3))))+IF(COUNT(FIND("万",C3)),SUM(TEXT(FIND(MID(C3,FIND({"万","拾","佰","仟"},C3&"整拾佰仟",IF(FIND("亿",C3&"亿")<LEN(C3),FIND("亿",C3),1))-1,1),"拾佰仟整壹贰叁肆伍陆柒捌玖")-4,"0;!0")*10^{4,5,6,7}*(FIND({"万","拾","佰","仟"},C3&"拾佰仟",IF(FIND("亿",C3&"亿")<LEN(C3),FIND("亿",C3),1))<=FIND("万",C3))))+SUM(TEXT(FIND(MID(MID(C3,MAX((FIND({"万","亿"},C3&{"万","亿"})<LEN(C3))*FIND({"万","亿"},C3&{"万","亿"}),1),99)&"分角元拾佰仟",FIND({"分","角","元","拾","佰","仟"},MID(C3,MAX((FIND({"万","亿"},C3&{"万","亿"})<LEN(C3))*FIND({"万","亿"},C3&{"万","亿"}),1),99)&"分角元拾佰仟")-1,1),"拾佰仟万亿元角分整壹贰叁肆伍陆柒捌玖")-9,"0;!0")*10^{-2,-1,0,1,2,3})大小写.png   大小写转换.rar |
| 2楼 亡者天下 |
厉害，不过有点复杂！ |