[psac]

作者: supercoala

請問各位大大，
使用Excel這套軟體時，
如何讓當keyin阿拉伯數字後，
自動會轉換成國字的壹貳参...並且於小數點後面有幾角幾分等單位，
不知道要用什麼函數還是有什麼辦法?
EX:
當我keyin 25060.56時，
自動會轉換成"新台幣貳萬伍仟零陸拾元伍角陸分&qu...

能否象打支票軟體那樣輸入一串數位它自動給拆分成單個數位？
Q：如我輸入123456.52它自動給拆成¥1 2 3 4 5 6 5 2 的形式並且隨我輸入的長度改變而改變？
A：Chiu
我所知函數不多，我是這樣做的，如有更方便的方法，請指點
例如：
在A1輸入小寫金額，則：
千萬：B1=IF(A1>=10000000,MID(RIGHTB(A1*100,10),1,1),IF(A1>=1000000,"¥",0))
百萬：C1=IF(A1>=1000000,MID(RIGHTB(A1*100,9),1,1),IF(A1>=100000,"¥",0))
十萬：D1=IF(A1>=100000,MID(RIGHTB(A1*100,8),1,1),IF(A1>=10000,"¥",0))
萬：E1=IF(A1>=10000,MID(RIGHTB(A1*100,7),1,1),IF(A1>=1000,"¥",0))
千：F1=IF(A1>=1000,MID(RIGHTB(A1*100,6),1,1),IF(A1>=100,"¥",0))
百：G1=IF(A1>=100,MID(RIGHTB(A1*100,5),1,1),IF(A1>=10,"¥",0))
十：H1=IF(A1>=10,MID(RIGHTB(A1*100,4),1,1),IF(A1>=1,"¥",0))
元：I1=IF(A1>=1,MID(RIGHTB(A1*100,3),1,1),IF(A1>=0.1,"¥",0))
角：J1=IF(A1>=0.1,MID(RIGHTB(A1*100,2),1,1),IF(A1>=0.01,"¥",0))
分：K1=IF(A1>=0.01,RIGHTB(A1*100,1),0)
網客
公式中最後一個0改為""
http://www.slime2.com.tw/forums/show...ighlight=Excel


用這個也可：
(假設對A1中的數位進行轉換）=IF(ROUND(A1,2)<0,"無效數值",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&"分")))



設置單元格格式就可以了

很簡單的。

你也可以自定義

比如：

[DBNum2][$-804]G/通用格式"歐元整"

這樣就會在大寫後面加上 歐元整 美元整等。