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

li626565

请问怎么COPY

iweier

不知大侠还在论坛活跃否。
我现在发现个问题，当数字金额为小数后3位，比如 $1.199， 但是我们设置一般只显示后两位，就成了$1.20， 但是=spellnumber的时候 还是会 1.19， 而不是 1.20， 请问怎么更改，我第一次为了这个功能才了解VBA，多谢帮忙。

Samsea

iweier 发表于 2014-8-22 12:15
不知大侠还在论坛活跃否。
我现在发现个问题，当数字金额为小数后3位，比如 $1.199， 但是我们设置一般只显 ...

Function SpellNumber(ByVal MyNumber)
    Dim Dollars, Cents, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Application.Volatile True
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "     ' String representation of amount
    MyNumber = (MyNumber * 100 + 0.5) / 100
    MyNumber = Trim(Str(MyNumber))    ' Position of decimal place 0 if none
    DecimalPlace = InStr(MyNumber, ".")

zhuchunxia919

很好用，太谢谢了。

iweier

Samsea 发表于 2014-9-10 20:06
Function SpellNumber(ByVal MyNumber)
    Dim Dollars, Cents, Temp
    Dim DecimalPlace, Count

多谢大侠回复。

是不是加了这个“MyNumber = (MyNumber * 100 + 0.5) / 100”
我加了，没反应。 如果1.39 但是excel选择保留一位小数，变成了 1.40. 但还是拼 thirty nine cents

Samsea

iweier 发表于 2014-9-15 19:00
多谢大侠回复。

是不是加了这个“MyNumber = (MyNumber * 100 + 0.5) / 100”

MyNumber = (MyNumber * 100 + 0.5) / 100 或
MyNumber = ROUND( MyNumber , 2)
都是四舍五入保留两位小数。如四舍五入保留一位小数应该是：
MyNumber = (MyNumber * 10 + 0.5) / 10 或
MyNumber = ROUND( MyNumber , 1)
表格格式设置显示一位并不等于英文字母显示一位。

iweier

Samsea 发表于 2014-9-17 20:26
MyNumber = (MyNumber * 100 + 0.5) / 100 或
MyNumber = ROUND( MyNumber , 2)
都是四舍五入保留两位小 ...

飞铲感谢大大解释。
理解了。

zhangcq9988

谢谢，多谢，学习了！

coveczhrj

拜读！感谢分享！

ww0000

此帖子太好了，很实用