将数字转换为单词

重要:  本文是由机器翻译的,请参阅免责声明。请在 此处 中查找本文的英文版本以便参考。

Excel 2013和Excel 2016没有了默认函数将数字显示为英语单词在电子表格单元格中,但您可以通过将 SpellNumber 函数代码粘贴到模块工作表添加此功能。此函数允许您将美元和美分金额转换为单词。

如果您想要将数值转换为文本格式,而不使用 TEXT 函数的单词以显示它们。

本文内容

创建要将数字转换为单词的 SpellNumber 函数

  1. 使用键盘快捷方式,Alt + F11 打开 Visual Basic 编辑器。

    注意: 在功能区中,也可以通过显示开发工具选项卡访问 Visual Basic 编辑器。

  2. 单击插入选项卡,然后单击模块

    在插入菜单上,单击模块。
  3. 复制下面的代码行。

    注意: 此代码称为宏函数,自动将数字转换为整个电子表格的文本的任务。

    显式选项

    主函数

    函数 SpellNumber (ByVal MyNumber)

    变暗金额,美分 Temp

    Dim DecimalPlace 计数

    为字符串 reDim Place(9)

    Place(2) ="千"

    Place(3) = 万英寸

    Place(4) ="10 亿"

    Place(5) = 万英寸

    量的字符串表示形式。

    MyNumber = Trim(Str(MyNumber))

    0; 如果无小数位的位置。

    DecimalPlace = InStr (MyNumber,"。")

    转换美分并将 MyNumber 设置为美元金额。

    如果 DecimalPlace > 然后 0

    美分 = GetTens (左 (Mid (MyNumber、 DecimalPlace + 1) & _ "00",2))

    MyNumber = Trim (左 (MyNumber,DecimalPlace-1))

    如果结束

    计数 = 1

    执行操作时 MyNumber <>""

    Temp = GetHundreds (向右 (MyNumber,3))

    如果 Temp <>""然后金额 = Temp Place(Count) & 金额

    如果 Len(MyNumber) > 然后 3

    MyNumber = 左 (MyNumber,Len(MyNumber)-3)

    Else

    MyNumber =""

    如果结束

    计数 = 计数 + 1

    循环

    选择大小写的金额

    大小写""

    金额 ="无金额"

    例"一"

    金额 ="1 美元"

    其他大小写

    金额 = 金额和"金额"

    结束选择

    选择大小写美分

    大小写""

    美分 ="和无美分"

    例"一"

    美分 ="和一个美分"

    其他大小写

    美分 ="和"& 美分和"货币"

    结束选择

    SpellNumber = 金额和美分

    结束函数

    将数字从 100 999 转换成文本

    函数 GetHundreds (ByVal MyNumber)

    Dim 结果为字符串

    如果 Val(MyNumber) = 0 然后退出函数

    MyNumber = 右 ("000"& MyNumber,3)

    转换数百放置。

    Mid (MyNumber,1,1) 的 if 然后 <>"0"

    结果 = (Mid (MyNumber,有 1,1))。 GetDigit 和 100 英寸

    如果结束

    转换数十和的位置。

    Mid (MyNumber,2,1) 的 if 然后 <>"0"

    结果 = 结果和 GetTens (Mid (MyNumber,2))

    Else

    结果 = 结果和 GetDigit (Mid (MyNumber,3))

    如果结束

    GetHundreds = 结果

    结束函数

    转换为数字 10 到 99 文本。

    函数 GetTens(TensText)

    Dim 结果为字符串

    结果 =""空出的临时函数值。

    如果 Val (左 (TensText,1)) = 1,然后如果介于 10 19...

    选择大小写 Val(TensText)

    案例 10: 结果 ="10"

    案例 11: 结果 ="十一日"

    案例 12: 结果 ="十二"

    案例 13: 结果 ="十三"

    案例 14: 结果 ="十四"

    案例 15: 结果 ="15"

    案例 16: 结果 ="十六"

    案例 17: 结果 ="十七"

    案例 18: 结果 ="十八"

    案例 19: 结果 ="十九"

    其他大小写

    结束选择

    其他 ' 如果 20 99 之间的值...

    选择大小写 Val (左 (TensText,1))

    案例 2: 结果 ="二十"

    案例 3: 结果 ="三十"

    情况 4: 结果 ="四十"

    案例 5: 结果 ="50"

    案例 6: 结果 ="六十"

    案例 7: 结果 ="七十"

    用例 8: 结果 ="八十"

    案例 9: 结果 ="九十"

    其他大小写

    结束选择

    结果 = 结果和 GetDigit _

    (向右 (TensText,1)) 检索的位置。

    如果结束

    GetTens = 结果

    结束函数

    转换为数字 1 到 9 的文本。

    函数 GetDigit(Digit)

    选择大小写 Val(Digit)

    案例 1: GetDigit ="一"

    案例 2: GetDigit ="2"

    案例 3: GetDigit ="3"

    情况 4: GetDigit ="4"

    案例 5: GetDigit ="5"

    案例 6: GetDigit ="六个"

    案例 7: GetDigit ="7"

    案例 8: GetDigit ="八个"

    案例 9: GetDigit ="9"

    其他的大小写: GetDigit =""

    结束选择

    结束函数

  4. 粘贴到代码行Module1 (代码)框。

    粘贴到 Module1 中的代码 (代码) 框。
  5. 单击文件,然后单击关闭并返回到 Microsoft Excel。SpellNumber 函数已准备好使用。

    注意: 此函数仅对当前Excel文件已打开的工作方式。若要在另一个Excel工作簿中使用此函数,您必须重复代码复制并粘贴该文件中的步骤。

返回页首

使用单个单元格内的 SpellNumber 函数

  1. 您要在其中显示书面的数字,将替换为您选择的数字的单元格中键入公式= SpellNumber()。

  2. 在键盘上按 Enter。

    例如,如果您键入=SpellNumber(22.50),该单元格应阅读享有两美元 50 美分

    提示: 若要将数字转换为单独的单元格中的文本,请将数字值替换 SpellNumber 公式中的单元格引用。例如,键入=SpellNumber(A1)以显示书面的值的单元格 A1。

返回页首

保存您 SpellNumber 函数的工作簿

Excel不能使用宏函数标准宏的工作簿格式保存工作簿。如果单击文件>保存。打开VB 项目对话框。单击

在 VB 项目对话框中,单击否。

您可以将文件保存为excel 启用宏的模板以其当前格式保存文件。

  1. 单击“文件”>“另存为”。

  2. 单击保存类型下拉列表菜单,然后选择Excel Macro-Enabled Template。

    选择 Excel 启用宏的模板。
  3. 单击“保存”。

返回页首

注意: 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

另请参阅

TEXT 函数

扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×