Excel如何数字转换为英文
数字转换为英文对于英语比较差的同学来说是很难的一件事情,我们能不能用VBA代码来轻松实现这个过程呢?现在我们就用ExcelVba代码来实现这个操作。
编写代码:
(01)新建如图所示的Excel表格,我们讲吧A列中的数字用英文的形式转换到B列中。
(02)按住“Alt+F11”打开VBA编辑器,如图所示。
(03)在VBA编辑器中单击菜单栏“插入”——模块,如图所示。
(04)在打开的模块中输入如下代码:Option ExplicitFunction 数字转英文(ByVal MyNumber)Dim Dollars, Cents, TempDim DecimalPlace, CountReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "MyNumber = Trim(Str(MyNumber))DecimalPlace = InStr(MyNumber, ".")If 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 Select数字转英文 = Dollars & CentsEnd FunctionFunction GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" & MyNumber, 3)If Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "End IfIf Mid(MyNumber, 2, 1) <> "0" ThenResult = Result & GetTens(Mid(MyNumber, 2))ElseResult = Result & GetDigit(Mid(MyNumber, 3))End IfGetHundreds = ResultEnd FunctionFunction GetTens(TensText)Dim Result As StringResult = ""If Val(Left(TensText, 1)) = 1 ThenSelect 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 SelectElseSelect 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))End IfGetTens = ResultEnd FunctionFunction 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
调用函数:
(01)现在回到Excel表格中,单击“B1”单元格,在菜单栏选择“插入”——函数。
(02)在打开的“插入函数”对话框的“或选择类别”中选择“用户定义”,然后选择函数“数字转英文”,单击“确定”按钮。
(03)在打开的“函数参数”对话框中输入“A1”,单击“确定”按钮。
(04)然后用填充手柄向下填充公式,现在就可以看到转换好的英文了。
-
参考文献在文中怎么标注(word)
(尾注添加方法)在文章中标注参考文献,还在一个一个慢慢敲吗?看看用word怎么快速实现吧。这里以word2003为例。操作方法(01)光标移到要加入参考文献标注的地方(02)菜单中“插入”——“引用”——“脚注和尾注”(03)如图设置(04)确定后在该处就插入了一个上标“1”,而光标...
-
将pdf转换成word后文档全是图片怎么办
MicrosoftWord是微软公司的一个文字处理器应用程序。它最初是由RichardBrodie为了运行DOS的IBM计算机而在1983年编写的,很多人不知道将pdf转换成word后文档全是图片怎么办,下面让我们一起来学习一下吧操作方法(01)首先打开捷速OCR文字识别软件(02)将PDF放入捷速OCR文...
-
英雄联盟阿卡丽神秘商店钥匙怎么使用
神秘钥匙说明:1、神秘钥匙由英雄联盟官方活动发放,暂无其他渠道获得,敬请留意。2、拥有神秘钥匙的玩家,在阿卡丽的神秘商店中拥有额外一次刷新折扣的机会操作方法(01)每位召唤师拥有一次抽折扣的机会,使用钥匙获得额外一次抽折扣的机会。查看钥匙说明,在泳池派对的世界...
-
PS CC 2017 安装和破解 win10版
尝试过很多个PS版本,还是觉得2017版的最好用,响应速度更快P图更开心永久版你值得拥有!!操作方法(01)首先你要安装PS2017软件如果在网上找不到,可以联系小编哦。安装时,按提示进行操作即可,需要一定的时间。(02)将下载下来的破解文件解压双击打开红框的程序(这个程序会自动...