SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2)=0," ",IF(A2<0,"負",)&TEXT(INT(ABS(A2)),"[DBNUM2]G/通用格式圓;;")&TEXT(RIGHT(RMB(A2,2),2),"[DBNUM2]0角0分;;整")),"零角",IF(A2^2>1,"零","")),"零分","")。這個公式相對比較長,這種大寫金額的轉換,在我們财務工作中應用得比較多,比如我們設置打印銀行支票、電子收據之類的場景用得相當頻繁，我們隻要将數字貼進去，就可以迅速的轉換成大寫金額。這種大寫金額的轉換，網上的方法非常的多.很多年前,我在學習TEXT函數的時候，當時整理和解決這個問題的方法大概有18種。公式特别長。所以函數的學習是非常靈活的，思考問題的角度不同，方法就不同。那時候這些方法都有深入的研究和調試..這些年Excel論壇和社群發展得很快，相信解決這種類型的函數方法遠不隻18種。當然還不包括VBA方面的一些解決方法…現在我引用其中的一種比較經典的方法，給大家仔細講解…這條公式,比較長,但是方法非常的經典, 很多網上的講師和現場的培訓老師,講到TEXT函數的時候,也會将這種方法用來拓展學員的思維…廢話不多說,我們直接進入主題.

對于這種公式比較長的函數,如果你的基礎還不是很好的情況,不建議你象高手一樣,将公式從左到右一口氣寫完.我們分開來做…我們簡單的分析一下.這裡面的金額, 首先有正數和負數, 數字分為整數和小數…當然數字裡面也有一些看似象0金額的數字,其實是我們用公式算出來的,循環小數,比如這這裡的-0.0018...我們肉眼看到是0.00.其實不是真正的0

所以初步将它分成兩部分..将整數和小數分别提取出來,用TEXT格式代碼轉換為大寫金額,然後再連接起來..至于裡面的正數和負數,0值的處理,這種細節問題,我們可以用IF函數結合其他的一些文本函數來處理…現在我們來操作.

整數部分的提取.首先用INT函數将整數部分提取出來,大家可以看到,這裡面有負數,我們先忽略負數,用ABS函數取絕對值..再取整數…初步處理後,我們再将它格式成大寫..可能結果會有些出入,我們跟據具體情況進行修正..外面套一層TEXT(INT(ABS(A2)),"[DBNUM2]).這樣格式之後,還有點問題.對于整數部分我們1865元,我們要顯示大寫的圓.簡單的修改一下代碼…我們CTRL 1.特殊格式.我們可以看到中文大寫的自定義格式.中間的中文英文拼寫是沒有什麼意義的,我們直接就G/通過格式.這後面寫圓,我們注意要寫分号;; TEXT(INT(ABS(A2)),"[DBNUM2]G/通用格式圓;;")這樣我們初步将整數部分處理好了,

我們再處理小數部分…小數部分提取,我們隻要用RIGHT函數從右邊提取兩位…它出來錯了..我們單元格裡面明明是兩位,為什麼不是提取00,而是65..我們鼠标放到這。公式編輯欄裡面它是一個沒有小數，外面隻是顯示成這位小數的形式，所以我們要再做一個公式，使用RMB貨币符号，讓它轉換為兩位小數，當然也可以用ROUND函數四舍四入保留兩位小數，但是還要配合其它的函數來操作，我們直接用RMB函數來轉換更簡單。在裡面套一層RMB函數，保留兩位小數後，然後再從右邊取兩位。下拉填充公式。大家可以看到，這裡它才能将小數部分取出來。接下來同樣的工作，将它格式成大寫。TEXT(RIGHT(RMB(A2,2),2),"[DBNUM2]0角0分;;整")。下拉填充公式…

這樣初步寫完了,我們将它們連接起來,看一下…這裡有一個小問題,這裡面的0值不能顯示整,要變成空.所以我們要做一下判斷.計算一下.我們通過RMB(A2,2)=0," ",讓它繼續計算,下拉公式. 還是一個整,明明是0,怎麼還是整..這樣我們要到單元格裡面看一下了…原來是一個負數..我們這裡也可以通過F9看到,計算的結果是一個FALSE,并不等于0..也就是-0不等于0..我們還要做一個處理,怎麼變成負0.在公式前面加一個負号…讓下複制公式..這樣處理就達到了我們的效果…現在我們再用一個IF函數處理一個負數.也就是IF(-RMB(A2)=0," ",IF(A2<0,"負",)&D2&E2).向下複制…這裡對數負數部分,它也顯示了負…

公式調試到這裡,看上去象那麼回事,但是作為我們會計人數來說…工作要做到細緻,細心的學員發現了…對我們大寫象這裡的-73.01..角上面是0的.不能寫成零角壹分的.隻能讀成零一個分,多了一個角字,.我們寫到這…這裡是零角捌分, 也沒有這麼讀的,一般是捌分,這裡要去掉兩個字 零角…這裡對分上面是0的,直接要去掉零分..所以我們怎麼去掉這樣..我們就要在外面套一層SUBTITUE函數（零角，這裡要做一個判斷，如果IF（A2^2>1,我們隻要将零角,替換成零,否則的小于1.我們将零角替換成空.)向下填充公式..我們也可以看到,這個是大于1的,所以就替換成零了,也符合我們大寫的習慣..同樣這個小于1替換成空了,捌分.. 我們完成了角的替換…對于分位上面是零的,寫成零分也沒有意義..同樣的再套一層SUBTITITUT（零分，直接替換成空）。。=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2)=0," ",IF(A2<0,"負",)&TEXT(INT(ABS(A2)),"[DBNUM2]G/通用格式圓;;")&TEXT(RIGHT(RMB(A2,2),2),"[DBNUM2]0角0分;;整")),"零角",IF(A2^2>1,"零","")),"零分","")到這一步，我們這個案例分步就給大家做完了。。

現在咱們隻要組合在一起就可以了，将這裡的公式清除。複制到這裡面來。F2這裡面的内容這個來替代。這裡面還有E2，同樣的複制過來。替換E2單元格。複制，再替換D2單元格，最後就得到我們的完整的公式，向下填充公式。剛剛非常詳盡的分步驟給大家介紹了這個案例，希望大家有空的時候，也這樣逐步的寫公式，邊做邊調試公式。我相信大家通過這種訓練，大家掌握的函數比較多，寫公式也會信手粘來，最重要還是思維的方向。好了，咱們的TEXT函數常用的格式就給大家講完了，當然還有一些不常用的格式，大家可以通過CTRL 1，在自定義查到相應的格式代碼，也可以通過TEXT來轉換。我們這節課就分享到這裡，咱們下節課再見

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!