在SHEET上右键选择查看代码，插入新模块，然后在模块中输入代码：Option Explicit。
Else
End If
Str = ""
Else
End If
End If
Else
End If
Loop
Else
End If
Case 1
Case 2
Else
Else
End If
End If
End If
Case 3
Else
End If
StrTens(9) = 九十，Unit(1) = 千。
单位(2) = 百万 用于表示数量级。
第三单元为十亿，用于表示大数值的计量单位。
End If
将代码保存至本地模块，其中已定义函数NumberToString。该函数可像Excel内置函数一样直接调用。例如，若A1单元格值为7，在B1中输入=NumberToString(A1)即可使用，自动返回对应结果，操作简便，无需额外设置。
创建一个Excel表格，将A列数字转换为英文单词并填入B列。
按下Alt+F11键，启动VBA编辑器，界面所示。
在VBA编辑器中，点击插入菜单，选择模块，操作所示。
在打开的模块中输入以下代码：
函数 将数字转换为英文文本（输入数值）
End If
Else
End If
Loop
Case ""
Case ""
数字转英文表示为美元和美分
End If
Else
End If
Else
End If
5.调用函数：
返回Excel，点击B1单元格，然后在菜单栏中选择插入功能，再点击函数。
在插入函数对话框的或选择类别中选择用户定义，找到数字转英文函数，点击确定即可。
在函数参数对话框内输入A1，然后点击确定按钮完成操作。
8. 拖动填充柄向下复制公式，即可查看转换后的英文结果。
