VBA 金额转英文大写 数字转英文 EXCEL

由于自己英语差，懒得转写，就在网上找了个金额转英文大写的VBA程序，但是发现and有时候会漏加，自己就稍微修改了下，程序分享出来。

使用方法：EXCEL→开发工具→Visual Basic→插入模块→然后输入最下面的代码就好了。。当然也可以做成模块导入，方法自己网上查。

函数说明：ConvertCurrencyToEnglish（要转换的数字，[前缀],[后缀]）  第一个参数必填，后两个选填。

不填写的话默认前缀是“SAY US DOLLAR”，后缀是“ ONLY***”。

代码：

Public Function ConvertCurrencyToEnglish(ByVal MyNumber, Optional ByVal leftstr = "SAY US DOLLAR ", Optional ByVal rightstr = " ONLY***")

         Dim Temp

         Dim Dollars, Cents

         Dim DecimalPlace, Count

         ReDim Place(9) As String

         Place(2) = " THOUSAND "

         Place(3) = " MILLION "

         Place(4) = " BILLION "

         Place(5) = " TRILLION "

         ' Convert MyNumber to a string, trimming extra spaces.

         MyNumber = Trim(Str(MyNumber))

         ' Find decimal place.

         DecimalPlace = InStr(MyNumber, ".")

         ' If we find decimal place...

         If DecimalPlace > 0 Then

            ' Convert cents

            Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)

            Cents = ConvertTens(Temp)

            ' Strip off cents from remainder to convert.

            MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

         End If

         Count