一、在三個連續的同行單元格中轉換
1. B2中輸入公式 “=IF(B1<0,"金額為負無效",INT(B1))”,計算結果為¥6,050.00,然后點擊“格式→單元格→數字→特殊→中文大寫數字→確定”,B2顯示“陸仟零伍拾”,再點擊“格式→單元格→數字→自定義”,將“類型”編輯框中的“[dbnum2]G/通用格式”修改為:[dbnum2](“人民幣”)G/通用格式“元”,此時B2顯示:“(人民幣)陸仟零伍拾元”。
2. C2中輸入“=IF(B1<0,"",INT(B1?10)-INT(B1)?10)”,同樣C2改為:[DBNum2]G/通用格式“角”,C2顯示:“零角”。
3. D2中輸入“=IF(B1<0,"",INT(B1?100)-INT(B1?10)?10)”,同樣D2改為:[DBNum2]G/通用格式“分”, D2顯示:“玖分”。
這樣在連續的三個同行單元格中實現了大寫金額格式的轉換,如圖1所示。為了使轉換符合財務格式,B2應右對齊,C2列寬無間隔,且不設左右邊框線,D2要左對齊。
二、用Excel提供的函數轉換
個位為0,則不顯示;不為0,顯示“XXX元”;不為0、且角位和分位均為0,顯示“XXX元整”;元角分位均為0,則顯示“零元整”。
小數點后面第一位為0、且元位或分位有一為0,則不顯示;為0、且元位和分位均不為0,則顯示“零”;不為0,顯示“X角”。
小數點后面第二位為0,則顯示“整”;不為0,顯示“X分”。
根據以上思路在B2中輸入公式:
“IF(B1<0,"金額為負無效",IF(OR(B1=0,B1=""),"(人民幣)零元整"));
IF(B1<1,"(人民幣)",TEXT(INT(B1),"[dbnum2](人民幣)G/通用格式")&&"元")&&IF(INT(B1?10)-INT(B1)?10=0);
IF(INT(B1)?(INT(B1?100)-INT(B1?10)?10)=0,"","零"),TEXT(INT(B1?10)-INT(B1)?10,"[dbnum2]")&&"角")&&IF((INT(B1?100)-INT(B1?10)?10)=0,"整",TEXT((INT(B1?100)-INT(B1*10)*10),"[dbnum2]")&&"分")))”。
確認后B2顯示:“(人民幣)陸仟零伍拾元零玖分”。以后使用時將公式復制到有關單元格中,若轉換的對象B1發生了變化,可點擊“編輯→替換”將B1替換掉。兩種轉換測試結果如圖2所示。