【導讀】

對一個給出的小寫金額，通過公式自動地轉(zhuǎn)換成大寫，這可以減少人工轉(zhuǎn)換時出現(xiàn)的差錯，而且提高了工作效率。對于財務(wù)資料，對轉(zhuǎn)換后的大寫金額格式有較為嚴格的要求。下面介紹如何寫出這種真正合格的公式。

一、支票形式的小寫金額轉(zhuǎn)大寫

如圖，單元格A1為小寫金額107000.50，轉(zhuǎn)成的大寫有兩種形式，C2的“壹拾萬柒仟元伍角整”可以稱為寬松形式，C3的“壹拾萬零柒仟元零伍角整”可稱為嚴格形式。我們看看如何用公式轉(zhuǎn)成這兩種形式。

在轉(zhuǎn)換前，我們應確保單元格A1的小寫金額只有兩位小數(shù)。建議設(shè)置單元格格式為“#,##0.00”，并在選項中設(shè)置計算時“將精度設(shè)為所顯示的精度”。

公式1（字符數(shù)132）：

=IF(A1>=1,NUMBERSTRING(INT(A1),2)&"元",)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1<1,,"零")),"零分","整")

公式1返回的是寬松形式，并且假設(shè)轉(zhuǎn)換的金額大于零。

公式1可以看成由兩部分構(gòu)成：元以上部分和角分部分。

公式中元以上的部分：IF(A1>=1,NUMBERSTRING(INT(A1),2)&"元",)

公式中的角分部分：SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1<1,,"零")),"零分","整")

元以上部分的核心是NUMBERSTRING函數(shù)。角分部分比較復雜，這里只強調(diào)最關(guān)鍵的一點：為了避免浮點數(shù)造成的誤差，不能通過乘除運算從小寫金額中提取角分的數(shù)字，必須首先把小寫金額轉(zhuǎn)換成文本。

公式2（字符數(shù)147）：

=IF(A1>0,IF(A1>=1,NUMBERSTRING(INT(A1),2)&"元",)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1<1,,"零")),"零分","整"),"零元整")

公式2在公式1外面套了一個IF，當轉(zhuǎn)換的金額為零時，返回“零元整”（可按自己的需要改為其他文字，或改為空文本）。

公式3（字符數(shù)179）：

=IF(A1,IF(A1<0,"負",)&IF(ABS(A1)>=1,NUMBERSTRING(INT(ABS(A1)),2)&"元",)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(ABS(A1)),2),"[dbnum2]0角0分;;整"),"零角",IF(ABS(A1)<1,,"零")),"零分","整"),"零元整")

公式3在公式2的基礎(chǔ)上，再考慮轉(zhuǎn)換的金額為負數(shù)時，在大寫金額前加個“負”字。

以上公式都轉(zhuǎn)換成寬松形式，下面介紹嚴格形式的公式。

公式4（字符數(shù)325）：

=IF(A1>=1,IF(AND(A1>10^4,INT((A1/10^5-INT(A1/10^5))*10)=0,INT((A1%%-INT(A1%%))*10)>0),SUBSTITUTE(NUMBERSTRING(INT(A1),2),"萬","萬零"),NUMBERSTRING(INT(A1),2))&"元",)&IF(AND(A1>1,INT((A1/10-INT(A1/10))*10)=0,INT((A1-INT(A1))*10)>0),"零",)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1<1,,"零")),"零分","整")

公式4在公式1的基礎(chǔ)上，增加了兩個判斷：判斷“萬”后是否加“零”，判斷“元”后是否加“零”。

如果不想在“元”后加“零”，可刪掉公式中這部分的判斷，公式變成（字符數(shù)減少71）：

=IF(A1>=1,IF(AND(A1>10^4,INT((A1/10^5-INT(A1/10^5))*10)=0,INT((A1%%-INT(A1%%))*10)>0),SUBSTITUTE(NUMBERSTRING(INT(A1),2),"萬","萬零"),NUMBERSTRING(INT(A1),2))&"元",)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1<1,,"零")),"零分","整")

公式5（字符數(shù)340）：

=IF(A1>0,IF(A1>=1,IF(AND(A1>10^4,INT((A1/10^5-INT(A1/10^5))*10)=0,INT((A1%%-INT(A1%%))*10)>0),SUBSTITUTE(NUMBERSTRING(INT(A1),2),"萬","萬零"),NUMBERSTRING(INT(A1),2))&"元",)&IF(AND(A1>1,INT((A1/10-INT(A1/10))*10)=0,INT((A1-INT(A1))*10)>0),"零",)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1<1,,"零")),"零分","整"),"零元整")

公式6（字符數(shù)427）：

=IF(A1,IF(A1<0,"負",)&IF(ABS(A1)>=1,IF(AND(ABS(A1)>10^4,INT((ABS(A1)/10^5-INT(ABS(A1)/10^5))*10)=0,INT((ABS(A1)%%-INT(ABS(A1)%%))*10)>0),SUBSTITUTE(NUMBERSTRING(INT(ABS(A1)),2),"萬","萬零"),NUMBERSTRING(INT(ABS(A1)),2))&"元",)&IF(AND(ABS(A1)>1,INT((ABS(A1)/10-INT(ABS(A1)/10))*10)=0,INT((ABS(A1)-INT(ABS(A1)))*10)>0),"零",)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(ABS(A1)),2),"[dbnum2]0角0分;;整"),"零角",IF(ABS(A1)<1,,"零")),"零分","整"),"零元整")

公式5、公式6是在公式4的基礎(chǔ)上，增加判斷小寫金額是否零或負數(shù)。如果是打印支票，用公式4就足夠了，支票金額不會出現(xiàn)零和負數(shù)的。

在這幾個公式中，都需要多次調(diào)用小寫金額所在的單元格A1。如果小寫金額不在單元格A1，比如在G5，在公式中一個個地修改會比較麻煩，而且容易漏改。這時候可用“替換”功能，按Ctrl+H，然后在“查找內(nèi)容”文本框中輸入“A1”，在“替換為”文本框中輸入“G5”，最后點“替換”按鈕。

二、套打形式的小寫金額轉(zhuǎn)大寫

下面介紹一種套打形式的小寫金額轉(zhuǎn)大寫的方法。這種方法寫出來的公式非常簡單，做出來的視覺效果非常棒。如下圖：

圖中，B9:F9區(qū)域設(shè)置為合并單元格，字體設(shè)置為加粗，水平對齊方式設(shè)置為“分散對齊”。B9輸入下面的公式：

=SUBSTITUTE(TEXT(D8,"[DBNum2]00000000.00"),".",)

圖中的公式返回文本"零零壹貳零零零伍零肆"，返回值中并沒有“仟佰拾萬元角分”這些字，也沒有小數(shù)點。

然后，插入一個橫排文本框，在文本框中輸入“仟佰拾萬仟佰拾元角分”，把文本框拉到B9:F9區(qū)域上方的適當位置，調(diào)整文本框大小，在文本框的各個文字中間用空格隔開適當?shù)木嚯x。

通過文本框的右鍵快捷菜單，打開“設(shè)置形狀格式”對話框，在里面設(shè)置“無線條”，并把透明度設(shè)置為100%。

【相關(guān)閱讀】

單元格格式代碼詳解http://blog.sina.com.cn/s/blog_14e89401f0102wc38.html