[分享]人民币大写函数TEXT终极版 1行(136字符)

fjxmldd

用函数128个字符就可解决！引用A1

=IF(A1<0,"负",)&NUMBERSTRING(ABS(A1),2)&"元"&SUBSTITUTE(TEXT(MOD(ABS(A1)*100,100),"[=0]整;[<10][dbnum2]零0分;[dbnum2]0角0分"),"零分","整")

fjxmldd

也许是目前最短的函数法转换（大写），适应负值。（共127个字符）

=IF(A1<0,"负",)&NUMBERSTRING(ABS(A1),2)&"元"&SUBSTITUTE(TEXT(MOD(ABS(A1)/1%,100),"[=0]整;[<10][dbnum2]零0分;[dbnum2]0角0分"),"零分","整")

不考虑负值时，公式只有103个字符。

=NUMBERSTRING(A1,2)&"元"&SUBSTITUTE(TEXT(MOD(A1/1%,100),"[=0]整;[<10][dbnum2]零0分;[dbnum2]0角0分"),"零分","整")

请指教。

ldy

呵呵 如果不考虑有小数的情况 =TEXT(A1,"[dbnum2]")&"圆整"  才25个字符

看来你对“函数”的概念没搞明白。函数是一个统称

=TEXT(A1,"[dbnum2]")&"圆整"  这个叫函数也叫公式

Function Dd(m) '''这个也叫函数 一般称之为自定义函数、方法
Dd  = m * 10
End Function

Sub test()''''''这个也叫函数 一般之为 过程、宏、代码
MsgBox "你好"
End Sub

具体也没有谁去统一，给个法定的叫法，

一般约定俗成称 单元格里的函数为公式、函数公式

VBE编辑器里写的代码叫 叫自编函数、自定义函数、过程、宏.....

用代码可以写公式 ，但用公式没法写代码

公式和代码各有各的用法，没有可比性。

另外不管是编写公式还是代码都应该通用一些。

尤其是人民币大写，几乎谁都知道该如何读写，因为财务上有统一标准。

整数部分TEXT 和 NUMBERSTRING 函数已经处理的绝对标准了.

复杂性就在角分的处理上，何时该有“零” 何时该有“整”都是有规定的，还有对一些边界值的处理。

不管对千分位进行 四舍五入 还是 截尾 操作 ，对于负数 显示“-” 还是“负” 都是可接受范围

但都不能出现以下明显的错误

0.999   壹元壹零角整
-0.001  负零元零整
-1.99   负贰元玖角玖分
0.56    壹元伍角陆分

以上是127 和 103 个字符的返回结果，如果用这个，估计会误导财务

我所见过能正处理上述数字最短的公式是36楼wshcw写的 181个字符的公式

=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,,"零")),"零分","整")

编写正确的公式和代码和多人都能做到，但要称最短那就要看兴趣和才智了。

dhabc123

牛

fjxmldd

版主太有才了，非常感谢版主指教！

[此贴子已经被作者于2008-7-27 12:53:15编辑过]

向中级进发

我也来试试, 这不是最短的, 但是是我能独立完成最短的

1.01要说成  1元零1分时
    

0     零

0.02
    贰分

0.5   伍角整

0.21
    贰角壹分

25    贰拾伍元整

1.05
    壹元零伍分

5.36
    伍元叁角陆分

-1.01       负壹元零壹分

=IF(A2<0,"负","")&IF(TRUNC(A2),TEXT(TRUNC(ABS(A2)),"[dbnum2]")&"元","")&SUBSTITUTE(SUBSTITUTE(RIGHT(TEXT(MOD(ABS(A2),1),"[dbnum2]0.0角0分"),4),"零分",IF(A2,"整","零")),"零角",IF((TRUNC(A2)*MOD(A2,1)),"零",""))

=IF(A2<0,"负","")&IF(TRUNC(A2),TEXT(TRUNC(ABS(A2)),"[dbnum2]")&"元","")&SUBSTITUTE(SUBSTITUTE(RIGHT(TEXT(MOD(ABS(A2),1),"[dbnum2]0.0角0分"),4),"零分",IF(A2,"整","零")),"零角",IF((TRUNC(A2)*MOD(A2,1)),"零",""))

不计"=" 197字

      

1.01 可以说成1元1分时  

0     零

0.02
    贰分

0.5   伍角整

0.21
    贰角壹分

25    贰拾伍元整

1.05
    壹元伍分

5.36
    伍元叁角陆分

-1.01负壹元壹分

=IF(A2<0,"负","")&IF(TRUNC(A2),TEXT(TRUNC(ABS(A2)),"[dbnum2]")&"元","")&SUBSTITUTE(SUBSTITUTE(RIGHT(TEXT(MOD(ABS(A2),1),"[dbnum2]0.0角0分"),4),"零分",IF(A2,"整","零")),"零角","")

不计"=" 168字

不支持三位小数, 上亿也出错, 请指点, 重在参与与煅练

[此贴子已经被作者于2008-7-29 0:43:50编辑过]

ldy

呃 这个 啊 哈哈 怕是“指点”不了

俺的函数水平和普通坛友差不多，不过这里是VBA版[em06]

你如果写自定义函数，我还能讨论讨论

？？？

你没试过 0.999

[此贴子已经被作者于2008-7-29 0:56:53编辑过]

百合花fm

"人民币大写",把它粘到VBA模块里就可以使用.

请各位试一下

 Function RMBDX(money As Variant)
    Dim m1 As Long, n1 As Long, n2 As Integer, n3 As Integer
    m1 = Application.WorksheetFunction.Round(money * 100, 0)
    n1 = Int(m1 / 100)
    n2 = Int(m1 / 10) - n1 * 10
    n3 = m1 - n1 * 100 - n2 * 10
    If n3 = 0 Then
    RMBDX = "整"
    Else
    RMBDX = Application.WorksheetFunction.Text(n3, "[DBnum2]") & "分"
    End If
    If n2 = 0 Then
    If n1 <> 0 And n3 <> 0 Then RMBDX = "零" & RMBDX
    Else
    RMBDX = Application.WorksheetFunction.Text(n2, "[DBnum2]") & "角" & RMBDX
    End If
    If n1 <> 0 Or m1 = 0 Then
    RMBDX = Application.WorksheetFunction.Text(n1, "[DBnum2]") & "元" & RMBDX
    End If
    End Function

myfanso

看到这么多的强手,我怎么今天才找到这个网站啊,叹啊,我以前都做了些什么啊.

gannaijun

我菜鸟一个，没看懂，有自己的办法，回头再来学你的。