office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

VBA判断Excel单元格的数据类型

2020-04-23 08:00:00
zstmtony
原创
3066

VBA判断Excel单元格的数据类型


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 = "数值"

    Case Application.IsErr(cel)

        strType = "错误值"

    Case IsDate(cel)

        strType = "日期"

    End Select

    MsgBox "[" & cel.Address & "] 的数据类型为:" & strType

    gf_CheckCellType = strType

End Function


分享