[原创]与[推荐]数字金额转换中文大写与英文字母

yihua0631

我下载了,但是我在excel用了出现"#NAME?"是否是函数没有定义?[em04]

yihua0631

刚刚瞄到了excel自带的函数

需要将1562.20表示为

"SAY USD ONE THOUSAND FIVE HUNDRED AND SIXTY TWO,CENTS TWENTY." 在EXCEL表--插入--插入函数--用户定义--NumToLetter.xls!SpellNumber()

这个函数就可以了

不过在单元格中要书写为:="SAY USD "&NumToLetter.xls!SpellNumber()

中文大写就是用户定义的第一个NumToLetter.xls!DAXIE()

xingqiwu

作合同经常是中英双语的，下载了研究一下先！~~

poul3wendy

先看过再发表意见

stonecold

不错哦。正好需要这个东东，收藏了，谢楼主了。

vanessawong

打不开，要换成英文的不是中文的，谁能告诉我？

Samsea

QUOTE:

以下是引用vanessawong在2008-6-13 18:19:00的发言：

打不开，要换成英文的不是中文的，谁能告诉我？

本贴就是：[原创]与[推荐]数字金额转换中文大写与英文字母

Samsea

QUOTE:

以下是引用vanessawong在2008-6-13 18:19:00的发言：

打不开，要换成英文的不是中文的，谁能告诉我？

本贴就是：[原创]与[推荐]数字金额转换中文大写与英文字母

irene2008

楼主大哥，我是初学者，这个转换我刚好要用到，但你所推荐的我看不懂哦，下载后打开EXCEL都是“#NAME？”这样的字符，能告诉我下是怎么回事吗？这个具体是怎么操作的啊？[em04]

Samsea

QUOTE:

以下是引用irene2008在2008-6-17 21:31:00的发言：
楼主大哥，我是初学者，这个转换我刚好要用到，但你所推荐的我看不懂哦，下载后打开EXCEL都是“#NAME？”这样的字符，能告诉我下是怎么回事吗？这个具体是怎么操作的啊？[em04]

 可能在下载过程，宏丢失了。可把你要的函数复制到你的新工作薄vba中。

 ' 试编写数字金额转中文大写的函数
 ' lin jin xiang 08-07-2004
 ' 重编辑 23-01-2005

Function DaXie(ByVal Num)       ' 人民币中文大写函数
    Application.Volatile True
    Place = "分角元拾佰仟万拾佰仟亿拾佰仟万"
    Dn = "壹贰叁肆伍陆柒捌玖"
    D1 = "整零元零零零万零零零亿零零零万"
    If Num < 0 Then FuHao = "（负）"
    Num = Format(Abs(Num), "###0.00") * 100
    If Num > 999999999999999# Then: DaXie = "数字超出转换范围!!": Exit Function
    If Num = 0 Then: DaXie = "零元零分": Exit Function
    NumA = Trim(Str(Num))
    NumLen = Len(NumA)
    For J = NumLen To 1 Step -1     ' 数字转换过程
      Temp = Val(Mid(NumA, NumLen - J + 1, 1))
      If Temp <> 0 Then             ' 非零数字转换
         NumC = NumC & Mid(Dn, Temp, 1) & Mid(Place, J, 1)
      Else                          ' 数字零的转换
         If Right(NumC, 1) <> "零" Then
           NumC = NumC & Mid(D1, J, 1)
         Else
           Select Case J            ' 特殊数位转换
                Case 1
                  NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1)
                Case 3, 11
                  NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"
                Case 7
                  If Mid(NumC, Len(NumC) - 1, 1) <> "亿" Then
                     NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, J, 1) & "零"
                  End If
                Case Else
           End Select
         End If
      End If
    Next
    DaXie = FuHao & Trim(NumC)
End Function

[此贴子已经被作者于2008-6-18 19:26:24编辑过]