EXCEL表格中将数字金额转换为英文.pdfVIP

Excel表格中如何将数字金额转换为英文 （如B1列写 162890 元，自动转换为英文 ONE HUNDRED SIXTY TWO THOUSAND EIGHT HUNDRED NINETY DOLLARS AND NO CENTS ） 1、新建 Excel 表格 2、 按住“Alt+F11 ”打开VBA 编辑器 3、在VBA 编辑器中单击菜单栏“插入”——模块 4 、在打开的模块中输入如下代码： Option Explicit Function 数字转英文(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = Thousand Place(3) = Million Place(4) = Billion Place(5) = Trillion MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, .) If DecimalPlace 0 Then Cents = GetTens(Left(Mid(MyNumber, Decim