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

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, DecimalPlace + 1) _ 00, 2)) MyNumber = Trim(Left(MyNum