易烊千玺TFBOYS同款手链(易烊千玺项链同款) 如何去掉磁盘被写保护?(怎么去掉磁盘被写保护) 圈养羊怎么养#校园分享#(圈养羊怎么养视频) 制订和制定有什么区别呢(制订和制定有什么区别) 胃疼怎么办 胃疼怎样快速止疼(胃一直疼怎么快速止疼) 动力臂和阻力臂的画法(动力臂) 《小小部队》攻略:打开任务地图(小兵经验区) 打女友犯法吗(打女友屁股) 电话会议怎么开(电视电话会议怎么开) 家装水电改造方法(家装水电改造方法和步骤) 迪拜首富李凡(迪拜首富) 空调怎么改成井水空调(空调怎么改成井水空调制热) dnf创世之书4-4怎么过(DNF创世之书4-4怎么过最新) 赤井秀一喜欢安室透(赤井秀一喜欢谁) 如何去掉开机需要按Ctrl+Alt+Del?(怎样去掉开机启动项) 小核桃的功效与作用(小核桃的功效与作用及禁忌) 陶瓷地砖规格(地砖规格) 冒险岛2狂战士加点攻略(冒险岛2狂战士加点攻略2020) 终日乾乾与时偕行的意思(终日乾乾与时偕行) iPhone自动切换壁纸怎么开启(苹果怎么自动切换壁纸) 元始天尊徒弟(元始天尊的徒弟排名) 深入太极八卦《武神》江湖第一道学副本(江湖风云录九阴真经,北冥神功) 女娲是怎么来到人世的(女娲是怎么死的) 如何把FLV转换成RMVB(怎么转换成flv) word文件扩展名是什么(word的文件扩展名是什么) 南京审计学院就业前景(南京审计学院) 韩式一字眉修饰技巧(韩式一字眉修饰技巧图片) 微信小游戏猜歌达人451-500关答案 骑行圈大神(骑行圈论坛) 中年人如何补钙(中年人如何补钙维生素AD胶丸) AKG K3003 评测(akgk3003评测视频) 边坡比是什么意思(边坡比) 忍不住虐狗怎么办?(忍不住虐狗怎么办知乎) 灵魂潮汐黄昏暮会玛蒙BOSS打法攻略(灵魂潮汐活动玛蒙) 手动档换挡技巧(手动档) 仪表保护箱如何分类及应用(仪表保护箱如何分类及应用图片) 羊角梳子和牛角梳子哪个更好(银梳子和牛角梳哪个好) 进出口贸易怎么做(外贸出口流程) kingsoft是什么意思可以删除吗(kingsoft可以删除) 淘宝试用攻略(淘宝试用攻略在哪里看) 婴儿闹夜有什么好办法(婴儿闹夜有什么好办法缓解) 如何重新激活淘宝店铺及发布宝贝(如何重新激活淘宝店铺及发布宝贝的权限) 冲锋衣如何选购全攻略(冲锋衣购买指南) 蓝色生死恋演员表恩熙小时候(蓝色生死恋演员表) QQ如何打开电台随机播放(QQ音乐怎么开电台) 如何怎么下载安装steam平台(steam平台游戏安装教程) 大地保险车险报案电话(大地保险车险怎么样) 武昌鱼清蒸的做法(武昌鱼清蒸的做法几分钟) 常用的招聘网站有哪些(现在招聘都用什么网站) 雨爱吉他谱弹唱原版(雨爱吉他谱简单版)
您的位置:首页 >综合知识 >

数字转英文公式(数字转英文)

导读 关于数字转英文公式,数字转英文这个问题很多朋友还不知道,今天小六来为大家解答以上的问题,现在让我们一起来看看吧!1、1 新建如图所示

关于数字转英文公式,数字转英文这个问题很多朋友还不知道,今天小六来为大家解答以上的问题,现在让我们一起来看看吧!

1、1.新建如图所示的Excel表格,把A列中的数字用英文的形式转换到B列中。

2、  2.按住“Alt+F11”打开VBA编辑器,如图所示。

3、3. 在VBA编辑器中单击菜单栏“插入”——模块,如图所示。

4、  4.在打开的模块中输入如下代码: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 Function     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 Function5.调用函数: 现在回到Excel表格中,单击“B1”单元格,在菜单栏选择“插入”——函数。

5、 6.在打开的“插入函数”对话框的“或选择类别”中选择“用户定义”,然后选择函数“数字转英文”,单击“确定”按钮。

6、 7.在打开的“函数参数”对话框中输入“A1”,单击“确定”按钮。

7、   8.然后用填充手柄向下填充公式,现在就可以看到转换好的英文了。

本文分享完毕,希望对大家有所帮助。

标签:

免责声明:本文由用户上传,如有侵权请联系删除!