Question

如果我在excel工作表单元中有以下内容

 1338 1

如何测试它是否为整数，我需要一个返回FALSE的函数--IsNumeric函数返回TRUE。

它与从mysql-database下载有关 - 有时excel中的splitfunction无法正常工作。 “1”属于相邻的单元格：

1338 1339.01

它不是有效数字。我该如何测试？我不能使用IsNumeric函数，因为单元格中有单独的数字，但它不是整数。我无法计算它 - 也没有在图表中使用它。

那么 - 在这种情况发生时，vba中是否有buildtin函数来测试它是否为整数？

Answer 1

您可以使用函数将值作为字符串传递，并检查每个字符以查看它是否为数字。

    Function isValidNumber(sValue As String) As Boolean

    Dim bResult As Boolean

    bResult = True

    Dim i As Integer

    For i = 1 To Len(sValue) Step 1
        If IsNumeric(Mid(sValue, i, 1)) = False Then
        bResult = False
        Exit For
        End If
    Next
    isValidNumber = bResult
    End Function

测试1338 1是否为整数

1 个答案: