VBA判斷Excel單元格的數(shù)據(jù)類型

VBA判斷Excel單元格的數(shù)據(jù)類型

Public Function gf_CheckCellType(cel As Range) As String

    Dim strType As String



    Select Case True

    Case Application.IsText(cel)

        strType = "文本"

    Case Application.IsLogical(cel)

        strType = "邏輯值"

    Case IsEmpty(cel)

        strType = "空值"

    Case IsNumeric(cel)

        strType = "數(shù)值"

    Case Application.IsErr(cel)

        strType = "錯誤值"

    Case IsDate(cel)

        strType = "日期"

    End Select

    MsgBox "[" & cel.Address & "] 的數(shù)據(jù)類型爲:" & strType

    gf_CheckCellType = strType

End Function