[已解决]数字转化成中文。请教高手这样的公式如何写

跑跑2014

比如现在单元格A5=63498.65 能不能转化成中文为  陆万叁仟肆佰玖拾捌圆陆角伍分。请教高手，看用什么办法得出这样的结果。多谢了。

最佳答案

月排行榜 / 总排行榜

baksy

2014-4-4 08:15

=TEXT(INT(A5),"[dbnum2]")&"元"&IF(MOD(A5,1)>0,TEXT(MOD(A5*100,100),"[dbnum2]0角0分"),"整")

跳转到最佳答案楼层

chensir

太长了，删了，看楼下   

tgydslr

1. =IF(ROUND(A5,2)=0,"",IF(A5<0,"负","")&IF(ABS(A5)>=1,TEXT(INT(ROUND(ABS(A5),2)),"[dbnum2]")&"元","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A5,2),2),"[dbnum2]0角0分;;整"),"零角",IF(A5^2<1,,"零")),"零分","整"))

复制代码

baksy

=TEXT(INT(A5),"[dbnum2]")&"元"&IF(MOD(A5,1)>0,TEXT(MOD(A5*100,100),"[dbnum2]0角0分"),"整")

tgydslr

baksy 发表于 2014-4-4 08:15
=TEXT(INT(A5),"[dbnum2]")&"元"&IF(MOD(A5,1)>0,TEXT(MOD(A5*100,100),"[dbnum2]0角0分"),"整")

妙，

那么的帅

1. '自定义函数实现
   
2. '假设 金额汇总变量为 A5
   
3. 'DaXie(Range("A5")) 可以返回 金额大写
   
4. Function DaXie(ByVal Num) As String       ' 人民币中文大写函数
   
5.     Application.Volatile True
   
6.     Place = "分角元拾佰仟万拾佰仟亿拾佰仟万"
   
7.     Dn = "壹贰叁肆伍陆柒捌玖"
   
8.     D1 = "整零元零零零万零零零亿零零零万"
   
9.     If Num < 0 Then FuHao = "（负）"
   
10.     Num = Format(Abs(Num), "###0.00") * 100
    
11.     If Num > 999999999999999# Then: DaXie = "数字超出转换范围!!": Exit Function
    
12.     If Num = 0 Then: DaXie = "零元零分": Exit Function
    
13.     NumA = Trim(Str(Num))
    
14.     NumLen = Len(NumA)
    
15.     For J = NumLen To 1 Step -1     ' 数字转换过程
    
16.       Temp = Val(Mid(NumA, NumLen - J + 1, 1))
    
17.       If Temp <> 0 Then             ' 非零数字转换
    
18.          NumC = NumC & Mid(Dn, Temp, 1) & Mid(Place, J, 1)
    
19.       Else                          ' 数字零的转换
    
20.          If Right(NumC, 1) <> "零" Then
    
21.            NumC = NumC & Mid(D1, J, 1)
    
22.          Else
    
23.            Select Case J            ' 特殊数位转换
    
24.                 Case 1
    
25.                   NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1)
    
26.                 Case 3, 11
    
27.                   NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"
    
28.                 Case 7
    
29.                   If Mid(NumC, Len(NumC) - 1, 1) <> "亿" Then
    
30.                      NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"
    
31.                   End If
    
32.                 Case Else
    
33.            End Select
    
34.          End If
    
35.       End If
    
36.     Next
    
37.     DaXie = FuHao & Trim(NumC)
    
38. End Function

复制代码

蝶·舞

baksy 发表于 2014-4-4 08:15
=TEXT(INT(A5),"[dbnum2]")&"元"&IF(MOD(A5,1)>0,TEXT(MOD(A5*100,100),"[dbnum2]0角0分"),"整")

是个很不规范的大写规则，正式场合是可能这么用的

tgydslr

再次学习

zyryc

4楼答案：数字超过亿会出现错误！！

金玉良言

有没有简单的