如何在 Excel 中将数值转换为英文单词
本文包含 Microsoft Visual Basic for Applications 函数示例,您可以使用这些函数将 Microsoft Excel 工作表单元格中的数值转换为等效的英文单词。
创建名为 SpellNumber 的示例函数
(01)启动 Microsoft Excel-----按 Alt+F11 启动 Visual Basic 编辑器-----在“插入”菜单上,单击“模块”
(02)在模块表中键入下面的代码
(03)Option Explicit'Main FunctionFunction SpellNumber(ByVal MyNumber)Dim Dollars, Cents, TempDim DecimalPlace, CountReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "' String representation of mber = Trim(Str(MyNumber))' Position of decimal place 0 if malPlace = InStr(MyNumber, ".")' Convert cents and set MyNumber to dollar DecimalPlace > 0 ThenCents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))MyNumber = Trim(Left(MyNumber, DecimalPlace - 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 Dollars"Case "One"Dollars = "One Dollar"Case ElseDollars = Dollars & " Dollars"End SelectSelect Case CentsCase ""Cents = " and No Cents"Case "One"Cents = " and One Cent"Case ElseCents = " and " & Cents & " Cents"End SelectSpellNumber = Dollars & CentsEnd Function ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" & MyNumber, 3)' Convert the hundreds Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "End If' Convert the tens and ones Mid(MyNumber, 2, 1) <> "0" ThenResult = Result & GetTens(Mid(MyNumber, 2))ElseResult = 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 Val(Left(TensText, 1)) = 1 Then ' If value between ct Case Val(TensText)Case 10:Result = "Ten"Case 11:Result = "Eleven"Case 12:Result = "Twelve"Case 13:Result = "Thirteen"Case 14:Result = "Fourteen"Case 15:Result = "Fifteen"Case 16:Result = "Sixteen"Case 17:Result = "Seventeen"Case 18:Result = "Eighteen"Case 19:Result = "Nineteen"Case ElseEnd SelectElse ' If value between ct Case 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 IfGetTens = ResultEnd Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit)Select Case Val(Digit)Case 1:GetDigit = "One"Case 2:GetDigit = "Two"Case 3:GetDigit = "Three"Case 4:GetDigit = "Four"Case 5:GetDigit = "Five"Case 6:GetDigit = "Six"Case 7:GetDigit = "Seven"Case 8:GetDigit = "Eight"Case 9:GetDigit = "Nine"Case Else:GetDigit = ""End SelectEnd Function
(04)关闭即可
使用 SpellNumber 示例函数
(01)方法 1:直接输入通过将下面的公式输入单元格中,可以将 32.50 更改为“Thirty Two Dollars and Fifty Cents”:=SpellNumber(32.50)
(02)方法 2:单元格引用可以引用工作簿中的其他单元格。例如,在单元格 A1 中输入数字 32.50,然后在另一单元格中键入下面的公式:=SpellNumber(A1)
(03)方法 3:插入函数Excel 2003:选择所需的单元格。单击“常用”工具栏中的“插入函数”。在“或选择类别”下,单击“用户定义”。在“选择函数”列表中,单击“SpellNumber”,然后单击“确定”。输入所需的数字或单元格引用,然后单击“确定”。Excel 2007 和 2010:选择所需的单元格。单击“公式”功能区上的“插入函数”。在“或选择类别”下,单击“用户定义”。在“选择函数”列表中,单击“SpellNumber”,然后单击“确定”。输入所需的数字或单元格引用,然后单击“确定”。
(04)如图
-
如何在手机上申报个人所得税专项附加税扣除
个人所得税专项附加税扣除政策是一项非常优惠的政策,它可以减轻广大人民群众的负担。那么这个要怎么申报呢?本文将为您介绍它的申报流程。操作方法(01)首先,下载官方的个人所得税APP,这个APP是新出的。(02)点击打开个人所得税APP后,会询问你的定位,点击下一步即可。(03)进...
-
旅拍摄影师如何接单
旅拍摄影师的接单方式总共分为两种,一种是自己主动找单,另外一种是让订单主动来找你,这两种方式之间存在着本质的区别,自己找单的财务和时间成本都比较高,而订单主动找你则几乎没有什么成本。下面小编总结的八种接单方式都是属于上述两大类别里面的,旅拍摄影师可以根...
-
如何在CATIA中对几何体进行装配
本教会大家如何在CATIA零件设计模块对两个几何体通过布尔运算进行装配。操作方法(01)打开CATIA,在菜单栏中选>文件>打开,或者按住Ctrl+o,弹出对话框;(02)在对话框中选择零件>buer,双击单击打开;(03)查看图形界面中两个几何体的位置关系,并在左上角可以看到树形结构图中存在...
-
CAD图块如何编辑?CAD图块编辑方法?
本文主要讲述在CAD中图块如何进行编辑的过程,通过学习来掌握此方法的使用技巧。操作方法(01)首先通过原有图纸并进行打开,如下图所示。(02)图中图形为块模式,通过选择当前图形在特征中进行查看,如下图所示。(03)通过双击该图块弹出编辑块定义点击确定即可,如下图所示。(04)...