vba if digits > num then trim

Question

我需要一个vba函数，它可以对我的列的所有数字进行计数，如果数字大于13，它就会正确(trim，9)。我不能单独使用右边(修剪)，因为有10位或11位的数字，我必须让它们保持原样。这就是我到目前为止所得到的。

Function trim(a as String)
    x = Len([numbers])
    If x > 13 Then

        a = Right(trim([numbers]), 9)

    End If
End Function

Answer 1

听起来您不确定如何传递和返回参数。

A是输入参数，你应该用它来代替[numbers]。

此外，有一个冲突的名字也是一个非常糟糕的想法。trim已被VBA使用，请另选一个。

输出参数的名称就是函数名。

此外，您还需要声明变量。

示例：

Function TrimLongString(a as String) As String
    Dim x As Long
    x = Len(a)
    If x > 13 Then
        TrimLongString = Right(trim(a), 9)
    Else
        TrimLongString = a
    End If
End Function