vba 判断字符串前9为是否为数字或字母组成

你可以使用 VBA 中的 `IsNumeric` 和 `IsAlphaNumeric` 函数来判断字符串前9位是否为数字或字母组成。

以下是一个示例代码：

Function IsAlphaNumeric(ByVal strInput As String) As Boolean
    Dim i As Integer
    For i = 1 To 9
        If Not IsNumeric(Mid(strInput, i, 1)) And Not IsLetter(Mid(strInput, i, 1)) Then
            IsAlphaNumeric = False
            Exit Function
        End If
    Next i
    IsAlphaNumeric = True
End Function

Function IsLetter(ByVal strInput As String) As Boolean
    If strInput Like "[a-zA-Z]" Then
        IsLetter = True
    Else
        IsLetter = False
    End If
End Function

你可以使用 `IsAlphaNumeric` 函数来判断字符串前9位是否为数字或字母组成。如果返回值为 `True`，则表示前9位为数字或字母组成；如果返回值为 `False`，则表示前9位不为数字或字母组成。