Excel VBA自定义函数Number_To_Words返回0问题排查求助

让我帮你梳理下这段VBA代码里的问题，你遇到调用函数返回0的情况，主要是由几个语法和逻辑错误导致的：

核心问题点 #

• 函数声明语法错误
  两个函数都没有指定返回类型，VBA会默认将它们识别为Variant类型，这很容易导致返回值异常。另外TheOnes函数的声明写法不符合规范——你在参数后直接写了变量声明，正确的做法是先定义函数返回类型，再在函数内部声明变量。

• Len(number)的使用错误
  Len函数是用来获取字符串长度的，但你传入的number是Integer类型，直接调用Len(number)会让VBA把数字当成变体类型处理，根本达不到“判断数字位数”的目的。

• 拼写错误
  你写的suffix2 = "syrain pounds"里的syrain是拼写错误，应该是syrian，这会导致输出的单位单词出错。

• 多余空格与拼接方式
  你在数字单词前后加了多余空格（比如" Five "），会导致输出结果有不必要的空格；另外VBA里推荐用&做字符串拼接，比+更安全，能避免类型转换问题。

修正后的代码 #

Function TheOnes(number As Integer) As String
    Dim suffix1 As String
    Dim suffix2 As String
    suffix1 = "one syrian pound"
    suffix2 = "syrian pounds"
    
    Select Case number
        Case 1: TheOnes = suffix1
        Case 2: TheOnes = "Two " & suffix2
        Case 3: TheOnes = "Three " & suffix2
        Case 4: TheOnes = "Four " & suffix2
        Case 5: TheOnes = "Five " & suffix2
        Case 6: TheOnes = "Six " & suffix2
        Case 7: TheOnes = "Seven " & suffix2
        Case 8: TheOnes = "Eight " & suffix2
        Case 9: TheOnes = "Nine " & suffix2
    End Select
End Function

Function Number_To_Words(number As Integer) As String
    Select Case number
        Case 1 To 9: Number_To_Words = TheOnes(number)
        ' 这里可以扩展添加两位数、三位数等更多位数的处理逻辑
        Case Else: Number_To_Words = "Invalid number" ' 处理0或大于9的数字
    End Select
End Function

修正说明 #

1. 给两个函数都添加了As String返回类型声明，确保返回值是字符串类型；
2. 在TheOnes函数内部正确声明了变量；
3. 修正了单位单词的拼写错误；
4. 去掉了数字单词前后的多余空格，改用&进行字符串拼接；
5. 修改了Number_To_Words的判断逻辑，直接用Case 1 To 9匹配1位数，比用Len更可靠，还新增了Case Else处理异常数字的情况。

内容的提问来源于stack exchange，提问作者Silver Hawk