赵若虹整容:小写数字转换成大写的公式5

来源:百度文库 编辑:九乡新闻网 时间:2024/04/30 01:17:36

假如A8是小写所在的单元格,我们要把某一单元格转换成大写显示,则在该单元格输入以下公式:

=IF(A8<0,REPLACE(IF(TRUNC(A8)=A8,TEXT(A8,"[DBNum2]")&"元整",IF(TRUNC(A8*10)=A8*10,TEXT(TRUNC(A8),"[DBNum2]")&"元"&TEXT(RIGHT(A8),"[DBNum2]")&"角整",TEXT(TRUNC(A8),"[DBNum2]")&"元"&IF(ISNUMBER(FIND(".0",A8)),"零",TEXT(LEFT(RIGHT(A8,2)),"[DBNum2]")&"角")&TEXT(RIGHT(A8),"[DBNum2]")&"分")),1,1,"负"),IF(A8=0,"?",IF(TRUNC(A8)=A8,TEXT(A8,"[DBNum2]")&"元整",IF(TRUNC(A8*10)=A8*10,TEXT(TRUNC(A8),"[DBNum2]")&"元"&TEXT(RIGHT(A8),"[DBNum2]")&"角整",TEXT(TRUNC(A8),"[DBNum2]")&"元"&IF(ISNUMBER(FIND(".0",A8)),"零",TEXT(LEFT(RIGHT(A8,2)),"[DBNum2]")&"角")&TEXT(RIGHT(A8),"[DBNum2]")&"分"))))