VBA中的自定义函数出现#VALUE错误

Question

下面是我的代码，我试图返回“ std”的值，但它给出了#VALUE错误。 我给“ strng”的输入字符串是3,3,3，-，3我期望的结果是7。

Dim strng As Double
Dim std, i As Long
---------------------------------------------------
Function defaulters(strng) As Double
std = 4
a = Split(strng, ",")
    For i = 0 To Len(strng)
      If a(i) = "-" Then
        std = std - 1
      Else
        std = std + 1
      End If
    Next i
defaulters = std
End Function

Answer 1

您的For应该是这样的

For i = LBound(a) To UBound(a)

整个事情将是：

Function defaulters(strng) As Double
std = 4
a = Split(strng, ",")
    For i = LBound(a) To UBound(a)
      If a(i) = "-" Then
        std = std - 1
      Else
        std = std + 1
      End If
    Next i
defaulters = std
End Function

此外，根据您在评论部分发现的问题，您的代码逻辑也应按以下方式更新

Function defaulters(strng) As Double
std = 4
a = Split(strng, ",")
    For i = LBound(a) To UBound(a)
        If a(i) = "-" Then
            std = std - 1
        Else
            std = std + Len(a(i))
        End If
    Next i
defaulters = std
End Function

Answer 2

测试一下：

Dim strng As String
Dim std, i As Long

Sub defaulters()
    strng = "3,3,3,-,3"
    std = 4

    a = Split(strng, ",")
    f = UBound(a) - LBound(a) + 1
    For i = 0 To f - 1
        If a(i) = "-" Then
            std = std - 1
        Else
            std = std + 1
        End If
    Next i

End Sub