回覆列表
-
1 # 精英財務的Excel課
-
2 # 幸福的耗子
在F2單元格輸入：=SUBSTITUTE(SUBSTITUTE(IF(-RMB(E2),TEXT(E2,";負")&TEXT(INT(ABS(E2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(E2),2),"[dbnum2]0角0分;;整"),),"零角",IF(E2^2<1,,"零")),"零分","整")
然後按回車鍵。
當E2輸入數字時，F2即顯出大寫金額，如圖所示。
若F2單元格下面還要顯示大寫，可以把F2的函式公式複製。
操作：在F2單元格點下，游標放在右下角，游標即呈+字狀態，
然後，點住不放，往下拉，拉到F6止，如圖中所示。
放開滑鼠，函式公式即複製在F3至F6；
當E3至E6單元格分別輸入數字時，F3至F6單元格分別自動顯示出相應的大寫金額，如圖所示
在做報表時，如圖中的報表，E2單元格的總金額可以輸入自動求和函式公式，只要在B2、C2和D2單元格分別輸入數字，在E2單元格會自動計算並顯示出得數，F2單元格的大寫也會隨著E2單元格的數字變化而變化。
例如，現在把上面做出來的B2至E6單元格的數字全部清除；
然後，在E2單元格輸入：＝B2+C2+D2，按回車鍵；
當B2單元格輸入數字80時，E2顯示出數字80，因為C2和D2單元格都為0，這時，在F2單元格中，顯示出E2單元格80金額的大寫，如圖中所示
然後，在C2單元格也輸入數字90，這時，E2單元格顯出B2+C2的得數170，然後，在F2也同時顯出170的大寫，如圖中所示。
在D2單元格輸入數字70，在E2單元格顯出B2+C2+2的得數240，同時，在F2單元格這裡顯示出240的大寫。如圖所示。
點下E2單元格然後點住往下拉把E2單元格自動求和的函式公式複製到E3和E6單元格中，那麼，當B3至D6單元格分別輸入數字後，E3至E6單元格會自動求和並顯出得數，在F3至F6單元格也分別顯示出大寫。如圖中所示。
將上公式貼上至需要填寫大寫金額的單元格，並將公式中的"A1"部分替換成小寫金額所在的單元格地址。填充操作可以自動更改。
實際效果如下圖：其他類似大寫公式網上有許多類似的大寫公式，但是絕大部分都沒有完全滿足財務規範要求，普通公式太長不簡潔，使用時需要替換3-4處以上的地方。
1、公式一：
=SUBSTITUTE(SUBSTITUTE(IF(A1>-0.5%,,"負")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")使用時需要替換5處， 對沒有分位的數字會加"整"字，不規範，如：23,550.10得出：貳萬叄仟伍佰伍拾元壹角整。
2、公式二：
=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A2)),"[dbnum2]G/通用格式元;負[dbnum2]G/通用格式元;"&IF(A2>-0.5%,,"負"))&TEXT(RIGHT(FIXED(A2),2),"[dbnum2]0角0分;;"&IF(ABS(A2)>1%,"整",)),"零角",IF(ABS(A2)<1,,"零")),"零分","整")3、公式三：
=IF(ABS(A1)<0.5%,"",SUBSTITUTE(SUBSTITUTE(IF(A1<0,"負",)&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(ABS(A1)<1,,"零")),"零分","整"))
4、公式四：
=TEXT(INT(A3),"[dbnum2]")&"元"&IF(INT(A3*10)-INT(A3)*10=0,"",TEXT(INT(A3*10)-INT(A3)*10,"[dbnum2]")&"角")&IF(INT(A3*100)-INT(A3*10)*10=0,"整",TEXT(INT(A3*100)-INT(A3*10)*10,"[dbnum2]")&"分")