阿拉伯数字转换成英文大写.pdf

《阿拉伯数字转换成英文大写.pdf》由会员分享，可在线阅读，更多相关《阿拉伯数字转换成英文大写.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、启动 Microsoft Excel。按 Alt+F11 启动 Visual Basic 编辑器。在“插入”菜单上，单击“模块” 。在模块表中键入下面的代码。Option ExplicitMain FunctionFunction SpellNumber(ByValMyNumber)Dim Dollars, Cents, TempDim DecimalPlace, CountReDimPlace(9) As StringPlace(2) = Thousand Place(3) = Million Place(4) = Billion Place(5) = Trillion String rep

2、resentation of amount.MyNumber = Trim(Str(MyNumber) Position of decimal place 0 if none.DecimalPlace = InStr(MyNumber, .) Convert cents and set MyNumber to dollar amount.If DecimalPlace 0 ThenCents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _00, 2)MyNumber = Trim(Left(MyNumber, DecimalPlace -

3、1)End IfCount = 1Do While MyNumber Temp = GetHundreds(Right(MyNumber, 3)If Temp Then Dollars = Temp &Place(Count) & DollarsIf Len(MyNumber) 3 ThenMyNumber = Left(MyNumber, Len(MyNumber) - 3)ElseMyNumber = End IfCount = Count + 1LoopSelect Case DollarsCase Dollars = No DollarsCase OneDollars = One Do

4、llarCase ElseDollars = Dollars & DollarsEnd SelectSelect Case CentsCase Cents = and No CentsCase OneCents = and One CentCase ElseCents = and & Cents & CentsEnd SelectSpellNumber = Dollars & CentsEnd Function Converts a number from 100-999 into textFunction GetHundreds(ByValMyNumber)Dim Result As Str

5、ingIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right(000 &MyNumber, 3) Convert the hundreds place.If Mid(MyNumber, 1, 1) 0 ThenResult = GetDigit(Mid(MyNumber, 1, 1) & Hundred End If Convert the tens and ones place.If Mid(MyNumber, 2, 1) 0 ThenResult = Result &GetTens(Mid(MyNumber, 2)ElseResult

6、 = Result &GetDigit(Mid(MyNumber, 3)End IfGetHundreds = ResultEnd Function Converts a number from 10 to 99 into text.Function GetTens(TensText)Dim Result As StringResult = Null out the temporary function value.If Val(Left(TensText, 1) = 1 Then If value between 10-19.Select Case Val(TensText)Case 10:

7、 Result = TenCase 11: Result = ElevenCase 12: Result = TwelveCase 13: Result = ThirteenCase 14: Result = FourteenCase 15: Result = FifteenCase 16: Result = SixteenCase 17: Result = SeventeenCase 18: Result = EighteenCase 19: Result = NineteenCase ElseEnd SelectElse If value between 20-99.Select Case

8、 Val(Left(TensText, 1)Case 2: Result = Twenty Case 3: Result = Thirty Case 4: Result = Forty Case 5: Result = Fifty Case 6: Result = Sixty Case 7: Result = Seventy Case 8: Result = Eighty Case 9: Result = Ninety Case ElseEnd SelectResult = Result &GetDigit _(Right(TensText, 1) Retrieve ones place.En

9、d IfGetTens = ResultEnd Function Converts a number from 1 to 9 into text.Function GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = OneCase 2: GetDigit = TwoCase 3: GetDigit = ThreeCase 4: GetDigit = FourCase 5: GetDigit = FiveCase 6: GetDigit = SixCase 7: GetDigit = SevenCase 8: GetDigit = Ei

10、ghtCase 9: GetDigit = NineCase Else: GetDigit = End SelectEnd Function如何使用 SpellNumber 示例函数要使用该示例函数将某数字更改为书面文本，请使用下列示例中演示的方法之一：方法 1：直接输入通过将下面的公式输入单元格中， 可以将 32.50 更改为 “Thirty Two Dollars and Fifty Cents” ：=SpellNumber(32.50)方法 2：单元格引用可以引用工作簿中的其他单元格。 例如，在单元格 A1 中输入数字 32.50，然后在另一单元格中键入下面的公式：=SpellNumbe

11、r(A1)方法 3：粘贴函数或插入函数可以使用 “粘贴函数”（在 Excel 2000 和 Excel 2002 中） 或 “插入函数”（在 Excel 2003 中）来将自定义函数输入工作表中。Excel 2000 和 Excel 2002要使用“粘贴函数” ，请按照下列步骤操作：选择所需的单元格。单击“常用”工具栏中的“粘贴函数” 。在“函数类别”下，单击“用户定义” 。在“函数名称”下，单击“SpellNumber” ，然后单击“确定” 。输入所需的数字或单元格引用，然后单击“确定” 。单击“完成” 。Excel 2003要使用“插入函数” ，请按照下列步骤操作：选择所需的单元格。单击“常用”工具栏中的“插入函数” 。在“或选择类别”下，单击“用户定义” 。在“选择函数”列表中，单击“SpellNumber” ，然后单击“确定” 。输入所需的数字或单元格引用，然后单击“确定” 。回到顶端 | 提供反馈